laser · May 25, 2014 00:27 · laser · Aug 25, 2014
diff --git a/div_prime.hs b/div_prime.hs
 import Debug.Trace

 div' :: Integer -> Integer -> Integer
 div' x y
  | trace ("x is: " ++ (show x) ++ " and y is: " ++ (show y)) False = undefined
  | otherwise = x `div` y
  
 -- guards are evaluated from top to bottom until a match is found, so we fire off
 -- our call to trace (which returns False) and move on to the next guard (which is
 -- our real implementation).
	import Debug.Trace

	div' :: Integer -> Integer -> Integer
	div' x y
	\| trace ("x is: " ++ (show x) ++ " and y is: " ++ (show y)) False = undefined
	\| otherwise = x `div` y

	-- guards are evaluated from top to bottom until a match is found, so we fire off
	-- our call to trace (which returns False) and move on to the next guard (which is
	-- our real implementation).