fork download 
  1. count c l = length $ filter (c==) l
  2.  
  3. main = do 
  4.         l <- getLine
  5.         let f = count '(' l
  6.             s = count ')' l
  7.         putStrLn $ show f ++ " " ++ show s ++ " " ++ show (f==s)
Success #stdin #stdout 0.01s 3596KB
comments (?)
stdin 
(x0 + x20n - ((r - r2)*(r + r2)*(x0 - x20n))/(Power(x0 - x20n,2) + Power(y0 – y20n,2)))/2.
stdout 
8 8 True
https://ideone.com/ayTvb
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!