計算機科学のブログ

型によるプログラミング Maybe型:欠損値に対処する Maybeを使った計算 関数と引数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT3(型によるプログラミング)、LESSON19(Maybe型:欠損値に対処する)、19.3(Maybeを使った計算)、クイックチェック 19-2の解答を求めてみる。

コード

numOrZero :: Maybe Int -> Int
numOrZero (Just n) = n
numOrZero _ = 0

main :: IO ()
main = do
  print "Just"
  mapM_ (print . numOrZero . Just) [-5 .. 5]
  print "Nothing"
  print $ numOrZero Nothing

入出力結果(Terminal, Zsh)

% runghc sample02.hs
"Just"
-5
-4
-3
-2
-1
0
1
2
3
4
5
"Nothing"
0
%