composition.hs (412B)
1 -- addOne num = num + 1 2 -- timesTwo num = num * 2 3 -- squared num = num * num 4 -- minusFive num = num - 5 5 -- 6 -- result1 = addOne 1 7 -- result2 = timesTwo result1 8 -- result3 = squared result2 9 -- 10 -- main = print (minusFive result3) 11 12 addOne num = num + 1 13 timesTwo num = num * 2 14 squared num = num * num 15 minusFive num = num - 5 16 findResult num = minusFive (squared (timesTwo (addOne num))) 17 18 main = print (findResult 7)