Perl use strict;use warnings;use feature 'say';sub fz { my @pattern = @

use strict;
use warnings;
use feature 'say';

sub fz {
	my @pattern = @_;
	return sub { $pattern[(shift() - 1) % @pattern] };
}

my $fizz = fz("", "", "fizz");
my $buzz = fz("", "", "", "", "buzz");

foreach my $i (1..100) {
	say ($fizz-&gt;($i) . $buzz-&gt;($i) || $i);
}

https://ideone.com/mcc7kS

# use 5.xxxが使えない罠。

Permalink | 記事への反応(0) | 11:48

記事への反応 -

プログラミング問題
1から100の数字を出力する。ただし数が3で割り切れるときはFizz、5で割り切れるときはBuzz、15で割り切れるときはFizzBuzzを出力する。条件: ソースコード中に3、5を含んではならない。 (3...
- anond:20171229110515
  Perl use strict;use warnings;use feature 'say';sub fz { my @pattern = @_; return sub { $pattern[(shift() - 1) % @pattern] };}my $fizz = fz("", "", "fizz");my $buzz = fz("", "", "", &q...
- anond:20171229110515
  |> THREE = 1+1+1 FIVE = 1+1+1+1+1 |< もうめんどい
- anond:20171229110515
  n%(2+1)とか n % (4+1)とか回避手段いくらでもあるじゃん数値を記述しないとかにしないと
  - anond:20171229110746
    >>> ord('d') - ord('a')3 もうめんどい
- https://anond.hatelabo.jp/20171229110515
  その問題文を、本文中に3、5を含まずに記述せよ。
- https://anond.hatelabo.jp/20171229110515
  for(int i=1; i<= 100; i++){ if(i%0b1111==0){ System.out.println("FizzBizz"); }else if(i%0b0101==0){ System.out.println("Bizz"); }else if(i%0b0011==0){ System.out.println("Fizz"); }else{ System.out.println(i); } } System.err.println("...
  - anond:20171229113038
    エラーメッセージが出ています。原因の調査を行い報告書を提出してください。プログラムの修正を行う場合は作業申請書も合わせて提出して下さい。
    - https://anond.hatelabo.jp/20171229114523
      辞めるんで溜まってる有給と代休使いますね。