euler16.scm - project_euler - My Project Euler (https://projecteuler.net) solution code

summary refs log tree commit diff

path: root/euler16.scm

blob: 02607832961644733c84ecfe36bdf9ff4fc588b8 (plain)

(define (sum-digits n)
 (if (= n 0)
  0
  (+ (remainder n 10)
   (sum-digits (floor (/ n 10))))))

(display (sum-digits (expt 2 1000)))
(newline)