Aegilops by jonathan camacho

@o=map({$v= 1;for$i(1..(length($_)-1)){
if(lc(substr($_,$i-1,1))ge lc(substr($_,$i,1))){$v=0}}
$v?($_):()}split(/ /,<>));print"@o"

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

download

return to the top page