Make "ALGOL 68" live

JRaspass · JRaspass · commit 97670ea71643 · 2026-02-21T17:44:10.000Z
I see no reason not to make ALGOL live, it's been experimental for over a year and both the language and the implementation are very stable with the latter having received many updates in this time. I've added the language to the Archivist cheevo too, it's close but I think it qualifies, it was created in 1968 with ISBN being formally standardised and published in 1970. If anything we might want to remove Common Lisp from the cheevo, as while Lisp is from the 50s, Common Lisp is from the 80s. Closes #856
diff --git a/config/data/cheevos.toml b/config/data/cheevos.toml
@@ -110,7 +110,7 @@ name        = 'Archivist'
 emoji       = '📚'
 description = 'Solve <a href=/isbn>ISBN</a> in any three languages that predate ISBN.'
 holes       = ['isbn']
-langs       = ['basic', 'cobol', 'common-lisp', 'forth', 'fortran']
+langs       = ['algol-68', 'basic', 'cobol', 'common-lisp', 'forth', 'fortran']
 target      = 3
 
 [['Hole/Lang Specific']]
diff --git a/config/data/langs.toml b/config/data/langs.toml
@@ -40,12 +40,11 @@ x is a no-op.
 '''
 
 ['ALGOL 68']
-args       = [ '/usr/bin/algol-68', '--execute', '$code', '--exit' ]
-experiment = 856
-size       = '1.40 MiB'
-version    = 'Algol 68 Genie 3.10.10'
-website    = 'https://jmvdveer.home.xs4all.nl/en.algol-68-genie.html'
-example    = '''
+args    = [ '/usr/bin/algol-68', '--execute', '$code', '--exit' ]
+size    = '1.40 MiB'
+version = 'Algol 68 Genie 3.10.10'
+website = 'https://jmvdveer.home.xs4all.nl/en.algol-68-genie.html'
+example = '''
 # Printing #
 printf($"Hello, World!"l$);
 
diff --git a/sql/b-earn-cheevos.sql b/sql/b-earn-cheevos.sql
@@ -57,7 +57,8 @@ BEGIN
 
     -- 📚 Archivist
     SELECT COUNT(*) >= 3 INTO found FROM UNNEST(langs_for_hole)
-     WHERE unnest IN ('basic', 'cobol', 'common-lisp', 'forth', 'fortran');
+     WHERE unnest IN
+           ('algol-68', 'basic', 'cobol', 'common-lisp', 'forth', 'fortran');
     IF hole = 'isbn' AND found THEN
         earned := earn(earned, 'archivist', user_id); END IF;
 
