2014年2月10日月曜日

開発環境

Real World Haskell―実戦で学ぶ関数型言語プログラミング(Bryan O'Sullivan (著)、 John Goerzen (著)、 Don Stewart (著)、山下 伸夫 (翻訳)、伊東 勝利 (翻訳)、株式会社タイムインターメディア (翻訳)、オライリージャパン)の8章(効率的なファイル処理、正規表現、ファイル名マッチング)、8.8(APIの設計を通じてエラー処理する)の練習問題 1.を解いてみる。

その他参考書籍

練習問題 1.

コード(BBEdit, Emacs)

Sample.hs

--{-# OPTIONS -Wall -Werror *-}
module GlobRegex where

type GlobError = String

globToRegex :: String -> Either GlobError String
globToRegex cs = case globToRegex' cs of
                      Left s -> Left s
                      Right s -> Right ('^':s ++ "$")

globToRegex' :: String -> Either GlobError String
globToRegex' "" = Right ""
globToRegex' ('[':'!':c:cs) = undefined
globToRegex' ('p':c:cs) = undefined
globToRegex' ('[':_) = Left "unterminated character class"

入出力結果(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> :load GlobRegex.hs 
[1 of 1] Compiling GlobRegex        ( GlobRegex.hs, interpreted )
Ok, modules loaded: GlobRegex.
*GlobRegex> globToRegex "["
Left "unterminated character class"
*GlobRegex> globToRegex ""
Right "^$"
*GlobRegex> :quit 
Leaving GHCi.
$

0 コメント:

コメントを投稿