youz

;;; http://golf.shinh.org/p.rb?FizzBuzz#Common%20LISP

;; 80bytes
(dotimes(i 101)(format(> i 0)"~[~;~A~;~;Fizz~;~;Buzz~:;FizzBuzz~]
"(gcd i 15)i))

;; 79bytes
(dotimes'101(format(> .'0)"~[~;~A~;~;Fizz~;~;Buzz~:;FizzBuzz~]
"(gcd .'15).'t))

ntddk

// お題
// http://togetter.com/li/92612
// FizzBuzzを３０バイトで

// my code
// 1.
//main(_){printf(_%15?_%3?_%5?"%d\n":"Buzz\n":"Fizz\n":"FizzBuzz\n",_);main(++_);}
// 80bytes
// 2.
main(_){printf(_%3?_%5?"%d":0:"Fizz",_);puts(_%5?"":"Buzz");main(++_);}