Hatena::Groupfizzbuzz

id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記

 | 

2010-07-31Perl 6 このエントリーのブックマークコメント

クリスマスの日(2日前)にやればよかった...

use v6;

for 1..100 -> $n {
    given $n % 3 == 0, $n % 5 == 0 {
        when 0, 0 { say $n }
        when 0, 1 { say "Buzz" }
        when 1, 0 { say "Fizz" }
        when 1, 1 { say "FizzBuzz" }
    }
}


追記:

はてなさんsyntax=perl6対応おねがいします!

公式ではとっくにperl6用のシンタックスファイルが書かれているし*1

shebangにperl6を含んでいたら検知するようにもなってるし、

*.p6とか*.pm6の拡張子を持つファイルを開いたら自動的にハイライトするようにもなってますよ!*2

*1::help added-7.3

*2:あ、ちなみにパッチ送ったのは僕です、えへへ

 |