以下ã®perlã®ã‚³ãƒ¼ãƒ‰ãŒå‹•ã‹ãªã„ç†ç”±ã‚’æ•™ãˆã¦ä¸‹ã•ã„。…以下ã®perlã®ã‚³ãƒ¼ãƒ‰ãŒå‹•ã‹ãªã„ç†ç”±ã‚’æ•™ãˆã¦ä¸‹ã•ã„。 FizzBuzzã®ã‚³ãƒ¼ãƒ‰ãªã®ã§ã™ãŒã€$iãŒ11,26,41,56,71,86ã®æ™‚ã«Buzzã¨å‡ºåŠ›ã•ã‚Œã¦ã—ã¾ã„ã¾ã™ã€‚ ãªã‚“ã¨ãªãç›´å‰ã®ãƒ«ãƒ¼ãƒ—時ã®$outã®å†…容ãŒå¼•ã継ãŒã‚Œã¦ã„ã‚‹æ°—ãŒã—ã¾ã™ãŒã€ç†ç”±ãŒã‚ã‹ã‚Šã¾ã›ã‚“。 --- #!/usr/bin/perl use strict; use warnings; use Perl6::Say; foreach my $i (1..100) { my $out = "Fizz" if $i%3 == 0; $out .= "Buzz" if $i%5 == 0; say $out || $i; } --- ãªãŠ$outã®å®£è¨€ã‚’別ã«ã—ãŸã¨ã“ã‚ã€æ£å¸¸ã«å‹•ä½œã—ã¦ã„ã¾ã™ã€‚ --- foreach my $i (1..100) { my $out; $out = "Fizz" if $i%3 == 0; $ou
{{#tags}}- {{label}}
{{/tags}}