fork download
  1. count c l = length $ filter (c==) l
  2.  
  3. main = do
  4. l <- getLine
  5. let
  6. f = count '(' l
  7. s = count ')' l
  8. in
  9. print $ f s (f==s)
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
(x0 + x20n - ((r - r2)*(r + r2)*(x0 - x20n))/(Power(x0 - x20n,2) + Power(y0 – y20n,2)))/2.
compilation info
[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:5:8:
    The last statement in a 'do' construct must be an expression
stdout
Standard output is empty