Arithmetic evaluation: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Fix Perl6 -> Raku in comments) |
|||
Line 4,921: | Line 4,921: | ||
=={{header|Prolog}}== |
=={{header|Prolog}}== |
||
{{works with|SWI Prolog}} |
{{works with|SWI Prolog 8.1.19}} |
||
<lang prolog>% Lexer |
<lang prolog>% Lexer |
||
numeric(X) :- 48 =< X, X =< 57. |
numeric(X) :- 48 =< X, X =< 57. |
||
Line 4,965: | Line 4,965: | ||
% Solution |
% Solution |
||
calculator(String, Value) :- |
calculator(String, Value) :- |
||
string_codes(String, Codes), |
|||
lex1(Codes, Tokens1), |
|||
lex2(Tokens1, Tokens2), |
lex2(Tokens1, Tokens2), |
||
parse(Tokens2, Expression), |
parse(Tokens2, Expression), |