examples/passing/Arrays.ps · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on 558cd4e help sign in

14 lines 296 B history raw

1test1 = \arr -> arr !! 0 + arr !! 1

3test2 = \arr -> case arr of

4 [x, y] -> x + y

5 [x] -> x

6 [] -> 0

7 [x, y : _] -> x + y

9data Tree = One Number | Some [Tree]

11test3 = \(tree, sum) -> case tree of

12 One n -> n

13 Some [n1, n2 : rest] -> test3(n1, sum) * 10 + test3(n2, sum) * 5 + sum(rest)