foxbitz

ぼちぼちとお勉強してます(-｡-)y-ﾟﾟﾟ

Perl言語プログラミングレッスン 問題6-5 (p173)：
わりときれいに解けたので記念に貼っておく。

# 6行と16行の2パターンのクリスマスツリーを作る

use strict;
use warnings;

my @array = qw(* ! * % / * + - ! . * * % / * +);

for my $n(5,15) {
 foreach my $i(0..$n) {
   my @obverse = @array[0..$i];
   my @reverse = reverse(@obverse);
   print ' ' x ($n-$i), @obverse, @reverse[1..$i], "\n";
 }
}