simple rainbow by smkt

sub R{$i=0;while($i++<$_[1]){print$_[0];}}$w=$c=<>;while($o<4){$W=$c-$w-6+$r+$a;R(' ',$w);$a<1?R('R',$r=$c*2):0;if($a==1){print"R";R('G',$r);print"R";}if($a==2){print"RG";R('B',$r);print"GR";}if($a>2&$o<2){print"RGB";R(' ',$W);print"BGR";}if($o==2){print"GB";R(' ',$W);print"BG";}if($o==3){print"B";R(' ',$W);print"B";}print"\n";--$w<1?$o++:0;$a++;}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page