Switzerhegg 2012 by EH2012_Raim

$i=-($n=<>*2);for(0..$n/2*5-1){$s=abs int($_/$n*2)-2;print($s&2|$_&2|$s*$_&1?substr"Easterhegg"x5,$i=($i+$n)%10,$n:" "x$n)for(2,1,0,1,2);print"\n"}

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

download

return to the top page