Arithmetic evaluation: Difference between revisions

m
Line 1,325:
#
subr ntok
ifwhile ch$ = 0" "
tok$ = "eof"nch
else.
if ch >= while48 and ch$ <= " "58
tok$ = nch"n"
.s$ = ""
ifwhile ch >= 48 and ch <= 58 or ch$ = "."
toks$ &= "n"ch$
s$ = ""
while ch >= 48 and ch <= 58 or ch$ = "."
s$ &= ch$
nch
.
tokv = number s$
else
tok$ = ch$
nch
.
tokv = number s$
elif ch = 0
tok$ = ch$"end of text"
else
stok$ = ""ch$
nch
.
.
Line 1,392 ⟶ 1,390:
.
ntok
else
err = .1
print "error: factor expected, got " & tok$
.
return nd
Line 1,452 ⟶ 1,453:
.
input_data
4 * 6
4.2 * ((5.3+8)*3 + 4)
2.5 * 2 + 2 * 3.14
2,063

edits