開発環境
- OS X Mavericks - Apple(OS)
- BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
- Haskell (純粋関数型プログラミング言語)
- GHC (The Glasgow Haskell Compiler) (処理系)
- The Haskell Platform (インストール方法、モジュール等)
C実践プログラミング 第3版 (Steve Oualline (著)、 望月 康司 (監訳) (翻訳)、谷口 功 (翻訳)、オライリー・ジャパン)のⅡ部(単純なプログラミング)10章(Cプリプロセッサ)、10.2(条件付きコンパイル)、10.3(インクルードファイル)、10.4(パラメータをとるマクロ)、10.5(高度な機能)、10.8(プログラミング実習)実習10-3をHaskellで解いてみる。
その他参考書籍
- プログラミングHaskell (オーム社) Graham Hutton(著) 山本 和彦(翻訳)
- Real World Haskell―実戦で学ぶ関数型言語プログラミング (オライリージャパン) Bryan O'Sullivan John Goerzen Don Stewart(著) 山下 伸夫 伊東 勝利 株式会社タイムインターメディア(翻訳)
実習 10-3.
コード(BBEdit)
Sample.hs
{-# OPTIONS -Wall -Werror #-}
import qualified Data.Char as Char
main :: IO ()
main = do
putStrLn "文字を入力してEnter"
line <- getLine
if null line then
return ()
else
do let a = head line
if isHex a then
putStrLn "16進数"
else
putStrLn "16進数ではない"
if Char.isHexDigit a then
putStrLn "16進数"
else
putStrLn "16進数ではない"
main
isHex :: Char -> Bool
isHex a = if Char.isDigit a || (a >= 'A' && a <= 'F') || a >= 'a' && a <= 'f'
then True
else False
入出力結果(Terminal, runghc)
$ runghc Sample.hs 文字を入力してEnter 1 16進数 16進数 文字を入力してEnter 2 16進数 16進数 文字を入力してEnter 3 16進数 16進数 文字を入力してEnter 4 16進数 16進数 文字を入力してEnter 5 16進数 16進数 文字を入力してEnter a 16進数 16進数 文字を入力してEnter b 16進数 16進数 文字を入力してEnter c 16進数 16進数 文字を入力してEnter d 16進数 16進数 文字を入力してEnter e 16進数 16進数 文字を入力してEnter A 16進数 16進数 文字を入力してEnter B 16進数 16進数 文字を入力してEnter C 16進数 16進数 文字を入力してEnter D 16進数 16進数 文字を入力してEnter E 16進数 16進数 文字を入力してEnter g 16進数ではない 16進数ではない 文字を入力してEnter G 16進数ではない 16進数ではない 文字を入力してEnter $
{-# OPTIONS -Wall -Werror #-}を記述してるから、細かく型を指定(:: Double)しないと警告がいっぱい出た。慣れるまでは{-# OPTIONS -Wall -Werror #-}の記述を消さずに細かく型を指定していくことに。
0 コメント:
コメントを投稿