Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

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

View file

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

View file

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