yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix type error in Automaton library

Browse source
This commit is contained in:
Evan Czaplicki 2013-08-12 01:09:45 -07:00
parent a736a28a43
commit 17628a0a26
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
libraries/Automaton.elm
View file

@ -80,12 +80,12 @@ average : Int -> Automaton Float Float
average k =
let step n (ns,len,sum) =
if len == k then stepFull n (ns,len,sum)
else ((enqueue n ns, len+1, sum+n), (sum+n) / (len+1))
else ((enqueue n ns, len+1, sum+n), (sum+n) / (toFloat len+1))
stepFull n (ns,len,sum) =
case dequeue ns of
Nothing -> ((ns,len,sum), 0)
Just (m,ns') -> let sum' = sum + n - m
in ((enqueue n ns', len, sum'), sum' / len)
in ((enqueue n ns', len, sum'), sum' / toFloat len)
in hiddenState (empty,0,0) step