7 lines
145 B
Text
7 lines
145 B
Text
vardef evalit(expr s, va, vb) =
|
|
save x,a,b; x := va; a := scantokens s;
|
|
x := vb; b := scantokens s; a-b
|
|
enddef;
|
|
|
|
show(evalit("2x+1", 5, 3));
|
|
end
|