You are here: Home → Blog → Comments → [scheme] Collatz 予想 (キミならどう書く 2.0 - ROUND 2 -)

Personal tools

« August 2009 »
Su Mo Tu We Th Fr Sa
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31          
 

[scheme] Collatz 予想 (キミならどう書く 2.0 - ROUND 2 -)

Posted by tomapd == 22% at 2006-07-17 15:20
時間ができたので考えてみた。そのまま素直に書いてみた。 #!/usr/bin/env gosh (define (g n) (define (f n step) (cond ((= n 1) step) ((even? n) (f (/ n 2) (+ step 1))) ((odd? n) (f (+ (* n 3) 1) (+ step 1))))) (f n 1)) (define (h n) (let loop ((i 1) (k 1
Parent entry キミならどう書く 2.0 - ROUND 2 -