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

4
Task/UPC/EasyLang/upc.easy
View file

@ -1,4 +1,4 @@
proc trim . s$ .
proc trim &s$ .
a = 1
while substr s$ a 1 = " " : a += 1
b = len s$
@ -25,7 +25,7 @@ func$ invert s$ .
digs$[] = [ " ## #" " ## #" " # ##" " #### #" " # ##" " ## #" " # ####" " ### ##" " ## ###" " # ##" ]
func[] decode_upc upc$ .
subr getdigs
for _ to 6
for i to 6
h$ = substr upc$ pos 7
for dig to 10
d$ = digs$[dig]