September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Reverse-a-string/ALGOL-68/reverse-a-string-1.alg
+++ b/Task/Reverse-a-string/ALGOL-68/reverse-a-string-1.alg
@ -1,13 +0,0 @@
-PROC reverse = (REF STRING s)VOID:
-  FOR i TO UPB s OVER 2 DO
-    CHAR c = s[i];
-    s[i] := s[UPB s - i + 1];
-    s[UPB s - i + 1] := c
-  OD;
-
-main:
-(
-  STRING text := "Was it a cat I saw";
-  reverse(text);
-  print((text, new line))
-)
--- a/Task/Reverse-a-string/ALGOL-68/reverse-a-string-2.alg
+++ b/Task/Reverse-a-string/ALGOL-68/reverse-a-string-2.alg
@ -1,2 +0,0 @@
-      ⌽'asdf'
-fdsa