2013年12月18日水曜日

開発環境

初めてのコンピュータサイエンス(Jennifer CampbellPaul GriesJason MontojoGreg Wilson(著)長尾 高弘(翻訳))の12章(各種ツール)、12.7(練習問題)、12-14.をHaskellで解いてみる。

その他参考書籍

12.7(練習問題)、12-14.

コード(BBEdit)

Sample.hs

{-# OPTIONS -Wall -Werror #-}

main :: IO ()
main = mapM_ putStrLn $ map (\limit -> "limit = " ++ show limit ++
                                       '\n':(show $ summation limit))
                            [-10, 10]

summation :: Int -> Int
summation n | n < 0 = sum [n..0]
            | otherwise = sum [0..n]

入出力結果(Terminal, runghc)

$ runghc Sample.hs
limit = -10
-55
limit = 10
55
$

慣れるまでは{-# OPTIONS -Wall -Werror #-}の記述を消さずに細かく型を指定していくことに。

0 コメント:

コメントを投稿