PasteRack.org
Paste # 44262
2015-04-30 21:38:40

Fork as a new paste.

Paste viewed 177 times.


Embed:

  1. #lang racket
  2.  
  3. (define (sum n [total 0])
  4.   (if (number? n)
  5.       (+ n total)
  6.       (foldl sum total n)))
  7.  
  8. (sum '(1 (2) ((3 4)) 5))

=>

15