【激突】関数型言語 VS オブジェクト指向言語2at TECH【激突】関数型言語 VS オブジェクト指向言語2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト286:デフォルトの名無しさん 12/04/13 17:33:52.32 >>284 ${_}$s←ﾊﾞｸﾞ package FizzBuzzGizz; sub new { my ($c, $n) = @_; bless \"$n." } sub comm { my ($t, $r, $s) = @_; 0 == $$t % $r ? \"$${t}$s": $t } sub fizz {bless comm((shift), 3, 'Fizz')} sub buzz {bless comm((shift), 5, 'Buzz')} sub gizz {bless comm((shift), 7, 'Gizz')} 1; package main; for (qw(1 3 5 7 15 21 35 105)) { print ${new FizzBuzzGizz($_)->fizz->buzz->gizz} . "\n" } 287:デフォルトの名無しさん 12/04/13 17:45:43.30 >>286 ｵｯﾁｬﾝ、どうせ書くならこうやろ package FizzBuzzGizz; sub new { my ($c, $n) = @_; bless \"$n." } sub com { my ($t, $m, $s) = @_; bless 0 == $$t % $m ? \($$t.$s): $t } sub fizz {com(shift, 3, 'Fizz')} sub buzz {com(shift, 5, 'Buzz')} sub gizz {com(shift, 7, 'Gizz')} 1; package main; for (qw(1 3 5 7 15 21 35 105)) { print ${new FizzBuzzGizz($_)->fizz->buzz->gizz} . "\n" } 大差ないか… 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch