Make 24 by tails

#!perl -pla
($_)=map{$i=$_ x14;/1/&/2/&/3/&/4/?grep{6*s/(?<!\))(?![(\x97])/$F[~-chop$i]/ge==eval s/\xc3\x97/*/gr}<+-- /++ ++{+,-} (\xc3\x97-)\xc3\x97 (++)\xc3\x97 ({+,-})\xc3\x97{-,\xc3\x97,({+,-})}>:()}9..$$

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

download

return to the top page