三角形作成(Perl)
三角形以下の様な三角形を作成せよ
* ** *** **** ***** ***** **** *** ** * * ** *** **** ***** ***** **** *** ** * * *** ***** ******* ********* ******* ***** *** *
Perlで作成しました。
use strict; use warnings; my ($i,$j); for(1 .. 5){ for(1 .. 5){ print "*"; } print "\n"; } print "\n"; for (1 .. 5){ print "*" x $_; print "\n"; } print "\n"; for ($i = 5;$i >= 0;$i--){ print "*" x $i; print "\n"; } $j = 1; for ($i = 5;$i > 0;$i--){ print " " x ($i - 1); print "*" x $j; $j++; print "\n"; } print "\n"; $j = 0; for ($i = 5;$i > 0;$i--){ print " " x $j; print "*" x $i; $j++; print "\n"; } print "\n"; $j = 1; for ($i = 5;$i > 0;$i--){ print " " x ($i - 1); print "*" x ($j * 2 - 1); $j++; print "\n"; } $j = 1; for ($i = 4;$i > 0;$i--){ print " " x $j; print "*" x ($i * 2 - 1); $j++; print "\n"; } print "\n";