From a12e2813b03cbb1253d5105f9e8d97781ad11db7 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 8 Sep 2021 21:14:48 +0200 Subject: Bug fixes, more shorthands, and Increment/Decrement instructions --- data/unit-testing/fold.fate | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'data/unit-testing/fold.fate') diff --git a/data/unit-testing/fold.fate b/data/unit-testing/fold.fate index fdb941f..7148aa2 100644 --- a/data/unit-testing/fold.fate +++ b/data/unit-testing/fold.fate @@ -10,12 +10,12 @@ (assert! (= 55 - (foldl + (list:foldl (lambda ((int res) (int e)) (+ res e)) 0 0to10 ) - (foldr + (list:foldr (lambda ((int res) (int e)) (+ res e)) 0 0to10 @@ -24,14 +24,14 @@ [FAILED] (var test_name) Failed sum. (newline) foldl yielded: - (foldl + (list:foldl (lambda ((int res) (int e)) (+ res e)) 0 0to10 ) (newline) foldr yielded: - (foldr + (list:foldr (lambda ((int res) (int e)) (+ res e)) 0 0to10 @@ -42,9 +42,9 @@ (global (list int) 10to0_1) (set! 10to0_0 - (foldr + (list:foldr (lambda (((list int) res) (int e)) - (add (- e 10) res) + (list:add (- e 10) res) ) (default (list int)) (list:range 10 20 1) @@ -52,9 +52,9 @@ ) (set! 10to0_1 - (foldr + (list:foldr (lambda (((list int) res) (int e) (int mod)) - (add (- e mod) res) + (list:add (- e mod) res) ) (default (list int)) (list:range 10 20 1) @@ -132,9 +132,9 @@ (global (list int) 10to20_1) (set! 10to20_0 - (foldl + (list:foldl (lambda (((list int) res) (int e)) - (add (- e 10) res) + (list:add (- e 10) res) ) (default (list int)) (list:range 20 30 1) @@ -142,9 +142,9 @@ ) (set! 10to20_1 - (foldl + (list:foldl (lambda (((list int) res) (int e) (int mod)) - (add (- e mod) res) + (list:add (- e mod) res) ) (default (list int)) (list:range 20 30 1) -- cgit v1.2.3-70-g09d2