Haskellドリル（リスト編）解答例

課題1

指示

リストの最後の要素を取得する関数 myLast を作れ。
ただし、再帰を用いること。

Prelude> myLast [1, 2, 3, 4]
4

解答例

myLast.hs

myLast 			:: [a] -> a
myLast			= f where
	f []		= error "No last for empty list"
	f [x]		= x
	f (_ : xs)	= f xs

課題2

指示

リストの最後の要素を取得する関数 myLast を作れ。
ただし、再帰を用いず、Prelude にある関数を合成して作成すること。

Prelude> myLast [1, 2, 3, 4]
4

解答例

myLast2.hs

myLast 	:: [a] -> a
myLast	= head . reverse

課題3

指示

リストの n 番目の要素を取得する関数 myIndex を作れ。

Prelude> myIndex [1, 2, 3, 4] 2
2
Prelude> myIndex [1, 2, 3, 4] 3
3

解答例

myIndex.hs

myIndex					:: [a] -> Int -> a
myIndex					= f where
	f [] _				= error "too large index"
	f (x : xs) n
		| n == 0		= x
		| n > 0			= f xs (n - 1)
		| otherwise	= error "negative index"

課題4

指示

与えられた文字列を全て大文字に変える関数 myUpper を作れ。

Prelude> myUpper "aBcDeFghi"
ABCDEFGHI

解答例

myUpper.hs

myUpper     :: String -> String
myUpper     = map toUpper

課題5

指示

与えられた整数リストのうち、奇数だけの合計値を求めるoddSumを作れ。
ただし、foldlとfilterを合成して作成すること。

Prelude> oddSum [1,2,3,4,5,8,9,11]
29

解答例

oddSum.hs

oddSum		:: [Int] -> [Int]
oddSum		= foldl (+) 0 . filter odd

課題6

指示

与えられたテキストファイルに行番号を付与する関数 lineNum を作れ。
ただし、行番号の桁揃えなどを行わなくて良い。

解答例

lineNum.hs

lineNum			:: [String] -> [String]
lineNum			= f where
	f			= map g . zip [1..]
	g (ln, st)	= show ln ++ " " ++ st