Moved to 1415 directoryHEADmaster

1 files changed, 0 insertions, 58 deletions

diff --git a/fp2/week1/camil/Galgje.icl b/fp2/week1/camil/Galgje.icl
deleted file mode 100644
index 75b09d0..0000000
--- a/fp2/week1/camil/Galgje.icl
+++ /dev/null
@@ -1,58 +0,0 @@
-// Mart Lubbers s4109503, Camil Staps s4498062

-

-module Galgje

-

-import StdEnv, SimpleFileIO, RandomGetallen

-

-lexicon_file = "lexicon.txt"

-

-// Is a Char a member of a String

-isMemberString :: String Char -> Bool

-isMemberString "" c = False

-isMemberString s c = s.[0] == c || isMemberString (s % (1,size s - 1)) c

-

-// From the slides

-skip_nl :: String -> String

-skip_nl str = if (size str > 0 && str.[size str-1] == '\n') (str%(0,size str-2)) str

-

-// From a String and a List of guesses (Chars), return a String that shows dots for letters that were not guessed yet

-stripUnknown :: String [Char] -> String

-stripUnknown s g = toString [if (isMember c g) c '.' \\ c <- (fromString s)]

-

-// Get a random word from the lexicon file

-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)

-

-// word, guesses, mistakes left, stdio -> (win, new guesses, stdio)

-play :: String [Char] Int *File *env -> (Bool, [Char], *File, *env) | FileSystem env

-play w g n io world

-# io = io <<< stripUnknown w g <<< '\n'

-| stripUnknown w g == w = (True, g, io, world)

-# (round,world) = readFile ("round-" +++ (toString n) +++ ".txt") world

-| round == Nothing = abort "Couldn't get gallow"

-# io = io <<< (fromJust round)

-# io = io <<< "Guess (" <<< toString n <<< "): "

-# (ok,g`,io) = freadc io

-# (_,io) = freadline io // to read until the next \n

-| not ok = abort "Couldn't get guessed letter"

-| isMemberString w g` = play w [g`:g] n io world

-| n == 0 = (False, [g`:g], io, world)

-| otherwise = play w [g`:g] (n-1) io world

-

-Start :: *World -> *World

-Start world

-# (word,world) = randomWord world

-| word == Nothing = abort "Couldn't get random word"

-# word = fromJust word

-# (io,world) = stdio world

-# (win,g,io,world) = play word [] 5 io world

-# (lost,world) = readFile "round-lost.txt" world

-| lost == Nothing = abort "Couldn't get gallow"

-# io = if win (io <<< "You win!\n") (io <<< "You lose!\n" <<< fromJust lost)

-# (ok,world) = fclose io world

-| not ok = abort "Couldn't close stdio"

-| otherwise = world