non increasing subsequence by BioFALSE

$y=10;
while(<>){chomp;@_=split//;
while(@_){$_=shift@_;
$y>=$_?($a.=$y=$_,$k++):
($x<$k?($x=$k,$b=$a):(),$k=$a="",$y=10,unshift@_,$_)
}
$x<$k?($x=$k,$b=$a):();print"$b\n";$x=$k=0;$y=10}

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

download

return to the top page