From bc88e3464180e781e7ad2d552de0c8e496448d2e Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Thu, 7 Aug 2014 16:38:13 +0800 Subject: Initial commit Changes to be committed: new file: gcd.hs --- gcd.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 gcd.hs diff --git a/gcd.hs b/gcd.hs new file mode 100644 index 0000000..764e824 --- /dev/null +++ b/gcd.hs @@ -0,0 +1,11 @@ +import Control.Monad.Writer + +gcd' :: Int -> Int -> Writer [String] Int +gcd' a b + | b == 0 = do + tell ["Finished with " ++ show a] + return a + | otherwise = do + tell [show a ++ " mod " ++ show b ++ " = " ++ show (a `mod` b)] + gcd' b (a `mod` b) + -- cgit v1.2.3-70-g09d2