Moved to 1415 directoryHEADmaster

12 files changed, 0 insertions, 161 deletions

diff --git a/fp2/week1/mart/Echo b/fp2/week1/mart/Echo
deleted file mode 100755
index cf2fb79..0000000
--- a/fp2/week1/mart/Echo
+++ /dev/null
diff --git a/fp2/week1/mart/Echo.icl b/fp2/week1/mart/Echo.icl
deleted file mode 100644
index 30a6f4b..0000000
--- a/fp2/week1/mart/Echo.icl
+++ /dev/null
@@ -1,11 +0,0 @@
-module Echo

-

-import StdEnv

-

-

-Start :: *World -> *World

-Start world

-# (console, world) = stdio world

-# (line, console) = freadline console

-| not (fend console) = fwrites line

-| otherwise = world

diff --git a/fp2/week1/mart/Galgje b/fp2/week1/mart/Galgje
deleted file mode 100755
index d46de77..0000000
--- a/fp2/week1/mart/Galgje
+++ /dev/null
diff --git a/fp2/week1/mart/Galgje.icl b/fp2/week1/mart/Galgje.icl
deleted file mode 100644
index e5106ee..0000000
--- a/fp2/week1/mart/Galgje.icl
+++ /dev/null
@@ -1,13 +0,0 @@
-module Galgje

-

-import StdEnv, Random

-

-//randomWord :: *env -> (Maybe String, *env) | FileSystem env                     

-//randomWord env                                                                  

-//# (ss,env) = readLines lexicon_file env                                         

-//| ss == Nothing = (Nothing, env)                                                

-//# (seed,env) = getNewRandomSeed env                                             

-//| otherwise = (Just (skip_nl ((shuffle (fromJust ss) seed)!!0)), env) 

-

-Start :: *World -> *World

-Start world = world

diff --git a/fp2/week1/mart/GalgjeWF.dcl b/fp2/week1/mart/GalgjeWF.dcl
deleted file mode 100644
index a777b95..0000000
--- a/fp2/week1/mart/GalgjeWF.dcl
+++ /dev/null
@@ -1,5 +0,0 @@
-definition module GalgjeWF

-

-import iTasks

-

-galgje :: [Workflow]

diff --git a/fp2/week1/mart/Random.dcl b/fp2/week1/mart/Random.dcl
deleted file mode 100644
index 47a7c18..0000000
--- a/fp2/week1/mart/Random.dcl
+++ /dev/null
@@ -1,19 +0,0 @@
-definition module Random
-
- // Random number generator voor Linux gebruikers
- // interface compatible met Random.dcl (helaas)
- // -- mschool@science.ru.nl
-
-import StdFile
-
-:: RandomSeed 
-
-// nullRandomSeed generates a fixed RandomSeed
-nullRandomSeed :: RandomSeed
-
-// GetNewRandomSeed generates a good RandomSeed, using /dev/urandom
-getNewRandomSeed :: !*env -> (!RandomSeed, !*env) | FileSystem env
-
-// Given a RandomSeed, Random generates a random number and a new RandomSeed.
-random :: !RandomSeed -> .(!Int, !RandomSeed)
-
diff --git a/fp2/week1/mart/Random.icl b/fp2/week1/mart/Random.icl
deleted file mode 100644
index b6e0768..0000000
--- a/fp2/week1/mart/Random.icl
+++ /dev/null
@@ -1,20 +0,0 @@
-implementation module Random
-
-import StdFile, StdList, StdMisc, StdArray, Random
-
-:: RandomSeed :== Int
-
-nullRandomSeed :: RandomSeed
-nullRandomSeed = 0
-
-getNewRandomSeed :: !*env -> (!RandomSeed, !*env) | FileSystem env
-getNewRandomSeed env
-# (ok, src, env) = sfopen "/dev/urandom" FReadData env
-| not ok => abort "could not open /dev/urandom"
-# (bytes, src)   = sfreads src 4
-  seed           = foldl (\x y->(x<<8)+toInt y) 0 [c \\ c<-:bytes]
-| otherwise => (seed, env)
-
-random :: !RandomSeed -> .(!Int, !RandomSeed)
-random seed = (seed>>16 bitand 0xFFFF, seed*0x08088405+1)
-
diff --git a/fp2/week1/mart/RandomGetallen b/fp2/week1/mart/RandomGetallen
deleted file mode 100755
index 0482437..0000000
--- a/fp2/week1/mart/RandomGetallen
+++ /dev/null
diff --git a/fp2/week1/mart/RandomGetallen.dcl b/fp2/week1/mart/RandomGetallen.dcl
deleted file mode 100644
index 66a2c6c..0000000
--- a/fp2/week1/mart/RandomGetallen.dcl
+++ /dev/null
@@ -1,7 +0,0 @@
-definition module RandomGetallen

