関数型プログラミング言語Haskell
■ このスレッドは過去ログ倉庫に格納されています
0728名無しさん@Emacs
NGNGPreludeモジュールに、digitToIntがあるのにstringToIntはないんですね。ちょと不思議。
そこで自分で作ってみました。
strToInt :: String -> Int
strToInt "" = 0
strToInt str = digitToInt (last str) + 10* strToInt (init str)
intToStr :: Int -> String
intToStr x
| x `div` 10 == 0 = [intToDigit x]
| otherwise = intToStr ( x `div` 10 ) ++ [intToDigit ( x `mod` 10 )]
こんな風になりました。もっとうまく書けるとか、美しく書けるという人はおしえてくださいな。
■ このスレッドは過去ログ倉庫に格納されています