#lang plai/gc2/mutator
(allocator-setup "mark-sweep-free-list.rkt" 160)
(define (sum lst)
(cond
[(empty? lst) 0]
[else (+ (first lst) (sum (rest lst)))]))
(sum '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18))
#lang plai/gc2/mutator
(allocator-setup "mark-sweep-free-list.rkt" 160)
(define (sum lst)
(cond
[(empty? lst) 0]
[else (+ (first lst) (sum (rest lst)))]))
(sum '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18))