git.iko.soy/rowtype-yoga/purescript-native
on e82e607 help sign in
rowtype-yoga/purescript-native/examples/passing/TopLevelCase.purs
18 lines 301 B history raw
1module Main where
3 import Prelude
5 gcd :: Number -> Number -> Number
6 gcd 0 x = x
7 gcd x 0 = x
8 gcd x y | x > y = gcd (x % y) y
9 gcd x y = gcd (y % x) x
11 guardsTest (x:xs) | x > 0 = guardsTest xs
12 guardsTest xs = xs
14 data A = A
16 parseTest A 0 = 0
18 main = Debug.Trace.trace "Done"