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 --------------------------------- fp1/week1/camil/2.1/antwoorden.txt | 8 ------- 2 files changed, 47 deletions(-) delete mode 100644 fp1/week1/camil/2.1/NotatieFuncties.icl delete mode 100644 fp1/week1/camil/2.1/antwoorden.txt (limited to 'fp1/week1/camil/2.1') 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) diff --git a/fp1/week1/camil/2.1/antwoorden.txt b/fp1/week1/camil/2.1/antwoorden.txt deleted file mode 100644 index c0c98d6..0000000 --- a/fp1/week1/camil/2.1/antwoorden.txt +++ /dev/null @@ -1,8 +0,0 @@ -f1 5+1=6; constant -f2 Reverse polix notation voor f1; zelfde functie dus -f3 Geeft de kleinste van twee integers terug -f4 Herhaalt s n keer -f5 Geeft de ggd van x en y met Euclides' algoritme -f6 Geeft de optelling x+y voor een tupel (x,y) -f7 Flipt de twee elementen van een tupel -f8 Flipt de twee elementen van een tupel twee keer (heeft geen effect) -- cgit v1.2.3