09/03/22 01:19:26
某所で再びFizzBuzz問題がはやっているようなのでPerlで書いてみました！添削してください！
perl -e 'for ($n=1;$n<16;$n++) {my$res;!(($n%3||($res="Fizz"))&&($n%5||($res=$res."Buzz")))||($res&&print "$res\n")||(print "$n\n");}'
09/03/22 01:19:26
某所で再びFizzBuzz問題がはやっているようなのでPerlで書いてみました！添削してください！
perl -e 'for ($n=1;$n<16;$n++) {my$res;!(($n%3||($res="Fizz"))&&($n%5||($res=$res."Buzz")))||($res&&print "$res\n")||(print "$n\n");}'