Skip to content

Commit

Permalink
test
Browse files Browse the repository at this point in the history
  • Loading branch information
lukaszcz committed Aug 13, 2024
1 parent 44213af commit 833ef24
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 1 deletion.
2 changes: 1 addition & 1 deletion tests/Compilation/positive/out/test056.out
Original file line number Diff line number Diff line change
@@ -1 +1 @@
69
103
2 changes: 2 additions & 0 deletions tests/Compilation/positive/test056.juvix
Original file line number Diff line number Diff line change
Expand Up @@ -54,6 +54,8 @@ main : Nat :=
sum (myfilter (const false) [])
+ sum (mymap λ {x := x + 3} (1 :: 2 :: 3 :: 4 :: nil))
+ sum (flatten (mymap (mymap λ {x := x + 2}) ((1 :: nil) :: (2 :: 3 :: nil) :: nil)))
+ sum (map λ {x := x + 3} (1 :: 2 :: 3 :: 4 :: nil))
+ sum (flatten (map (map λ {x := x + 2}) ((1 :: nil) :: (2 :: 3 :: nil) :: nil)))
+ myf 3 (*) 2 5 true
+ myf 1 (+) 2 0 false
+ myf' 7 (const (+)) 2 0
Expand Down

0 comments on commit 833ef24

Please sign in to comment.