Anonymous user
Constrained genericity: Difference between revisions
m
→{{header|Forth}}
No edit summary |
|||
Line 384:
:class Eatable
:m eat cr ." successful eat" ;m
;class
\ FoodBox
:class FoodBox
object-list eatable-types
Line 397:
:m test:
begin eatable-types each:
while eat
repeat ;m
;class
Line 425:
successful eat
</lang>
=={{header|Go}}==
| |||