| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'data/unit-testing/fold.fate')
| -rw-r--r-- | data/unit-testing/fold.fate | 16 |
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 ) ) |


