#!perl -pl sub f{substr$`,$_*"@_-1"}s//push@a,($_)=grep$a[-$_]-$_<(f gt f-2)&1le f,1.."@-"/ger
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page