files/practicum/RandomGetallen.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

implementation module RandomGetallen

import StdEnv, Random

Start :: *World -> ([Int],*World)
Start world
# (rs,world)	= getNewRandomSeed world
= (shuffle [1..10] rs,world)

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

random_inf :: RandomSeed -> [Int]
random_inf ...

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

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