fizzbuzz

-module(fb).
-export([m/0]).
-define(r(M),N rem M<1->).
m()->[io:format(if?r(15)"FizzBuzz";?r(3)"Fizz";?r(5)"Buzz";true->integer_to_list(N)end++[10])||N<-lists:seq(1,100)].

今までコードゴルフに取り組んだことがなかったので,取っかかりとして簡単そうな fizzbuzz のプログラムを書いてみた.なんか色々試してみたけれど結局このコードに収まってしまい,これ以上短くしようとすると逆に長くなったりしたので諦めた.
anarchy golf の問題ページを見ると最短のコードは 150B とかなってて,頭悪い自分はこーいうものをやるべきではないという結論に達したけれどまあ普通に面白かったですしたまにやるのもいいですね.