Inheritance/Single: Difference between revisions

Content deleted Content added
No edit summary
Rdm (talk | contribs)
make J implementation typical, with each class defined in a different script
Line 278: Line 278:


=={{header|J}}==
=={{header|J}}==
<lang J>
<lang J>coclass 'Animal'</lang>
<lang J>coclass 'Dog'
saveLocaleName_base_ =. coname '' NB. save name of current locale
coclass 'Animal'
coinsert 'Animal'</lang>
coclass 'Dog'
<lang J>coclass 'Cat'
coinsert 'Animal'
coinsert 'Animal'</lang>
coclass 'Lab'
<lang J>coclass 'Lab'
coinsert 'Dog'
coinsert 'Dog'</lang>
coclass 'Collie'
<lang J>coclass 'Collie'
coinsert 'Dog'
coinsert 'Dog'</lang>
coclass 'Cat'
coinsert 'Animal'
cocurrent saveLocaleName_base_ NB. go back to starting locale
</lang>
</lang>