計算機科学のブログ

関数型プログラミングの基礎 リスト repeat関数を独自に実装、cycle関数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON 6(リスト)、6.5(練習問題)Q6-1の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib (myRepeat)

main :: IO ()
main = do
  print $ take 5 $ myRepeat 10

lesson/src/Lib.hs

module Lib
  ( myRepeat,
  )
where

myRepeat :: a -> [a]
myRepeat x = cycle [x]

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
[10,10,10,10,10]
%