replace => operator with KEY operator in hashmap

squell · Dec 18, 2021 · 0b3fbcb · 0b3fbcb
1 parent 6e74c4a
commit 0b3fbcb
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/12/hash.a68 b/12/hash.a68
@@ -24,8 +24,8 @@ COMMENT
 PROC new dictionary = DICT:
     (DICT res; FOR i FROM LWB res TO UPB res DO res[i] := (0, HEAP[1]DICTENTRY) OD; res);
 
-PRIO => = 2;
-OP => = (REF DICT map, STRING word)REF DATUM:
+PRIO KEY = 2;
+OP KEY = (REF DICT map, STRING word)REF DATUM:
 BEGIN
     INT pos = HASH word MOD (UPB map+1);
     REF REF []DICTENTRY list = bins OF map[pos];

diff --git a/12/solve.a68 b/12/solve.a68
@@ -35,8 +35,8 @@ BEGIN
   DO
     STRING a,b;
     read((a,LOC CHAR,b,new line));
-    connections=>a +:= b;
-    connections=>b +:= a
+    connections KEY a +:= b;
+    connections KEY b +:= a
   OD;
   done reading:
   SKIP
@@ -49,7 +49,7 @@ PROC walk = (STRING entry, goal)VOID:
    PROC go = (STRING cur)VOID:
    (
      cur path +:= cur;
-     []STRING next = map=>cur;
+     []STRING next = map KEY cur;
      IF cur = goal THEN
        total paths +:= 1;
        printf(($n(UPB cur path-1)(g",")gl$, cur path))

diff --git a/12/solve2.a68 b/12/solve2.a68
@@ -35,8 +35,8 @@ BEGIN
   DO
     STRING a,b;
     read((a,LOC CHAR,b,new line));
-    connections=>a +:= b;
-    connections=>b +:= a
+    connections KEY a +:= b;
+    connections KEY b +:= a
   OD;
   done reading:
   SKIP
@@ -50,7 +50,7 @@ PROC walk = (STRING entry, goal)VOID:
    PROC go = (STRING cur)VOID:
    (
      cur path +:= cur;
-     []STRING next = map=>cur;
+     []STRING next = map KEY cur;
      IF cur = goal THEN
        total paths +:= 1;
        CO printf(($n(UPB cur path-1)(g",")gl$, cur path)) CO

diff --git a/14/solve.a68 b/14/solve.a68
@@ -10,7 +10,7 @@ BEGIN
     DO
       STRING key;
       readf(($2a " -> " al$, key));
-      rules=>key[1:2] := key[3]+key[2]
+      rules KEY key[1:2] := key[3]+key[2]
     OD;
 done reading:
     SKIP
@@ -21,7 +21,7 @@ BEGIN
     [2*UPB s-1]CHAR new;
     new[1] := s[1];
     FOR i TO UPB s-1 DO
-      new[2*i:2*i+1] := rules=>s[i:i+1]
+      new[2*i:2*i+1] := rules KEY s[i:i+1]
     OD;
     s := new
 END;