Amachang's prototype-based OOP example in J (http://d.hatena.ne.jp/amachang/20061019 via http://blog.livedoor.jp/dankogai/archives/50666398.html)

donpen.ijs

NB. Amachang's prototype-based OOP example in J
NB. http://d.hatena.ne.jp/amachang/20061019 via http://blog.livedoor.jp/dankogai/archives/50666398.html

animal =. conew 'z'

breath__animal =: verb define
    echo 'すーはー'
)

NB. 鳥さんのプロトタイプ
bird =. conew >animal
fly__bird =: verb define
    echo 'ばたばた'
)

NB. ペンギンさんのプロトタイプ
penguin =. conew >bird
fly__penguin =: verb define
    echo '飛べない'
)

NB. ドンペン君
donpen =. conew >penguin
sing__donpen =: verb define
    echo 'どんどんどんどんきー♪ドンキーホーテー！'
)

breath__donpen '' NB. 動物だから呼吸できる
fly__donpen '' NB. ペンギンは飛べない
sing__donpen '' NB. ドンキホーテーの歌を歌う

NB. 実は鳥は歩ける
walk__bird =: verb define
    echo 'てくてく'
)

walk__donpen '' NB. 鳥なので「てくてく」歩ける

NB. でも、ペンギンは「てくてく」じゃなく「ぴょこぴょこ」だ
walk__penguin =: verb define
    echo 'ぴょこぴょこ'
)

walk__donpen '' NB. ぴょこぴょこ

exit 0

$ jconsole donpen.ijs
すーはー
飛べない
どんどんどんどんきー♪ドンキーホーテー！
てくてく
ぴょこぴょこ