2017-12-29

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("", "", "", "", "buzz");

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

https://ideone.com/mcc7kS

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

記事への反応 -
  • 1から100の数字を出力する。 ただし数が3で割り切れるときはFizz、5で割り切れるときはBuzz、15で割り切れるときはFizzBuzzを出力する。 条件: ソースコード中に3、5を含んではならない。 (3...

    • 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...

    • |> THREE = 1+1+1 FIVE = 1+1+1+1+1 |< もうめんどい

    • n%(2+1)とか n % (4+1)とか回避手段いくらでもあるじゃん 数値を記述しないとかにしないと

    • その問題文を、本文中に3、5を含まずに記述せよ。

    • 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("...

      • エラーメッセージが出ています。 原因の調査を行い報告書を提出してください。 プログラムの修正を行う場合は作業申請書も合わせて提出して下さい。

記事への反応(ブックマークコメント)

ログイン ユーザー登録
ようこそ ゲスト さん