Parser :: hpaste — Haskell Pastebin

Contact/support | Changelog

Edit - Annotate - Report/Delete

Parser

Paste:#48318
Author(s):Stoyan Peev
Language:Haskell
Channel:#haskell Context in IRC logs
Created:2011-06-25 19:17:19 UTC
Raw:View raw link

import Parsing

expr                          :: Parser Int
expr                          =  do t <- term
                                    do symbol "+"               
                                       e <- expr
                                       return (t+e)
				      +++ do symbol "-"
					     e <- expr
					     return (t-e)
				      +++ return t
term                          :: Parser Int
term                          =  do f <- factor
                                    do symbol "*"
                                       t <- term
                                       return (f * t)
				      +++ do symbol "/"
					     t <- term
					     return (f-t)
				      +++ return f
factor                        :: Parser Int
factor                        =  do symbol "("
                                    e <- expr
                                    symbol ")"
                                    return e
                                  +++ natural
eval                          :: String -> Int
eval xs                       =  case (parse expr xs) of
                                    [(n,[])]  -> n
                                    [(_,out)] -> error ("unused input " ++ out)
                                    []        -> error "invalid input"


p :: [String] -> Int

p [] = []

p (x:xs) = eval x

28:34: Warning: Redundant bracket
Found:
  case (parse expr xs) of
      [(n, [])] -> n
      [(_, out)] -> error ("unused input " ++ out)
      [] -> error "invalid input"
Why not:
  case parse expr xs of
      [(n, [])] -> n
      [(_, out)] -> error ("unused input " ++ out)
      [] -> error "invalid input"

Diff original - Edit - Annotate - Report/Delete

Parser (annotation)

Paste:#48323 (an annotation of #48318)
Author(s):Jack Henahan
Language:Haskell
Channel:-
Created:2011-06-25 19:41:57 UTC
Raw:View raw link

import Parsing

expr :: Parser Int
expr =  do t <- term
           do symbol "+"               
              e <- expr
              return (t+e)
             +++ do symbol "-"
                    e <- expr
                    return (t-e)
             +++ return t

term :: Parser Int
term =  do f <- factor
           do symbol "*"
              t <- term
              return (f * t)
             +++ do symbol "/"
                    t <- term
                    return (f-t)
             +++ return f

factor :: Parser Int
factor =  do symbol "("
             e <- expr
             symbol ")"
             return e
          +++ natural

eval :: String -> Int
eval xs =  case parse expr xs of
  [(n,[])]  -> n
  [(_,out)] -> error ("unused input " ++ out)
  []        -> error "invalid input"


p :: [String] -> Int
p [] = []
p (x:xs) = eval x

Diff original / prev - Edit - Annotate - Report/Delete

Parser (annotation) (edit)

Paste:#48324 (an annotation of #48318)
Author(s):Jack Henahan
Language:Haskell
Channel:-
Created:2011-06-25 19:54:21 UTC
Raw:View raw link

import Parsing

expr :: Parser Int
expr =  do t <- term
           do symbol "+"               
              e <- expr
              return (t+e)
             +++ do symbol "-"
                    e <- expr
                    return (t-e)
             +++ return t

term :: Parser Int
term =  do f <- factor
           do symbol "*"
              t <- term
              return (f * t)
             +++ do symbol "/"
                    t <- term
                    return (f-t)
             +++ return f

factor :: Parser Int
factor =  do symbol "("
             e <- expr
             symbol ")"
             return e
          +++ natural

eval :: String -> Int
eval xs =  case parse expr xs of
  [(n,[])]  -> n
  [(_,out)] -> error ("unused input " ++ out)
  []        -> error "invalid input"


p :: [String] -> Int
p [] = 0
p (x:xs) = eval x