#!perl -p0 for$i((!/ /,"@-")x y;#;!;){push@$i,'.'x$i;y;$%~"/)x;-#||+;while s;!@$i[-+|]|[-+|]@$i!;$&^($&^~$&)&($i?v2.v0 x$i:v4)x10;se}s; *# \K\|;+
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page