Back to task

119 symbols haskell
Fri Jul 3 06:53:40 2015 YoshikuniJujo
import Data.List
main=interact$show.i
j=head.(`elemIndices`"零一二三四五六七八九十")
i"三十八"=28
i(e:_:f)=j e*10+i f
i e=sum$j`map`e


Leave a comment

Parsed as Markdown

Login to leave a comment