計算機科学のブログ

関数型プログラミングの基礎 再帰のルールとパターンマッチング 最大公約数、ユークリッド互除法、剰余、mod関数、中間演算子、backquote

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON7(再帰のルールとパターンマッチング)、7.5(練習問題)Q7-2の解答を求めてみる。

コード

myGCD :: Integral t => t -> t -> t
myGCD a 0 = a
myGCD a b = myGCD b $ a `mod` b

main :: IO ()
main = do
  print $ myGCD 1 1
  print $ myGCD 2 3
  print $ myGCD 42 264

入出力結果(Terminal, Zsh)

% runghc sample2.hs
1
1
6
%