fork(1) download 
  1. import Data.Char ( isSpace )
  2.  
  3. _sexpr "" = []
  4. _sexpr exp@(tok:exp_t)
  5. 	| id == ""	= [tok]:sexpr exp_t
  6. 	| otherwise	=    id:sexpr exp_tt
  7. 	where
  8. 		(id,exp_tt)	= break isSep exp
  9. 		isSep c		= c `elem` "()" || isSpace c
  10.  
  11. sexpr = _sexpr . dropWhile isSpace
  12.  
  13. main = interact $ unlines . fmap (show . sexpr) . lines
Success #stdin #stdout 0s 4616KB
comments (?)
stdin 
(+ 12 (* 3 4 (+ 1 2 3) 5) 1)
stdout 
["(","+","12","(","*","3","4","(","+","1","2","3",")","5",")","1",")"]
https://ideone.com/WQj5sC
language:
Haskell (ghc 8.4.4)
created:
9 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!