2010-06-10から1日間の記事一覧

整数を英語に変換

30分プログラム、その771。anarchy golf - 100にインスパイアされて、整数を英語(one,two,three,...)に変換してみました。今日のポイントは、 alphaNum n = msum [ lookup n table, do let (x, y) = split n x' <- lookup x table y' <- lookup y table retu…