FizzBuzz 問題 - Akimosphere side H mod 1Whitespace で書いてみた〔を〕。 ……シンタックスハイライトの対応言語に whitespace ってあるのに、ハイライトされないよー〔笑〕？
TAKESAKO @ Yet another Cybozu Labs: FizzBuzz - Golf Challenge
FizzBuzzプログラムを書くのが流行っているみたいなので私も参加してみることに。 Perl部門 1. 目指せ最短 （perl -eも含めて56byte） perl -e'die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/}1..1e2' ※ perl -lオプションを使わずに最短を目指す。標準エラー出力がNGの場合はprintを使って57byteに perl -e'print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2' ※ anarchy golf - FizzBuzz で換算すると48byteでPerl最短 (perl -eを含めない) print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2 これだと perl FizzBuzz.pl と実行できて Code Golf
正規表現でFizzBuzz - Unknown::Programming
1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は.. 1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は出てないかなと思ったけど(出てたらごめんなさい＞＜)、正規表現あんまり得意じゃないので私にはできません。 それはね、 use Perl6::Say; use Regexp::Assemble; my @list = (15,5,3); my %ra = map { $_ => Regexp::Assemble->new } @list; for my $i ( 1..100 ) { for( @list ) { ($i % $_) || $ra{$_}->add(qq/^$i\$/); } } my $re = sprintf "(?:%s)" ,join '|' , map { '('.$
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
