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/NotatieFuncties.icl | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 files/practicum/NotatieFuncties.icl (limited to 'files/practicum/NotatieFuncties.icl') diff --git a/files/practicum/NotatieFuncties.icl b/files/practicum/NotatieFuncties.icl deleted file mode 100644 index 87c9b8a..0000000 --- a/files/practicum/NotatieFuncties.icl +++ /dev/null @@ -1,34 +0,0 @@ -module NotatieFuncties - -import StdEnv - -f1 :: Int -f1 = 1 + 5 - -f2 :: Int -f2 = (+) 1 5 - -f3 :: Int Int -> Int -f3 m n -| m < n = m -| otherwise = n - -f4 :: String Int -> String -f4 s n -| n <= 0 = "" -| otherwise = s +++ f4 s (n-1) - -f5 :: Int Int -> Int -f5 x 0 = x -f5 x y = f5 y (x rem y) - -f6 :: (Int,Int) -> Int -f6 x = fst x + snd x - -f7 :: (a,b) -> (b,a) -f7 (a,b) = (b,a) - -f8 :: (a,a) -> (a,a) -f8 x = f7 (f7 x) - -Start = f1 -- cgit v1.2.3