13 lines
213 B
Text
13 lines
213 B
Text
|
coclass 'Point'
|
||
|
|
create=: monad define
|
||
|
|
'X Y'=:2{.y
|
||
|
|
)
|
||
|
|
getX=: monad def 'X'
|
||
|
|
getY=: monad def 'Y'
|
||
|
|
setX=: monad def 'X=:y'
|
||
|
|
setY=: monad def 'Y=:y'
|
||
|
|
print=: monad define
|
||
|
|
smoutput 'Point ',":X,Y
|
||
|
|
)
|
||
|
|
destroy=: codestroy
|