- プログラミングのお題スレ Part4
225 ：デフォルトの名無しさん[]：2014/06/26(木) 09:15:51.05 ID:anyqRfvP - >>224 Common Lisp
(format t "~{n=~D, ~D steps.~}~%"
(loop for n from 1 upto 10000
collect (loop for count upfrom 0
for i = n then (if (evenp i) (/ i 2) (* (+ i 1) 3))
until (= i 3)
finally (return (list n count)))
into seq
finally (return (first (sort seq #'> :key #'second)))))
出力:
n=7421, 239 steps.
|
|