Help for this page
1 121 1
1 121 12321 121 1
#!/usr/bin/perl ... foreach $i(@i = (1..$diamondSize, reverse (1..$diamondSize-1))) { print ' ' x ($diamondSize - $i), (@d ="1".."$i"), (reverse @d[ +0..$#d-1]), "\n"; }
www.com | www.net | www.org
No recent polls found