fork(2) download
copy 
  1. import Data.Char
  2.  
  3. main = getLine >>= print . f
  4.  
  5. f ('(':s) = [(n `op` m,s'') | (n,o:s') <- f s, let Just op = lookup o [('+',(+)),('-',(-)),('*',(*)),('/',(/))], (m,')':s'') <- f s']
  6. f s = [(read $ takeWhile isDigit s,dropWhile isDigit s)]
Success #stdin #stdout 0s 6400KB
comments (?)
stdin
copy 
(((3*2)/(18/9))+(3*2))
stdout
copy 
[(9.0,"")]
https://ideone.com/2S9sMN
language:
Haskell (ghc 8.4.4)
created:
10 years ago
visibility:
secret

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!