Select Code to Download

 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";
}