[1..100]>>=pen #7194(2008/08/18 05:32 GMT) [ Haskell ] Rating1/1=1.00
1
x=[1..9]++(map(10*)x);main=readLn>>=print.fst.(`span`(0:x)).(>=)
Rating1/1=1.00-0+
[ reply ]
[1..100]>>=pen
#7194()
[
Haskell
]
Rating1/1=1.00
Rating1/1=1.00-0+
[ reply ]