#!perl -p s/[-*1]//g; s/(.)(.*?)\1/\2/g; s/(.)(.*?)\1/\2/g; s/(.)(.*?)\1/\2/g; s/../ijk$&/; s/(.)(.*?)\1/\2/; s/(.)(.*?)\1/\2/; s/(.)(.*?)\1/\2/; s/^$/1/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page