Skip to content

Instantly share code, notes, and snippets.

@roman
Forked from takeoutweight/gist:2338894
Created April 8, 2012 18:24
Show Gist options
  • Save roman/2338955 to your computer and use it in GitHub Desktop.
Save roman/2338955 to your computer and use it in GitHub Desktop.
(ns blah
(:use [zetta.parser.seq :only (whitespace number char)]
[zetta.combinators :only (choice around)]
[zetta.core :only (*>, <*)])
(:require [zetta.core :as z]))
(def whitespaces (many whitespace))
(def identifier
(around
whitespaces
(*> (char \#)
(<* number (choice [(char \=)
(char \#)])))))
; This will work for sure
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment