git.iko.soy/elk
on master help sign in
Add `count` function.
f71a08aevancz
core-elm/Automaton.elm+3
compare with master
unifiedsplit
@@ -26,6 +26,7 @@ combine :: Container c => c (Automaton a b) -> Automaton a (c b)
26init :: b -> (a -> b -> b) -> Automaton a b
26init :: b -> (a -> b -> b) -> Automaton a b
27init' :: s -> (a -> s -> (b,s)) -> Automaton a b
27init' :: s -> (a -> s -> (b,s)) -> Automaton a b
28
28
29+count :: Automaton a Int
29draggable :: Form -> Automaton (Bool,(Int,Int)) Form
30draggable :: Form -> Automaton (Bool,(Int,Int)) Form
30
31
31--}
32--}
@@ -48,3 +49,5 @@ init s step =
48
49
49init' s step =
50init' s step =
50 Automaton (\a -> let (b,s') = step a s in (b, init s' step))
51 Automaton (\a -> let (b,s') = step a s in (b, init s' step))
52+
53+count = init 0 (\_ c -> c + 1)