tag:blogger.com,1999:blog-1815593124211758484.post5971514200397623451..comments2021-05-07T11:14:22.610+09:00Comments on 僕のIT革命: Project Euler - Problem 3Unknownnoreply@blogger.comBlogger2125tag:blogger.com,1999:blog-1815593124211758484.post-17259732670990639842009-03-20T00:40:00.000+09:002009-03-20T00:40:00.000+09:00速い!当社比400倍ですね。checkが何をしているのか少し悩みました。乗数をカウントして連想リスト...速い!当社比400倍ですね。<BR/>checkが何をしているのか少し悩みました。乗数をカウントして連想リストにしているのか。<BR/>副作用を使ったコードは避けたいのですが、ここまで違うと参るなあ。参考にさせてもらいます。Koichi SATOhttps://www.blogger.com/profile/10151787846154427531noreply@blogger.comtag:blogger.com,1999:blog-1815593124211758484.post-13635735199475335802009-03-19T20:50:00.000+09:002009-03-19T20:50:00.000+09:00(define factorize (lambda (n) (define resu...(define factorize<BR/> (lambda (n)<BR/> <BR/> (define result '()<BR/> <BR/> (define check<BR/> (lambda (n i)<BR/> (let loop ([n n] [c 0])<BR/> (if [zero? (remainder n i)]<BR/> (loop (/ n i) (+ c 1))<BR/> (begin<BR/> (if [> c 0] (set! result (cons (cons i c) result)))<BR/>Anonymousnoreply@blogger.com