fork download

copy

sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple x = insideSum head x + sumTuple tail x
 
insideSum :: (Float, Float) -> Float
insideSum x = head x + tail x

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:1:0: The function `main' is not defined in module `Main'

prog.hs:3:23:
    Couldn't match expected type `(Float, Float)'
           against inferred type `[a] -> a'
    In the first argument of `insideSum', namely `head'
    In the first argument of `(+)', namely `insideSum head x'
    In the expression: insideSum head x + sumTuple tail x

prog.hs:6:19:
    Couldn't match expected type `[a]'
           against inferred type `(Float, Float)'
    In the first argument of `head', namely `x'
    In the first argument of `(+)', namely `head x'
    In the expression: head x + tail x

Standard output is empty