変形Fizz-Buzz問題 in Perl DouKaku?

どもraynstardです。
どちらにしようか迷いましたが発想の元ネタがUIさんの投稿からなので
こちらに投稿してみます。
--------------
以下の仕様を満たす文字列を
20行出力するプログラムを作成してください。

1. 1行の出力は「<行番号> '：' <メッセージ>」であること。
2. 行番号が 3の倍数であるとき、メッセージは「Fizz」であること
3. 行番号が 5の倍数であるとき、メッセージは「Buzz」であること
4. 行番号が 3の倍数かつ5の倍数であるとき、メッセージは「FizzBuzz」であること
5. 上記に記した条件以外のメッセージについては「hoge」であること
6. 条件分岐する場合、if文のみが使用でき、
   かつ、論理式が成立した場合の処理のみが記述できます。
#アセンブリなどifがなければif以外でもかまわないです。(意味が同じならば)

というわけでこの問題はFizz-Buzz問題をelseなしならどう書く？という問題です。

出力例：
 1:hoge
 2:hoge
 3:Fizz
 4:hoge
 5:Buzz
 6:Fizz
 7:hoge
 8:hoge
 9:Fizz
10:Buzz
11:hoge
12:Fizz
13:hoge
14:hoge
15:FizzBuzz
16:hoge
17:hoge
18:Fizz
19:hoge
20:Buzz

elseや!などの否定は使いませんでした、というかifすら使ってないんですがいいんでしょうか？

 いまいちお題が飲み込めない。。。orz

1	map{print("$_：".'Hoge'x($_%3&&$_%5>0).'Fizz'x($_%3==0).'Buzz'x($_%5==0)."\n")}1..20;

POOで。

継承の無駄遣い。

Dan the POO Monger

use strict;
use warnings;

package hoge;

sub fizzbuzz {
    my ( $self, $num, $hoge ) = @_;
    $hoge || __PACKAGE__;
}

package Fizz;
use base 'hoge';

sub fizzbuzz {
    my ( $self, $num, $hoge ) = @_;
    $self->SUPER::fizzbuzz( $num, ( $num % 3 ? "" : __PACKAGE__ ) . $hoge );
}

package Buzz;
use base 'Fizz';

sub fizzbuzz {
    my ( $self, $num ) = @_;
    $self->SUPER::fizzbuzz( $num, ( $num % 5 ? "" : __PACKAGE__ ) );
}

package Fizz::Buzz;
use base 'Buzz';

sub fizzbuzz {
    my ( $self, $num ) = @_;
    "$num:" . $self->SUPER::fizzbuzz($num) . "\n";
}
sub new { bless {} => shift }

package main;
my $fizzbuzz = Fizz::Buzz->new;
print $fizzbuzz->fizzbuzz($_) for ( 1 .. ( shift || 100 ) );

DouKaku?

変形Fizz-Buzz問題

Posted feedbacks - Perl

Index

Feed

Other

Link

Pathtraq