git.iko.soy/rowtype-yoga/purescript-native
on 33db511 help sign in
12 lines 237 B history raw
1module Main where
3 import Prelude
5 k :: String -> Number -> String
6 k x y = x
8 iterate :: forall a. Number -> (a -> a) -> a -> a
9 iterate 0 f a = a
10 iterate n f a = iterate (n - 1) f (f a)
12 main = Debug.Trace.trace "Done"