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