関数型プログラミングの基礎クロージャと部分適用例:APIで使用するURLの生成

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

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON5(クロージャと部分適用)、5.2(例:APIで使用するURLの生成)のクイックチェック 5-2の解答を求めてみる。

コード

getRequestUrl :: String -> String -> String -> String -> String
getRequestUrl host apiKey resource id =
  host
    ++ "/"
    ++ resource
    ++ "/"
    ++ id
    ++ "?token="
    ++ apiKey

genApiRequestBuilder :: (t1 -> t2 -> t3 -> t4) -> t1 -> t2 -> t3 -> t4
genApiRequestBuilder hostBuilder apiKey resource =
  \id -> hostBuilder apiKey resource id

exampleUrlBuilder :: String -> String -> String -> String
exampleUrlBuilder = getRequestUrl "https://example.com"

myExampleUrlBuilder =
  genApiRequestBuilder exampleUrlBuilder "1337hAsk311" "book"

main :: IO ()
main = do
  print $ myExampleUrlBuilder "1234"

入出力結果(Terminal, Zsh)

% runghc sample01.hs 
20
3
%