関数型プログラミングの基礎ファーストクラス関数 compare関数、LT、GT、EQ

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

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

コード

import Data.List (sortBy)

compareLastNames :: Ord a1 => (a2, a1) -> (a3, a1) -> Ordering
compareLastNames name1 name2 =
  let lastName1 = snd name1
      lastName2 = snd name2
   in compare lastName1 lastName2

names :: [(String, String)]
names =
  [ ("Ian", "Curtis"),
    ("Bernard", "Sumner"),
    ("Peter", "Hook"),
    ("Stephen", "Morris")
  ]

main :: IO ()
main = do
  mapM_ print names
  print "sorted"
  mapM_ print $ sortBy compareLastNames names

入出力結果(Terminal, Zsh)

% runghc sample1.hs 
("Ian","Curtis")
("Bernard","Sumner")
("Peter","Hook")
("Stephen","Morris")
"sorted"
("Ian","Curtis")
("Peter","Hook")
("Stephen","Morris")
("Bernard","Sumner")
%