From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- 1415/files/practicum/StdRoman.icl | 46 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 1415/files/practicum/StdRoman.icl (limited to '1415/files/practicum/StdRoman.icl') diff --git a/1415/files/practicum/StdRoman.icl b/1415/files/practicum/StdRoman.icl new file mode 100644 index 0000000..fec4461 --- /dev/null +++ b/1415/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 -- cgit v1.2.3