Project Euler

Project Euler Problem 63

steloflute 2012. 10. 5. 15:59

http://projecteuler.net/problem=63


Problem 63

13 February 2004

The 5-digit number, 16807=75, is also a fifth power. Similarly, the 9-digit number, 134217728=89, is a ninth power.

How many n-digit positive integers exist which are also an nth power?


Answer:
49




* Racket


#lang racket
(define (digits n)
  (add1 (floor (/ (log n) (log 10)))))

(define sum 0)
(define d 1)
(for* ([n (in-range 1 10)]
       [d (in-range 1 22)])
  (when (= d (digits (expt n d)))
    (set! sum (add1 sum))))

(print sum)






'Project Euler' 카테고리의 다른 글

Project Euler Problem 65  (0) 2012.10.11
Project Euler Problem 64  (0) 2012.10.07
Project Euler Problem 62  (0) 2012.10.05
Project Euler Problem 61  (0) 2012.10.04
(Haskell) Project Euler Solutions  (0) 2012.06.12