problem 12
約数が 500 以上ある最少の数を求める問題です。
d:id:mtsuyugu:20080815:1218805119 の prime.scm を利用しています。
(load "./prime.scm") (define (tri n) (/ (* n (+ n 1)) 2)) (define (p12) (let loop ((i 2)) (let* ((tri (tri i)) (num-div (num-of-divisor tri))) (if (>= num-div 500) tri (loop (+ i 1)))))) (print (p12))