これは何?

本アドベントカレンダーの5日目の記事です。

よくある出力をまとめたものです。

getLineを使う方法で使用することを前提にしています。
2025年11月11日現在、自分は別記事で記載予定のinteractを使う方法を採用しています。

interactを使う場合はIO部分をinteractにおまかせできるため、本記事で紹介するようなprint、putStrLn、putStrの使い分けをする必要がなくなります。

文字列

main :: IO ()
main = do
  let word = "Hello, World!"
  putStrLn word

Hello, World!

main :: IO ()
main = do
  let name1 = "Bob"
  let name2 = "Alice"
  putStrLn $ name1 ++ " " ++ name2

main :: IO ()
main = do
  let name1 = "Bob"
  let name2 = "Alice"
  putStrLn $ unwords [name1, name2]

main :: IO ()
main = do
  let n = 1
  print 1

map showで配列の中身を全て文字列にしてからunwordsでスペース区切りに展開する。

main :: IO ()
main = do
  let xs = [1, 2, 3]
  putStrLn $ unwords $ map show xs

1 2 3

putStrLnではなく、putStrを使わないとunlinesによる改行とputStrLnの両方の改行が出力されてしまう点に注意。

main :: IO ()
main = do
  let xs = [1, 2, 3]
  putStr $ unlines $ map show xs

1
2
3

main :: IO ()
main = do
  let array_2d = [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
  mapM_ (putStrLn . unwords . map show) array_2d

main :: IO ()
main = do
  let array_2d = [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
  putStr $ (unlines . map (unwords . map show)) array_2d

1 2 3
4 5 6
7 8 9