diff options
Diffstat (limited to 'files/practicum/StdRoman.icl')
-rw-r--r-- | files/practicum/StdRoman.icl | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/files/practicum/StdRoman.icl b/files/practicum/StdRoman.icl new file mode 100644 index 0000000..fec4461 --- /dev/null +++ b/files/practicum/StdRoman.icl @@ -0,0 +1,46 @@ +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
|