aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Arithmetic-evaluation/EasyLang/arithmetic-evaluation.easy
View file

@ -9,9 +9,7 @@ subr nch
.
#
subr ntok
while ch$ = " "
nch
.
while ch$ = " " : nch
if ch >= 48 and ch <= 58
tok$ = "n"
s$ = ""
@ -33,14 +31,14 @@ subr init0
astright[] = [ ]
err = 0
.
proc init s$ . .
proc init s$ .
inp$[] = strchars s$
inp_ind = 1
nch
ntok
init0
.
proc ast_print nd . .
proc ast_print nd .
write "AST:"
for i to len astop$[]
write " ( "