Initial data commit

Task/Algebraic-data-types/J/algebraic-data-types-1.j

@@ -0,0 +1,39 @@
+insert=:{{
+  'R';'';y;a:
+:
+  if. 0=#y do. insert x
+  elseif. 0=L.y do. x insert insert y
+  else.
+    'C e K w'=. y
+    select. *x - K
+      case. _1 do. balance C;(x insert e);K;<w
+      case.  0 do. y
+      case.  1 do. balance C;e;K;<x insert w
+    end.
+  end.
+}}
+
+NB. C: color, e: east, K: key, w: west
+NB. two cascaded reds under a black become two black siblings under a red
+balance=: {{
+  'C e K w'=. y
+  if. #e do.
+    'eC ee eK ew'=. e
+    if. 'R'=eC do.
+      if. #ee do.
+        'eeC eee eeK eew'=. ee NB. ((eee eeK eew) eK ew) K w   =>  (eee eeK eew) eK (ew K w)
+        if. 'R'=eeC do. 'R';('B';eee;eeK;<eew);eK;<'B';ew;K;<w return. end. end.
+      if. #ew do.
+        'ewC ewe ewK eww'=. ew NB. (ee ek (ewe ewK eww)) K w  =>  (ee ek ewe) ewK (eww K w)
+        if. 'R'=ewC do. 'R';('B';ee;eK;<ewe);ewK;<'B';eww;K;<w return. end. end. end. end.
+  if. #w do.
+    'wC we wK ww'=. w
+    if. 'R'=wC do.
+      if. #we do.
+        'weC wee weK wew'=. we NB. e K ((wee weK wew) wK ww)  =>  (e K wee) weK (wew wK ww)
+        if. 'R'=weC do. 'R';('B';e;K;<wee);weK;<'B';wew;wK;<ww return. end. end.
+      if. #ww do.
+        'wwC wwe wwK www'=. ww NB. e K (we wK (wwe wwK www))  =>  (e K we) wK (wwe wwK www)
+        if. 'R'=wwC do. 'R';('B';e;K;<we);wK;<'B';wwe;wwK;<www return. end. end. end. end.
+  y
+}}

Task/Algebraic-data-types/J/algebraic-data-types-2.j

@@ -0,0 +1,6 @@
+   3 insert 2 insert 5
+┌─┬───────┬─┬───────┐
+│R│┌─┬┬─┬┐│3│┌─┬┬─┬┐│
+│ ││B││2│││ ││B││5│││
+│ │└─┴┴─┴┘│ │└─┴┴─┴┘│
+└─┴───────┴─┴───────┘

Task/Algebraic-data-types/J/algebraic-data-types-3.j

@@ -0,0 +1,18 @@
+NB. always treat root of tree as black
+validate=: {{
+  if. 0=#y do. 1 return. end.
+  'C e K w'=. y
+  check 'B';e;K;<w
+}}
+
+check=: {{
+  if. 0=#y do. 1 return. end.
+  'C e K w'=. y
+  if. 'R'=C do.
+    if. 'R'={.;{.e do. 0 return. end.
+    if. 'R'={.;{.w do. 0 return. end.
+  end.
+  a=. check e
+  b=. check w
+  (*a)*(a=b)*b+'B'=C
+}}

Task/Algebraic-data-types/J/algebraic-data-types-4.j

@@ -0,0 +1,16 @@
+   ?.~20
+14 18 12 16 5 1 3 0 6 13 9 8 15 17 2 10 7 4 19 11
+   insert/?.~20
+┌─┬──────────────────────────────────────────────────────────────────────┬──┬────────────────────────────────────────────────────────────────────────┐
+│R│┌─┬───────────────────────────────────┬─┬────────────────────────────┐│10│┌─┬────────────────────────────────────────────────┬──┬────────────────┐│
+│ ││R│┌─┬──────────────┬─┬──────────────┐│5│┌─┬───────┬─┬──────────────┐││  ││B│┌─┬────────────────┬──┬────────────────────────┐│17│┌─┬────────┬──┬┐││
+│ ││ ││B│┌─┬┬─┬───────┐│2│┌─┬───────┬─┬┐││ ││B│┌─┬┬─┬┐│7│┌─┬┬─┬───────┐│││  ││ ││R│┌─┬┬──┬────────┐│13│┌─┬────────┬──┬────────┐││  ││B│┌─┬┬──┬┐│19││││
+│ ││ ││ ││B││0│┌─┬┬─┬┐││ ││B│┌─┬┬─┬┐│4││││ ││ ││B││6│││ ││B││8│┌─┬┬─┬┐││││  ││ ││ ││B││11│┌─┬┬──┬┐││  ││B│┌─┬┬──┬┐│15│┌─┬┬──┬┐│││  ││ ││R││18│││  ││││
+│ ││ ││ ││ ││ ││R││1││││ ││ ││R││3│││ ││││ ││ │└─┴┴─┴┘│ ││ ││ ││R││9││││││  ││ ││ ││ ││  ││R││12││││  ││ ││R││14│││  ││R││16│││││  ││ │└─┴┴──┴┘│  ││││
+│ ││ ││ ││ ││ │└─┴┴─┴┘││ ││ │└─┴┴─┴┘│ ││││ ││ │       │ ││ ││ │└─┴┴─┴┘││││  ││ ││ ││ ││  │└─┴┴──┴┘││  ││ │└─┴┴──┴┘│  │└─┴┴──┴┘│││  │└─┴────────┴──┴┘││
+│ ││ ││ │└─┴┴─┴───────┘│ │└─┴───────┴─┴┘││ ││ │       │ │└─┴┴─┴───────┘│││  ││ ││ │└─┴┴──┴────────┘│  │└─┴────────┴──┴────────┘││  │                ││
+│ ││ │└─┴──────────────┴─┴──────────────┘│ │└─┴───────┴─┴──────────────┘││  ││ │└─┴────────────────┴──┴────────────────────────┘│  │                ││
+│ │└─┴───────────────────────────────────┴─┴────────────────────────────┘│  │└─┴────────────────────────────────────────────────┴──┴────────────────┘│
+└─┴──────────────────────────────────────────────────────────────────────┴──┴────────────────────────────────────────────────────────────────────────┘
+   validate insert/?.~20
+4