Haskell - Listの生成(replicate), 出力書式フォーマット(Text.Printfモジュール, printf関数), 対数(log, logBase)

すごいHaskellたのしく学ぼう!
(オーム社)
Miran Lipovača (著)
田中 英行 村主 崇行 (翻訳)
[Kindle版]

開発環境

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

初めてのコンピュータサイエンス(Jennifer Campbell、Paul Gries、Jason Montojo、Greg Wilson(著)長尾 高弘(翻訳))の7章(反復)7.7(練習問題)、7、8、9、10.をHaskellで解いてみる。

その他参考書籍

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

7.7(練習問題)、7、8、9、10.

コード(BBEdit)

Sample.hs

{-# OPTIONS -Wall -Werror #-}
import Text.Printf

main :: IO ()
main = do
    putStrLn "7,"
    mapM_ (printf "%-7s\n") ts
    putStrLn "8."
    mapM_ (printf "%7s\n") ts
    putStrLn "9. 省略"
    putStrLn "10."
    putStrLn "a."
    print $ a (4 / 100)
    putStrLn "b."
    print $ b rate1 rate2

ts :: [String]
ts = map (`replicate`'T') [1..7]

a :: Double -> Int
a rate = ceiling $ logBase (rate + 1) 1.25

b :: Double -> Double -> Int
b r1 r2 = ceiling $ log (110 / 100) / (log $ (r1 + 1) / (r2 + 1))

rate1 :: Double
rate1 = rate2 + 3 / 100

rate2 :: Double
rate2 = 4 / 100

入出力結果(Terminal, runghc)

$ runghc Sample.hs
7,
T      
TT     
TTT    
TTTT   
TTTTT  
TTTTTT 
TTTTTTT
8.
      T
     TT
    TTT
   TTTT
  TTTTT
 TTTTTT
TTTTTTT
9. 省略
10.
a.
6
b.
4
$

{-# OPTIONS -Wall -Werror #-}を記述してるから、細かく型を指定(:: Double)しないと警告がいっぱい出た。慣れるまでは{-# OPTIONS -Wall -Werror #-}の記述を消さずに細かく型を指定していくことに。