多言語FizzBuzzチャレンジ19日目:Haskell

これまでのまとめ

本日のお品書き

今回が個人的に一番キツかったです…。Haskell。
公式のチュートリアルがとても充実していてありがたいのですが、FizzBuzzしようと思うと、どうやって標準出力に出すんや？みたいなところで躓きました。

FizzBuzz

module Main where

fizzbuzz :: Int -> String
fizzbuzz n
  | n `mod` 15 == 0 = "FizzBuzz" -- guardを使ってすっきり書く
  | n `mod` 3  == 0 = "Fizz"
  | n `mod` 5  == 0 = "Buzz"
  | otherwise = show n -- otherwiseはTrueのエイリアス. show: Int -> String

main :: IO() -- ターミナルとのIOが許可されているのはmainのみ
-- mapM_/2 : リストの各要素に順番に処理を行う
-- map/2: リストの各要素に順番に処理を行ってリストを返す
main = mapM_ putStrLn (map fizzbuzz [1..100])
-- 関数の合成として次も等価
-- mapM_ putStrLn $ map fizzbuzz [1.100]

おまけ：実行方法

Onlineのplaygroundはあるのですが、関数を定義したり、標準出力したりする方法がわからなかったのでDockerで環境を構築し、スクリプトファイルを実行するようにしました。

FROM haskell:latest
COPY ./fizzbuzz.hs /
RUN ghc -o fizzbuzz fizzbuzz.hs
CMD ["./fizzbuzz"]

docker build -t haskell:fizzbuzz .
docker run --rm haskell:fizzbuzz