[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / cg036 / Main.hs
1 --!! Won't compile unless the compile succeeds on
2 --!! the "single occurrence of big thing in a duplicated small thing"
3 --!! inlining old-chestnut. WDP 95/03
4 --
5 module Main ( main, g ) where
6
7 main = putStr (shows (g 42) "\n")
8
9 g :: Int -> Int -> Int -> (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
10
11 g x y z
12 = let
13 f a b = a + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b
14 g c = f c c
15 in
16 (g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y)