[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/2e5ba3c433ef98c4cb17ed3b8421a7a1b1a832b6/height=288;version=1;width=512/https%3A%2F%2Fcdn.image.st-hatena.com%2Fimage%2Fscale%2F400e46bc3b3f44aee466d4d454596c7f83afe194%2Fbackend%3Dimagemagick%3Bheight%3D1200%3Bversion%3D1%3Bwidth%3D1200%2Fhttps%253A%252F%252Fimages-fe.ssl-images-amazon.com%252Fimages%252FI%252F51e3YikD7EL._SL160_.jpg)
