testsuite/tests/codeGen/should_run/T14754.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Main where

import Debug.Trace

main :: IO ()
main = print (alg 3 1)

alg :: Word -> Word -> Word
alg a b
  | traceShow (a, b) False = undefined
  | c < b = alg b c
  | c > b = alg c b
  | otherwise = c
  where
    c = a - b