хочу написать маленький лисп на паскале вроде REPL- read-eval-print-loop сделал.
Код:
program TLisp;
var s: string;
{ Read }
procedure GetChar;
begin
Readln(s);
end;
{print}
procedure print(s:string);
begin
write(s);
end;
{eval}
procedure eval( var s:string);
begin
if s='q' then
halt;
end;
{ Main Program }
begin
while true do
begin
print('TLisp>');
GetChar;
eval(s);
print(s);
print(#10);
end;
end.
вопрос насколько правильно? и так же вопрос что следует делать дальше кто знает??