git.iko.soy/rowtype-yoga/purescript-native
on 24fdff2 help sign in
rowtype-yoga/purescript-native/examples/passing/TopLevelCase.purs
18 lines 291 B history raw
1module Main where
3import Prelude
5gcd :: Number -> Number -> Number
6gcd 0.0 x = x
7gcd x 0.0 = x
8gcd x y | x > y = gcd (x `mod` y) y
9gcd x y = gcd (y `mod` x) x
11guardsTest [x] | x > 0.0 = []
12guardsTest xs = xs
14data A = A
16parseTest A 0.0 = 0.0
18main = Control.Monad.Eff.Console.log "Done"