perl -le '$_=1;print,s/(\d+) ?/+$1 $1/g,s/\S+/$&/eeg until$a++>15'

##</code><code>##

perl -Mbigint -le '$_=1;print,s/(\d+) ?/+$1 $1/g,s/\S+/$&/eeg until$a++>256'

##</code><code>##

perl -le '$_=o;print,s/./$&$&/g,s/(?!^)(.)(.)/$1^$2^_/eg until$a++>80'

##</code><code>##

perl -le '$_=pop;print,s/./$&$&/g,s/(?!^)(.)(.)/$1^$2^$ARGV[0]/eg until$b++>80' _ o

##</code><code>##

use strict;
use Image::Magick;
my $size = 256;

my $psci;
my $rang=$size-1;
my $image=Image::Magick->new(size=>2*$size.'x'.2*$size);  
$image->ReadImage('canvas:white');

$psci->[0][0] = 1;

for my $i (1 .. $rang) {
	$psci->[$i][0]=1;
	for my $j (1 .. ($i-1)) {
		$psci->[$i][$j]= ($psci->[$i-1][$j-1]) ^ ($psci->[$i-1][$j]); 
	}
	$psci->[$i][$i]=1;
}

for my $i (0 .. $rang) {
	for my $j (0 .. $i) {
		if ($psci->[$i][$j]==1) {
			my $color = [&col()]; # random color
			my $decalage = $rang-$i; #offset
			$image->SetPixel(x=>$decalage + 2*$j ,y=>2*$i,color=>$color); 
			$image->SetPixel(x=>$decalage + 2*$j,y=>2*$i+1,color=>$color);
 			$image->SetPixel(x=>$decalage + 2*$j+1,y=>2*$i,color=>$color);
 			$image->SetPixel(x=>$decalage + 2*$j+1,y=>2*$i+1,color=>$color); 
		};
	}
}

my $err = $image->Write("Sierpinski${size}.png");
warn "$err" if "$err";

sub col {
	#random RGB color around (206,190,68)
	return ((256-100*rand)/256,(246-100*rand)/256,(118-100*rand)/256);
}