Update ajacks41-inlining-unrolling.lisp

BrownCS1260 · Dec 5, 2024 · b2e40b5 · b2e40b5
1 parent a1adae8
commit b2e40b5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/benchmarks/ajacks41-inlining-unrolling.lisp b/benchmarks/ajacks41-inlining-unrolling.lisp
@@ -1,6 +1,6 @@
-(define (pairadd p) (+ (left p) (right p)))
+(define (f 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)))
+(print (+ (f (pair 5 5)) (sum 3 0)))