@@ -80,12 +80,12 @@ average : Int -> Automaton Float Float
80average k =
80average k =
81 let step n (ns,len,sum) =
81 let step n (ns,len,sum) =
82 if len == k then stepFull n (ns,len,sum)
82 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))
84 stepFull n (ns,len,sum) =
84 stepFull n (ns,len,sum) =
85 case dequeue ns of
85 case dequeue ns of
86 Nothing -> ((ns,len,sum), 0)
86 Nothing -> ((ns,len,sum), 0)
87 Just (m,ns') -> let sum' = sum + n - m
87 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)
89 in hiddenState (empty,0,0) step
89 in hiddenState (empty,0,0) step