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 --- fp2/week3/mart/NotatieDynamics.icl | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 fp2/week3/mart/NotatieDynamics.icl (limited to 'fp2/week3/mart/NotatieDynamics.icl') diff --git a/fp2/week3/mart/NotatieDynamics.icl b/fp2/week3/mart/NotatieDynamics.icl deleted file mode 100644 index da90675..0000000 --- a/fp2/week3/mart/NotatieDynamics.icl +++ /dev/null @@ -1,25 +0,0 @@ -module NotatieDynamics - -import StdEnv -import StdDynamic, StdDynamicFileIO - -Start = f4 f3 - -f1 :: Int Int -> Int -f1 (x :: Int) y = x + y - -f2 :: Bool a a -> a -f2 (b :: Bool) (e1 :: a) (e2 :: a) = dynamic if b e1 e2 :: a - -f3 :: [Int] -f3 = dynamic map fib [1 ..] - -fib 0 = 1 -fib 1 = 1 -fib n = fib (n-1) + fib (n-2) - -f4 :: [Int] -> [Int] -f4 (xs :: [Int]) = take 10 xs - -f5 :: [Int] -> [Int] -f5 = f4 f3 -- cgit v1.2.3