関数型プログラミング言語Haskell
■ このスレッドは過去ログ倉庫に格納されています
0732デフォルトの名無しさん
NGNGstrToInt "" の時に 0 を返すのはなんかなぁというのと、
効率を気にしてこう書く。
strToInt :: String -> Int
strToInt "" = error "strToInt"
strToInt ('-':cs) = negate $ strToInt cs
strToInt cs = foldl (\x c -> x*10 + digitToInt c) 0 cs
■ このスレッドは過去ログ倉庫に格納されています