計算機科学のブログ

コンテキストでの型の操作 リストモナドとリスト内包 リストモナドを使ってリストを生成する

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 32(リストモナドとリスト内包)、32.1(リストモナドを使ってリストを生成する)、クイックチェック 32-1の解答を求めてみる。

コード

lesson/app/Main.hs

module Main (main) where

import Lib (allSquares)

main :: IO ()
main = mapM_ print allSquares

lesson/src/Lib.hs

module Lib
  ( allSquares,
  )
where

allSquares :: [(Int, Int)]
allSquares = do
  n <- [1 .. 10] :: [Int]
  return (n, n ^ (2 :: Int))

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
(1,1)
(2,4)
(3,9)
(4,16)
(5,25)
(6,36)
(7,49)
(8,64)
(9,81)
(10,100)
%