git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/TopLevelCase.purs
19 lines 304 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console (log)
6gcd :: Number -> Number -> Number
7gcd 0.0 x = x
8gcd x 0.0 = x
9gcd x y | x > y = gcd (x `mod` y) y
10gcd x y = gcd (y `mod` x) x
12guardsTest [x] | x > 0.0 = []
13guardsTest xs = xs
15data A = A
17parseTest A 0.0 = 0.0
19main = log "Done"