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