diff options
Diffstat (limited to 'files/practicum/StdRoman.icl')
-rw-r--r-- | files/practicum/StdRoman.icl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/files/practicum/StdRoman.icl b/files/practicum/StdRoman.icl deleted file mode 100644 index fec4461..0000000 --- a/files/practicum/StdRoman.icl +++ /dev/null @@ -1,46 +0,0 @@ -implementation module StdRoman
-
-import StdEnv, RomeinsGetal
-
-instance + Roman where ...
-instance - Roman where ...
-
-instance zero Roman where ...
-
-instance * Roman where ...
-
-instance / Roman where ...
-instance one Roman where ...
-
-
-instance ^ Roman where ...
-instance abs Roman where ...
-instance sign Roman where ...
-instance ~ Roman where ...
-
-instance == Roman where ...
-instance < Roman where ...
-instance isEven Roman where ...
-instance isOdd Roman where ...
-
-class toRoman a :: !a -> Roman
-instance toRoman Char where ...
-instance toRoman Int where ...
-instance toRoman Real where ...
-instance toRoman {#Char} where ...
-
-class fromRoman a :: !Roman -> a
-instance fromRoman Int where ...
-instance fromRoman Char where ...
-instance fromRoman Real where ...
-instance fromRoman {#Char}where ...
-
-instance rem Roman where ...
-instance gcd Roman where ...
-instance lcm Roman where ...
-
-Start :: (Roman,String,Int,Int)
-Start = (r,fromRoman r,toInt r,n)
-where
- r = (toRoman 42) * (toRoman 101)
- n = 42 * 101
|