_ [プログラミング][Perl] FizzBuzz を試してみた

元ネタは3年以上前のどうしてプログラマに・・・プログラムが書けないのか?でその時はスルーしてたんだけど、最近になって某Y!社の新卒には入社までに、FizzBuzzを61byte,エンジニアは30byteでつくってこいという課題があるというネタで再度目にしたので試してみることにした。

出題には何で区切れという要求はないようだけど、自主的に改行で区切るという前提とした。

愚直に書くと…

#!/usr/bin/perl
for (1..100) {
	if ($_ % 3 == 0 && $_ % 5 == 0) { print 'FizzBuzz'; }
	elsif ($_ % 3 == 0) { print 'Fizz'; }
	elsif ($_ % 5 == 0) { print 'Buzz'; }
	else { print $_; }
	print "\n";
}

198バイト。

簡潔に書き直すと…

#!/usr/bin/perl
for (1..100) {
	my $s;
	$s = 'Fizz' if $_ % 3 == 0;
	$s .= 'Buzz' if $_ % 5 == 0;
	print $s ? "$s\n" : "$_\n";
}

128バイト。

空白や記号をできる限り詰めてワンライナーにすると、

perl -e'for(1..100){my$s;$s=Fizz if$_%3==0;$s.=Buzz if$_%5==0;print$s?"$s\n":"$_\n"}'

85バイト。perl -e を除いても76バイト。

この辺が自分の限界らしい。Y! には到底届かない。

• TAKESAKO @ Yet another Cybozu Labs: FizzBuzz - Golf Challenge
• Kazuho@Cybozu Labs: FizzBuzz - Perl 使って50バイト
• YappoLogs: FizzBuzzのPerlさいたんきろくたっせい(34ばいと)

他のコマンドを組み合わせるのはちょっと反則っぽい感じがするので、Perl でまともな方法だと TAKESAKO さんの56バイト (perl -e 抜きだと47バイト) が限界なのかな。

@Hamachiya2

34byteでFizzBuzz書いたよ。ブラウザのURL欄にコピペすれば実行される → 『javascript:open('http://3.ly/fiz')』 http://togetter.com/li/92612

[Twitter:Hamachiya2/30509429350727681より引用]

ある種の反則技使っても34バイト。

30バイトってのは何なんだろう…。x86 コード直接なら可能なの? 無理そうな予感がプンプンするけど…いや、anarchy golf - FizzBuzz によると x86 の最短は99バイトらしく、FlogScript の36バイトが最短らしい。結局30バイト以内ってのはネタなんだろうか。