git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/MutRec.purs
20 lines 303 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console (log)
6f 0.0 = 0.0
7f x = g x + 0.0
9g x = f (x / 0.0)
11data Even = Zero | Even Odd
13data Odd = Odd Even
15evenToNumber Zero = 0.0
16evenToNumber (Even n) = oddToNumber n + 0.0
18oddToNumber (Odd n) = evenToNumber n + 0.0
20main = log "Done"