summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'data/unit-testing/fold.fate')
-rw-r--r--data/unit-testing/fold.fate16
1 files changed, 10 insertions, 6 deletions
diff --git a/data/unit-testing/fold.fate b/data/unit-testing/fold.fate
index 7148aa2..ec3fa8a 100644
--- a/data/unit-testing/fold.fate
+++ b/data/unit-testing/fold.fate
@@ -53,12 +53,14 @@
(set! 10to0_1
(list:foldr
- (lambda (((list int) res) (int e) (int mod))
- (list:add (- e mod) res)
+ (partial
+ (lambda ((int mod) ((list int) res) (int e))
+ (list:add (- e mod) res)
+ )
+ 10
)
(default (list int))
(list:range 10 20 1)
- 10
)
)
@@ -143,12 +145,14 @@
(set! 10to20_1
(list:foldl
- (lambda (((list int) res) (int e) (int mod))
- (list:add (- e mod) res)
+ (partial
+ (lambda ((int mod) ((list int) res) (int e))
+ (list:add (- e mod) res)
+ )
+ 10
)
(default (list int))
(list:range 20 30 1)
- 10
)
)