Skip to content

Instantly share code, notes, and snippets.

@cpcloud

cpcloud/wat.rkt

Created July 5, 2019 17:08
Show Gist options
  • Save cpcloud/8ee150a1fa2a0e8e09ee912aebb34212 to your computer and use it in GitHub Desktop.
Save cpcloud/8ee150a1fa2a0e8e09ee912aebb34212 to your computer and use it in GitHub Desktop.
Download ZIP
wat
Raw
wat.rkt
(define (term? expr)
(or (symbol? expr) (number? expr)))
(define/match (expr? expr)
[((list (or '+ '- '*) (? expr?) ...)) #t]
[((? term?)) #t]
[(_) #f])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment