計算機科学のブログ

HaskellのI/O Hello World!:IO型の紹介 フィボナッチ数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 21(Hello World!:IO型の紹介)、21.5(練習問題)Q21-2の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib

main :: IO ()
main = do
  s <- getLine
  let n = read s
  print $ fibonacci n

lesson/src/Lib.hs

module Lib
  ( fibonacci,
  )
where

fibonacci :: Integer -> Integer
fibonacci 0 = 0
fibonacci 1 = 1
fibonacci n = fibonacci (n - 1) + fibonacci (n - 2)

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
0
0
% stack exec lesson-exe
1
1
% stack exec lesson-exe
2
1
% stack exec lesson-exe
10
55
%