git.iko.soy/rowtype-yoga/purescript-native
on 61034ea help sign in
rowtype-yoga/purescript-native/examples/passing/MutRec.purs
19 lines 290 B history raw
1module Main where
3import Prelude
5f 0.0 = 0.0
6f x = g x + 0.0
8g x = f (x / 0.0)
10data Even = Zero | Even Odd
12data Odd = Odd Even
14evenToNumber Zero = 0.0
15evenToNumber (Even n) = oddToNumber n + 0.0
17oddToNumber (Odd n) = evenToNumber n + 0.0
19main = Control.Monad.Eff.Console.log "Done"