計算機科学のブログ

型によるプログラミング Maybe型:欠損値に対処する Data.Maybeモジュール、isNothing関数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT3(型によるプログラミング)、LESSON 19(Maybe型:欠損値に対処する)、19.6(練習問題)Q19-1の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib

main :: IO ()
main = do
  mapM_
    (print . emptyDrawers)
    [ [],
      [Nothing],
      [Just Heart],
      [Nothing, Just Heart, Just Heart, Nothing, Just Heart]
    ]

lesson/src/Lib.hs

module Lib where

import Data.Maybe (isNothing)

data Organ = Heart deriving (Show)

emptyDrawers :: [Maybe Organ] -> Int
emptyDrawers organs = length $ filter isNothing organs

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
0
1
0
2
%