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

23
Task/Integer-sequence/Uxntal/integer-sequence.uxnatl Normal file
View file

@ -0,0 +1,23 @@
%comma { [ LIT2 ", -Console/write ] DEO }
%space { [ LIT2 20 -Console/write ] DEO }
|18 @Console/write
|100
#0001
&loop
DUP2 print/dec comma space
INC2 !&loop
BRK
@print/dec ( short* -- )
#000a SWP2 [ LITr ff ]
&get
SWP2k DIV2k MUL2 SUB2 STH
POP OVR2 DIV2 ORAk ?&get
POP2 POP2
&put
STHr INCk ?{ POP JMP2r }
[ LIT "0 ] ADD .Console/write DEO !&put