-

-import Random

-

-random_n	:: Int RandomSeed -> ([Int],RandomSeed)

-random_inf	::     RandomSeed ->  [Int]

-//shuffle		:: [a] RandomSeed ->  [a]

diff --git a/fp2/week1/mart/RandomGetallen.icl b/fp2/week1/mart/RandomGetallen.icl
deleted file mode 100644
index b756c91..0000000
--- a/fp2/week1/mart/RandomGetallen.icl
+++ /dev/null
@@ -1,33 +0,0 @@
-implementation module RandomGetallen

-

-import StdEnv, Random

-

-//Start :: *World -> ([Int],*World)

-//Start world

-//# (rs,world)	= getNewRandomSeed world

-//= (shuffle [1..10] rs,world)

-

-

-Start = shuffle [1..10] nullRandomSeed

-

-random_n :: Int RandomSeed -> ([Int],RandomSeed)

-random_n n seed = seqList (repeatn n random) seed

-

-random_inf :: RandomSeed -> [Int]

-random_inf seed = iterateSt random seed

-

-iterateSt :: (s -> (a,s)) s -> [a]

-iterateSt f s = [a : iterateSt f s`]

-where

-	(a,s`) = f s

-

-shuffle :: [a] RandomSeed -> [a]

-shuffle xs seed = (perms xs) !! ((fst (random seed)) rem (fac (length xs)))

-

-fac :: Int -> Int

-fac 0 = 1

-fac n = n * fac (n-1)

-

-perms :: [a] -> [[a]]

-perms [] = [[]]

-perms xs = [[xs!!i : xs`] \\ i <- [0..length xs - 1] , xs` <- perms (take i xs ++ drop (i+1) xs)]

diff --git a/fp2/week1/mart/SimpleFileIO.dcl b/fp2/week1/mart/SimpleFileIO.dcl
deleted file mode 100644
index 1bd97da..0000000
--- a/fp2/week1/mart/SimpleFileIO.dcl
+++ /dev/null
@@ -1,14 +0,0 @@
-definition module SimpleFileIO

-

-import StdFile, StdOverloaded, StdMaybe

-

-// 1.

-readFile	:: String                 *env -> (Maybe String,  *env) | FileSystem env

-writeFile	:: String String          *env -> (Bool,          *env) | FileSystem env

-

-// 2.

-readLines	:: String                 *env -> (Maybe [String],*env) | FileSystem env

-writeLines	:: String [String]        *env -> (Bool,          *env) | FileSystem env

-

-// 3.

-//mapFile		:: String String (a -> b) *env -> (Bool,          *env) | FileSystem env & ... a & ... b

diff --git a/fp2/week1/mart/SimpleFileIO.icl b/fp2/week1/mart/SimpleFileIO.icl
deleted file mode 100644
index b2a483a..0000000
--- a/fp2/week1/mart/SimpleFileIO.icl
+++ /dev/null
@@ -1,39 +0,0 @@
-implementation module SimpleFileIO

-

-import StdEnv, StdFile, StdOverloaded, StdMaybe

-

-// 1.

-readFile	:: String                 *env -> (Maybe String,  *env) | FileSystem env

-readFile s env

-# (ss, env) = readLines s env

-| ss == Nothing = (Nothing, env)

-| otherwise = (Just (foldl (+++) "" (fromJust ss)), env)

-

-writeFile	:: String String          *env -> (Bool,          *env) | FileSystem env

-writeFile fn s env

-# (ok, outfile, env) = fopen fn FWriteText env

-| not ok = (False, env)

-# outfile = fwrites s outfile

-# (ok, env) = fclose outfile env

-| otherwise = (ok, env)

-

-// 2.

-readLines	:: String                 *env -> (Maybe [String],*env) | FileSystem env

-readLines s env

-# (ok, infile, env) = sfopen s FReadText env

-| not ok = (Nothing, env)

-| otherwise = (Just (fst (readLines` infile)), env)

-where

-	readLines` :: File -> ([String], File)

-	readLines` file 

-	| sfend file = ([], file)

-	# (line, file) = sfreadline file

-	# (ss, file) = readLines` file

-	| otherwise = ([line : ss], file)

-

-writeLines	:: String [String]        *env -> (Bool,          *env) | FileSystem env

-writeLines fn ss env = writeFile fn (foldl (+++) "" [s +++ "\n" \\ s <- ss]) env

-

-// 3.

-//mapFile		:: String String (a -> b) *env -> (Bool,          *env) | FileSystem env & ... a & ... b

-