gistfile1.txt

(ns ptest.core
  (:require [the.parsatron :as p]))

(p/defparser op []
  (p/choice (p/char \+)
            (p/char \-)
            (p/char \*)
            (p/char \/)))

(p/defparser number []
  (p/let->> [d (p/many (p/digit))]
            (p/always (reduce str d))))

(p/defparser expr []
  (p/let->> [n1 (number)
             o (op)
             n2 (number)]
            (p/always (list n1 o n2))))

(p/defparser mexpr []
  (p/many (expr)))

(p/defparser bexpr []
  (p/let->> [b1 (p/char \()
             e (mexpr)
             b2 (p/char \))]
            (list b1 e b2)))