fork download
  1.  
  2.  
  3. %% atom_number(atom, number)
  4. lex([],[]).
  5. lex(['int' | T], ['TYPE: int' | R]) :- lex(T, R).
  6. lex(['bool' | T], ['TYPE: bool'] | R) :- lex(T, R).
  7. lex([',' | T], ['COMMA: ,'] | R) :- lex(T, R).
  8. lex([X | T], [X | R]) :- lex(T, R).
  9.  
Success #stdin #stdout #stderr 0.03s 6812KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit