[perl][moose] 世界のナベアツ問題をMoose::Roleで解く | 2009-05-02 - gem戦記最近、Perlの勉強を始めて Moose というモジュールが面白かったので、これを使って「世界のナベアツ問題」を解いてみました。 「世界のナベアツ問題」とはこれです。 1 から 40 までの数をプリントするプログラムを書け。 ただし 3 の倍数または数に 3 が含まれる時はその数に続けて、「〜〜〜」をプリントし、8 の倍数の時はその数に続けて「ぅぅういえぇえあ」をプリントすること。 これを普通にPerlで書くと、こんな感じになると思います。 use strict ; sub print_number { my ($n) = @_ ; print $n ; print "〜〜〜" if (($n%3 == 0) || ($n =~ /3/)) ; print "ぅぅういえぇえあ" if ($n%8 == 0) ; print "\n" ; } print_number($_) for 1..
![[perl][moose] 世界のナベアツ問題をMoose::Roleで解く | 2009-05-02 - gem戦記](https://cdn-ak-scissors.b.st-hatena.com/image/square/c9a82ab949e6a8dd318edd6c57ead6476f6afc75/height=288;version=1;width=512/https%3A%2F%2Fimages-fe.ssl-images-amazon.com%2Fimages%2FI%2F51e3YikD7EL._SL160_.jpg)
