Update ajacks41-inlining-unrolling.lisp

BrownCS1260 · Dec 5, 2024 · a1adae8 · a1adae8
1 parent 140c430
commit a1adae8
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/benchmarks/ajacks41-inlining-unrolling.lisp b/benchmarks/ajacks41-inlining-unrolling.lisp
@@ -1,3 +1,6 @@
-(define (add_pair_elements p) (+ (left p) (right p)))
-(define (sum n acc) (if (= n 0) acc (sum (sub1 n) (+ acc n))))
-(print (+ (add_pair_elements (pair 5 5)) (sum 3 0)))
+(define (pairadd p) (+ (left p) (right p)))
+(define (sum n acc)
+    (if (= n 0)
+        acc
+        (sum (- n 1) (+ acc n))))
+(print (+ (pairadd (pair 5 5)) (sum 3 0)))