lex_by_file( FileName ) :-
get_input_from_file( FileName, TokenList ),
lex( TokenList, OutputList ),
%write_output( OutputList ), !.
maplist(writeln,OutputList),!.
%{
#include <stdio.h>
%}
DIGIT [0-9]
WORD [a-zA-Z]+
%%
{DIGIT
}+ { printf
("Input
is a
number: %s\n", yytext); } {WORD
} { printf
("Input
is a word
: %s\n", yytext); } . { printf("Invalid input: %s\n", yytext); }
%%
int main() {
yylex();
return 0;
}
bGV4X2J5X2ZpbGUoIEZpbGVOYW1lICkgOi0KCWdldF9pbnB1dF9mcm9tX2ZpbGUoIEZpbGVOYW1lLCBUb2tlbkxpc3QgKSwKCWxleCggVG9rZW5MaXN0LCBPdXRwdXRMaXN0ICksCgkld3JpdGVfb3V0cHV0KCBPdXRwdXRMaXN0ICksICEuCgltYXBsaXN0KHdyaXRlbG4sT3V0cHV0TGlzdCksIS4KCiV7CiNpbmNsdWRlIDxzdGRpby5oPgolfQoKRElHSVQgWzAtOV0KV09SRCBbYS16QS1aXSsKCiUlCntESUdJVH0rICAgIHsgcHJpbnRmKCJJbnB1dCBpcyBhIG51bWJlcjogJXNcbiIsIHl5dGV4dCk7IH0Ke1dPUkR9ICAgICAgeyBwcmludGYoIklucHV0IGlzIGEgd29yZDogJXNcbiIsIHl5dGV4dCk7IH0KLiAgICAgICAgICAgeyBwcmludGYoIkludmFsaWQgaW5wdXQ6ICVzXG4iLCB5eXRleHQpOyB9CgolJQoKaW50IG1haW4oKSB7CiAgICB5eWxleCgpOwogICAgcmV0dXJuIDA7Cn0K