git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #196 from joneshf/master
2580555Phil Freeman
examples/passing/Arrays.purs+11−4
compare with golang
unifiedsplit
@@ -4,7 +4,7 @@ import Prelude
4
4
5test1 arr = arr !! 0 + arr !! 1 + 1
5test1 arr = arr !! 0 + arr !! 1 + 1
6
6
7−test2 = \arr -> case arr of
7+test2 = \arr -> case arr of
8 [x, y] -> x + y
8 [x, y] -> x + y
9 [x] -> x
9 [x] -> x
10 [] -> 0
10 [] -> 0
@@ -16,12 +16,19 @@ test3 = \tree sum -> case tree of
16 One n -> n
16 One n -> n
17 Some (n1 : n2 : rest) -> test3 n1 sum * 10 + test3 n2 sum * 5 + sum rest
17 Some (n1 : n2 : rest) -> test3 n1 sum * 10 + test3 n2 sum * 5 + sum rest
18
18
19−test4 = \arr -> case arr of
19+test4 = \arr -> case arr of
20 [] -> 0
20 [] -> 0
21 [_] -> 0
21 [_] -> 0
22 x : y : xs -> x * y + test4 xs
22 x : y : xs -> x * y + test4 xs
23−
23+
24module Main where
24module Main where
25
25
26−main = Trace.trace "Done"
26+import Arrays
27+import Prelude
27
28
29+main = do
30+ let x = [3,2,1]
31+ let y = sort x
32+ if x == [3,2,1]
33+ then Trace.trace "Done"
34+ else Errors.throwError "Not done"
prelude/prelude.purs+1−1
@@ -578,7 +578,7 @@ module Arrays where
578
578
579 foreign import sort "function sort(l) {\
579 foreign import sort "function sort(l) {\
580 \ var l1 = l.slice();\
580 \ var l1 = l.slice();\
581− \ l.sort();\
581+ \ l1.sort();\
582 \ return l1;\
582 \ return l1;\
583 \}" :: forall a. [a] -> [a]
583 \}" :: forall a. [a] -> [a]
584
584