A-M baby

Task/Constrained-genericity/J/constrained-genericity-1.j

@@ -0,0 +1,14 @@
+coclass'Connoisseur'
+isEdible=:3 :0
+  0<nc<'eat__y'
+)
+
+coclass'FoodBox'
+create=:3 :0
+  assert isEdible_Connoisseur_ type=:y
+  collection=: 0#y
+)
+add=:3 :0"0
+  'inedible' assert type e. copath y
+  collection=: collection, y
+)

Task/Constrained-genericity/J/constrained-genericity-2.j

@@ -0,0 +1,4 @@
+coclass'Apple'
+eat=:3 :0
+  smoutput'delicious'
+)

Task/Constrained-genericity/J/constrained-genericity-3.j

@@ -0,0 +1,8 @@
+   lunch=:(<'Apple') conew 'FoodBox'
+   a1=: conew 'Apple'
+   a2=: conew 'Apple'
+   add__lunch a1
+   add__lunch a2
+   george=: conew 'Connoisseur'
+   add__lunch george
+|inedible: assert