@@ -80,12 +80,12 @@ average : Int -> Automaton Float Float
8080average k =
8181 let step n (ns,len,sum) =
8282 if len == k then stepFull n (ns,len,sum)
83− else ((enqueue n ns, len+1, sum+n), (sum+n) / (len+1))
83+ else ((enqueue n ns, len+1, sum+n), (sum+n) / (toFloat len+1))
8484 stepFull n (ns,len,sum) =
8585 case dequeue ns of
8686 Nothing -> ((ns,len,sum), 0)
8787 Just (m,ns') -> let sum' = sum + n - m
88− in ((enqueue n ns', len, sum'), sum' / len)
88+ in ((enqueue n ns', len, sum'), sum' / toFloat len)
8989 in hiddenState (empty,0,0) step
9090
9191