Select Code to Download

sub I{s-^-$"x$_[1]-gem;$/x$_[0].$_.$/}
sub D{$~=shift;system($^O=~Win?CLS:"clear"),print,
...
D.2,(map{$n=$_;join($/,map$_ x$n,R($_)=~/.+/g,"")x$_}2..4)
[0..2,1,0];
D.1,$S,join"",map+reverse.$/,@:for$%..5;D.3,reverse@X

sub I{$x=pop;$x=~s-^-$"x$_[1]-gem;$/x$_[0].$x.$/}
sub D{$~=shift;system($^O=~Win?CLS:"clear"),print,
...
I(13,28,R 3),I(10,20,R 2),$S);
D.2,map{$n=$_;join($/,map$_ x$n,R($_)=~/.+/g,"")x$_}2..4,3,2;
D.1,$S,join"",map+reverse.$/,@:for$%..5;D.3,reverse@X

sub I{$x=pop;$x=~s-^-$"x$_[1]-gem;$/x$_[0].$x.$/}
sub D{system$^O=~Win?CLS:"clear";print;select$Z,$Z,$Z,pop}
...
for$n(2..4,3,2){$_=join($/,map$_ x$n,R($n)=~/.+/g,"")x$n;D.2}
D.1for($S,join"",map+reverse.$/,@:)x6;
D.3for+reverse@X