fork download
copy 
  1. insideSum :: (Float, Float) -> Float
  2. insideSum (a,b) = a + b
  3.  
  4. sumTuple :: [(Float, Float)] -> Float
  5. sumTuple [] = 0
  6. sumTuple [x] = insideSum head x + sumTuple tail x
  7.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )

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

prog.hs:6:25:
    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
stdout
copy 
Standard output is empty
https://ideone.com/rcr9s
language:
Haskell (ghc 8.4.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!