bldc/tests/test_fold_0.lisp


(define fold (lambda (f i xs)
               (if (eq xs nil)
                   i
                   (fold f (f i (car xs)) (cdr xs)))))

(check (= (fold '+ 0 (list 1 2 3 4 5 6 7 8 9 10)) 55))
Squashed 'lispBM/lispBM/' content from commit 748477b9 git-subtree-dir: lispBM/lispBM git-subtree-split: 748477b953fbd06094fc17c1c6332bf5f9cea7d0 2022-01-29 08:26:45 -08:00
			`(define fold (lambda (f i xs)`
Squashed 'lispBM/lispBM/' changes from eead0b27..78047efe 78047efe update 615f0d3c = now behaves as num-eq did and num-eq has been removed. for structural equality use eq 25cd006a define will give evaluation error if given more than 2 arguments git-subtree-dir: lispBM/lispBM git-subtree-split: 78047efe2b9ce60c841f85179539a62e1b1c48e5 2022-03-08 08:48:01 -08:00			`(if (eq xs nil)`
Squashed 'lispBM/lispBM/' content from commit 748477b9 git-subtree-dir: lispBM/lispBM git-subtree-split: 748477b953fbd06094fc17c1c6332bf5f9cea7d0 2022-01-29 08:26:45 -08:00			`i`
			`(fold f (f i (car xs)) (cdr xs)))))`

Squashed 'lispBM/lispBM/' changes from f7c74492..5659e40a 5659e40a low-level flash errors propagate into the evaluator cd881c01 tweak lbmref db42aac7 tweak lbmref d1033e98 tweak lbmref 77783470 tweak refman bufcreate d9575830 incremental read-evaluate. Removed all types of arrays except for byte-arrays d5d5fdf1 type checking in array-extensions ca072954 buflen is ok on constant arrays 90614b33 bugfix in lbm_channel string_write de62dbd7 only one is_closure func git-subtree-dir: lispBM/lispBM git-subtree-split: 5659e40aac7a1e43b158a978e4e633ef118afeeb 2023-04-04 03:36:41 -07:00			`(check (= (fold '+ 0 (list 1 2 3 4 5 6 7 8 9 10)) 55))`
Squashed 'lispBM/lispBM/' content from commit 748477b9 git-subtree-dir: lispBM/lispBM git-subtree-split: 748477b953fbd06094fc17c1c6332bf5f9cea7d0 2022-01-29 08:26:45 -08:00