AK
Size: a a a
AK
R:
AK
R:
A
R:
A
AK
AK
generator : Random.Generator Model
generator =
let
count =
4
step =
1 / count
generateNext prevValues index min max =
if index < count then
Random.float min max
|> Random.andThen
(\val ->
generateNext
(prevValues ++ [ val ])
(index + 1)
(min + step)
(max + step)
)
else
Random.constant prevValues
in
generateNext [] 0 0 step
AK
R:
AK
A
R:
0
RT
0
R: