From 7f039afe8a8701921ae7b7e4ab5440f6c70717d7 Mon Sep 17 00:00:00 2001 From: rzuckerm Date: Sat, 21 Mar 2026 11:24:22 -0500 Subject: [PATCH] Add Quine in ALGOL 60 --- archive/a/algol60/quine.alg | 1 + 1 file changed, 1 insertion(+) create mode 100644 archive/a/algol60/quine.alg diff --git a/archive/a/algol60/quine.alg b/archive/a/algol60/quine.alg new file mode 100644 index 000000000..a334a4b54 --- /dev/null +++ b/archive/a/algol60/quine.alg @@ -0,0 +1 @@ +begin procedure q(s0,s1,s2);string s0,s1,s2;begin outstring(1,s2);outchar(1,s0,2);outchar(1,s0,1);outchar(1,s0,1);outstring(1,s0);outchar(1,s0,2);outchar(1,s0,3);outchar(1,s0,2);outstring(1,s1);outchar(1,s0,2);outchar(1,s0,3);outchar(1,s0,2);outstring(1,s2);outchar(1,s0,2);outstring(1,s1) end q;q("\\\",",") end","begin procedure q(s0,s1,s2);string s0,s1,s2;begin outstring(1,s2);outchar(1,s0,2);outchar(1,s0,1);outchar(1,s0,1);outstring(1,s0);outchar(1,s0,2);outchar(1,s0,3);outchar(1,s0,2);outstring(1,s1);outchar(1,s0,2);outchar(1,s0,3);outchar(1,s0,2);outstring(1,s2);outchar(1,s0,2);outstring(1,s1) end q;q(") end \ No newline at end of file