non increasing subsequence by henkma

m@main=do l<-getLine;putStrLn$[k|n<-[9,8..],k<-[take n$drop x l|x<-[0..length l-n]],k==scanl1 min k]!!0;m

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

download

return to the top page