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

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Loops-Infinite/ALGOL-60/loops-infinite.alg Normal file
View file

@ -0,0 +1,5 @@
'BEGIN' 'COMMENT' Loops/Infinite - Algol60 - 23/06/2018;
'INTEGER' I;
'FOR' I := 1 'STEP' 0 'UNTIL' 2 'DO'
OUTSTRING(1,'('SPAM')')
'END'

1
Task/Loops-Infinite/C/loops-infinite-5.c
View file

@ -1,3 +1,2 @@
/*Abhishek Ghosh, 24th October 2017*/
spam: puts("SPAM");
goto spam;

10
Task/Loops-Infinite/VAX-Assembly/loops-infinite.vax Normal file
View file

@ -0,0 +1,10 @@
0000 0000 1 .entry main,0
4D415053 8F DD 0002 2 pushl #^a"SPAM" ;string on stack
5E DD 0008 3 pushl sp ;reference to string
04 DD 000A 4 pushl #4 ;+length = descriptor
000C 5 loop:
5E DD 000C 6 pushl sp ;descriptor by reference
00000000'GF 01 FB 000E 7 calls #1, g^lib$put_output ;show message
F5 11 0015 8 brb loop ;forever
0017 9
0017 10 .end main