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 --- files/practicum/StdRoman.icl | 46 -------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 files/practicum/StdRoman.icl (limited to 'files/practicum/StdRoman.icl') 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 -- cgit v1.2.3