miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed cfold

Browse Source
This commit is contained in:
Sharjeel Khan
2022-11-11 04:01:08 -05:00
parent 4eb42d48f9
commit d440260d1c
5 changed files with 32 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
koka_bench/newlisp/newlisp-slow-fexpr-deriv.nl
View File

@@ -79,7 +79,7 @@
('A f g) (+ (countD f) (countD g))
('M f g) (+ (countD f) (countD g))
('P f g) (+ (countD f) (countD g))
('L f g) (countD f))))
('L f g) (countD f)))
(define (nest-aux s f n x) (cond ((= n 0) x)
(true (nest-aux s f (- n 1) (f (- s n) x)))))