Skip to content

Instantly share code, notes, and snippets.

@rla

rla/arithmetic.pl

Forked from anonymous/arithmetic.pl
Created August 20, 2014 18:26
Show Gist options
  • Save rla/c9dd48b7db9ae056a651 to your computer and use it in GitHub Desktop.
Save rla/c9dd48b7db9ae056a651 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
arithmetic.pl
digit(D) --> [D],{member(D, `0123456789`)}.
digits([D]) --> digit(D).
digits([D|Ds]) --> digit(D), digits(Ds).
number_term(N) --> digits(D), {number_codes(N, D)}.
infix_op(add) --> `+`.
infix_op(sub) --> `-`.
expression(N) --> number_term(N).
expression(func(Operator, E1, E2)) -->
expression(E1), infix_op(Operator), expression(E2).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment