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 --- fp1/week1/camil/2.1/NotatieFuncties.icl | 39 --------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 fp1/week1/camil/2.1/NotatieFuncties.icl (limited to 'fp1/week1/camil/2.1/NotatieFuncties.icl') diff --git a/fp1/week1/camil/2.1/NotatieFuncties.icl b/fp1/week1/camil/2.1/NotatieFuncties.icl deleted file mode 100644 index bab2054..0000000 --- a/fp1/week1/camil/2.1/NotatieFuncties.icl +++ /dev/null @@ -1,39 +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 = (f3 1 5, f3 4 3, f3 6 6) -//Start = f4 "ab" 4 -//Start = (f5 13 5, f5 8 4, f5 20 20) -//Start = f6 (2,3) -//Start = f7 (5,7) -Start = f8 (5,7) -- cgit v1.2.3