Go capture by ySas

#!perl -ln
$$_=@a=A..T}{$b^x&&map{print$;if${$;=$a.$_}<grep$$_,$b.$_,$a[0].$_,$a.~-$_,$a.($_+1)}1..19while$b=$a,$a=shift@a

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

download

return to the top page