- 847 名前：デフォルトの名無しさん mailto:sage [2008/06/10(火) 04:39:42 ]
- こっちはGauche
(define (yakusuu x)
(let ((y ()))
(do ((i 2 (+ i 1)))
((>= i x))
(if (= (remainder x i) 0) (push! y i)))
(reverse y)
)
)
(print (yakusuu 100))
(use srfi-1)
(define (yakusuu2 x)
(filter (lambda (a) (if (= (remainder x a) 0) a #f)) (iota (- x 2) 2))
)
(print (yakusuu2 100))
どっちも似たような感じになってるのが分かると思う
あんまり変に考えないで気楽にLispに触れるのがいいよ
そのうち馴れるさ
yakusuu2はおまけですw
Lisp脳ってたぶんこんな感じのを想像したんじゃないかな？
