summaryrefslogtreecommitdiff
path: root/fp2/week1/mart/Galgje.icl
blob: e5106eee322b8645559cb5351de14efef27ac005 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
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