変形Fizz-Buzz問題
Posted feedbacks - Common Lisp
format で分岐とか……
1 2 3 | (loop for x from 1 to 20
do (format t "~2D:~[Fizz~[Buzz~]~:;~[Buzz~:;hoge~]~]~%"
x (mod x 3) (mod x 5)))
|
#3800 がなんとなくインチキっぽい気がしたので別の方針で。 Fermat の小定理を使ってます。
1 2 3 4 5 | (loop for x from 1 to 20
do (format t "~2D:~A~%" x
(aref #("FizzBuzz" "Buzz" "Fizz" "hoge")
(+ (mod (expt x 2) 3)
(* 2 (mod (expt x 4) 5))))))
|


raynstard
#3758()
Rating0/2=0.00
[ reply ]