\u304b\u306eFizzBuzz\u554f\u984c\u3092Perl 5\u3001Perl 6\u3067\u89e3\u3044\u3066\u307f\u305f\u3002
FizzBuzz\u554f\u984c\u3068\u306f\u30011\u304b\u3089100\u307e\u3067\u306e\u6570\u5b57\u3092\u8868\u793a\u3059\u308b\u4e2d\u3067\u3001
3\u306e\u500d\u6570\u306e\u3068\u304dFizz\u30015\u306e\u500d\u6570\u306e\u3068\u304dBuzz\u3092\u8868\u793a\u3057\u3001\u3069\u3063\u3061\u3082\u5f53\u3066\u306f\u307e\u308b\u306a\u3089FizzBuzz\u3068\u8868\u793a\u3057\u308d\u3002
\u3068\u3044\u3046\u3067\u975e\u5e38\u306b\u6709\u540d\u306a\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u30c6\u30b9\u30c8\u3067\u3059\u3002
\u307e\u3041\u666e\u901a\u306b\u8003\u3048\u308c\u3070\u3053\u3046\u306a\u308a\u305d\u3046\u3002<\/p>\n
for(1..100) {
if($_%3==0) {
print \"Fizz\";
if($_%5==0) { print \"Buzz\"; }
}elsif($_%5==0) {
print \"Buzz\";
}else{
print $_;
}
print \"\\n\";
}<\/pre>\n\u3061\u3087\u3063\u3068\u3081\u3093\u3069\u304f\u3055\u3044\u3067\u3059\u306d\u3002
\u81ea\u5206\u306e\u5f97\u610f\u306a\u65b9\u6cd5\u3067\u5b9f\u73fe\u3067\u304d\u308c\u3070\u3044\u3044\u3067\u3059\u306d\u3002C\u3067\u3082\u3044\u3044\u3057\u3002<\/p>\n
\n\u3068\u3044\u3046\u308f\u3051\u3067\u4e09\u9805\u6f14\u7b97\u5b50\u3092\u4f7f\u3063\u3066\u307f\u305f\u3002
\u3053\u306e\u65b9\u6cd5\u306e\u3088\u3044\u3068\u3053\u308d\u306f1\u884c\u3067\u66f8\u3051\u308b\u304b\u3089{ }\u304c\u304b\u306a\u308a\u7701\u7565\u3067\u304d\u3066\u30b9\u30de\u30fc\u30c8\u3002<\/p>\n
print ($_%3==0 ? 'Fizz' . ($_%5==0 ? 'Buzz' : '') : ($_%5==0 ? 'Buzz' : $_) , \"\\n\") for(1..100) #Perl 5
say $_%3==0 ?? 'Fizz' ~ ($_%5==0 ?? 'Buzz' !! '' ) !! ($_%5==0 ?? 'Buzz' !! $_ ) for 1..100 #Perl 6<\/pre>\n\u308f\u304b\u308a\u306b\u304f\u304f\u306a\u3063\u305f\u3068\u3044\u3046\u4eba\u3082\u3044\u308b\u304b\u3082\u3057\u308c\u3093\u3051\u3069\u306d\u3002
\u3053\u308c\u3067\u3082\u8aad\u307f\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u306b\u5fc5\u8981\u4ee5\u4e0a\u306e\u62ec\u5f27\u3092\u4f7f\u3063\u3066\u3001\u6f14\u7b97\u5b50\u4ed8\u8fd1\u306f\u7a7a\u767d\u5165\u308c\u305f\u3051\u3069\u306d\u3002
Perl 5\u306e\u65b9\u306f\u5909\u306a\u62ec\u5f27\u5165\u3063\u3066\u308b\u3051\u3069\u3001\u6f14\u7b97\u5b50\u306e\u7d50\u5408\u9806\u4f4d\u306e\u90fd\u5408\u3002
\u305d\u3046\u305d\u3046Perl 6\u3067\u306f\u4e09\u9805\u6f14\u7b97\u5b50\u304cA ?? B !! C\u3068\u306a\u308a\u307e\u3059\u3002
\u3055\u3066\u3001\u4e09\u9805\u6f14\u7b97\u5b50\u306e\u8003\u3048\u65b9\u3060\u304c\u3001
($_%5==0 ?? ‘Buzz’ !! $_ )\u3068\u66f8\u3051\u3070\u3001\u305d\u306e\u4e2d\u8eab\u304c$_%5==0\u306e\u5834\u5408\u306f’Buzz’\u306b\u3001\u305d\u308c\u4ee5\u5916\u306f$_\u306b\u5909\u5316\u3059\u308b\u3068\u3002
\u305d\u3046\u8003\u3048\u308b\u3068\u7406\u89e3\u3057\u3084\u3059\u304f\u306a\u308b\u3002\u3060\u304b\u3089\u62ec\u5f27\u3067\u56f2\u3093\u3067\u308b\u306e\u306d\u3002
\u3057\u304b\u3057\u3001\u8151\u306b\u843d\u3061\u306a\u3044\u3068\u3053\u308d\u304c\u3042\u308b\u3002
($_%5==0 ?? ‘Buzz’ !! ”)\u3063\u3066\u306a\u3093\u304b\u7701\u7565\u8868\u8a18\u306a\u3044\u3093\u304b\u3044\u3068\u3002
Excel\u306eIF\u95a2\u6570\u3068\u4e09\u9805\u6f14\u7b97\u5b50\u306f\u4f3c\u3066\u308b\u3068\u8a00\u308f\u308c\u308b\u306e\u3060\u304c\u3001\u3053\u308c\u306fIF(A1=1,10)\u3068\u66f8\u3051\u308b\u3002
\u307e\u3041\u7701\u7565\u3057\u3066\u3069\u3046\u3059\u3093\u306e\u3068\u3044\u3046\u306e\u306f\u3042\u308b\u3051\u3069\u3002
\u3051\u3069\u3001\u306a\u3093\u304b\u771f\u306e\u3068\u304d\u306f\u3053\u306e\u5024\u3067\u3001\u305d\u308c\u4ee5\u5916\u306fundef\u3068\u304b\u3067\u304d\u3093\u306e\u304b\u306a\u2026<\/p>\n
\n\u3068\u601d\u3063\u3066\u305f\u3089\u3001\u3055\u3059\u304cPerl\u3001\u5909\u306a\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3057\u305f\u3088\u3002<\/p>\n
say ( ($_%3==0 && 'Fizz')~($_%5==0 && 'Buzz') )|| $_ for 1..100; #Perl 6<\/pre>\n