[ create a new paste ] login | about

Project: programmingpraxis
Link: http://programmingpraxis.codepad.org/A1240SS8    [ raw code | output | fork ]

programmingpraxis - Scheme, pasted on Dec 13:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; 115132219018763992565095597973971522401

(define (digits n . args)
  (let ((b (if (null? args) 10 (car args))))
    (let loop ((n n) (d '()))
      (if (zero? n) d
          (loop (quotient n b)
                (cons (modulo n b) d))))))

(define (sum xs) (apply + xs))

(define (pow n) (lambda (x) (expt x n)))

(do ((n 1 (+ n 1))) (#f)
  (let ((ds (digits n)))
    (when (= (sum (map (pow (length ds)) ds)) n)
      (display n) (newline))))


Output:
1
2
3
4
5
6
7
8
9
153
370
371
407
1634
8208
9474
54748
92727
93084
548834

Timeout


Create a new paste based on this one


Comments: