public
Last active

  • Download Gist
gistfile1.sls
Scheme
1 2 3 4 5 6 7
#lang racket
 
(define (list-sum l k)
(if (null? l)
(k 0)
(list-sum (cdr l)
(lambda (s) (k (+ s (car l)))))))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.