Haskell - 関数プログラミング(ループをどのように考えるか(foldlとfoldl'))

Real World Haskell
実戦で学ぶ関数型言語プログラミング
(オライリージャパン)
Bryan O'Sullivan (著) John Goerzen (著)
Don Stewart (著)
山下 伸夫 (翻訳) 伊東 勝利 (翻訳)
株式会社タイムインターメディア (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Haskell (純粋関数型プログラミング言語)
• GHC (The Glasgow Haskell Compiler) (処理系)
• The Haskell Platform (インストール方法、モジュール等)

Real World Haskell―実戦で学ぶ関数型言語プログラミング(Bryan O'Sullivan (著)、 John Goerzen (著)、 Don Stewart (著)、山下 伸夫 (翻訳)、伊東 勝利 (翻訳)、株式会社タイムインターメディア (翻訳)、オライリージャパン)の4章(関数プログラミング)、4.6(ループをどのように考えるか)、4.6.9(左畳み込み、遅延性、スペースリーク)、練習問題 1.を解いてみる。

その他参考書籍

• すごいHaskellたのしく学ぼう!(オーム社) Miran Lipovača(著)、田中 英行、村主 崇行(翻訳)
• プログラミングHaskell (オーム社) Graham Hutton(著) 山本 和彦(翻訳)

練習問題 1.

コード(BBEdit, Emacs)

InteractWith.hs

{-# OPTIONS -Wall -Werror #-}
module Main where

import Data.Char(digitToInt, isDigit)
import Data.List

asIntFold :: String -> Int
asIntFold xs = let m = fromIntegral (maxBound :: Int) :: Integer
                   n = asIntegerFold xs
               in if n <= m
                  then (fromIntegral n) :: Int
                  else error "bound error"

asIntegerFold :: String -> Integer
asIntegerFold [] = error "empty"
asIntegerFold ('-':xs) = -1 * asIntegerFold xs
asIntegerFold xs =
    foldl' (\acc x -> if isDigit x
                      then acc * 10 + (fromIntegral (digitToInt x) :: Integer)
                      else error "not an int")
           0 xs

入出力結果(Terminal, インタプリタghci)

$ ghci
GHCi, version 7.6.3: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
Prelude> :set +t
Prelude> :load exercises.hs 
[1 of 1] Compiling Main             ( exercises.hs, interpreted )
Ok, modules loaded: Main.
*Main> asIntFold "101"
101
it :: Int
*Main> asIntFold "-31337"
-31337
it :: Int
*Main> asIntFold "1798"
1798
it :: Int
*Main> asIntFold ""
*** Exception: empty
*Main> asIntFold "-"
*** Exception: empty
*Main> asIntFold "-3"
-3
it :: Int
*Main> asIntFold "-2.7"
*** Exception: not an int
*Main> asIntFold "31415926535897932846"
*** Exception: bound error
*Main> :quit 
Leaving GHCi.
$