fork(1) download
copy 
  1. ; modified coin change
  2.  
  3. (define (digits n . args)
  4.   (let ((b (if (null? args) 10 (car args))))
  5.     (let loop ((n n) (d '()))
  6.       (if (zero? n) d
  7.           (loop (quotient n b)
  8.                 (cons (modulo n b) d))))))
  9.  
  10. (define (sum xs) (apply + xs))
  11.  
  12. (define (f n) (sum (digits n 5)))
  13.  
  14. (display (f 42)) (newline)
  15. (display (f 142)) (newline)
Success #stdin #stdout 0.01s 7920KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
6
6
https://ideone.com/bgOJvY
language:
Scheme (chicken 4.13)
created:
4 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!