RosettaCodeData/Task/Reflection-List-properties/PicoLisp/reflection-list-properties-2.l
2023-07-01 13:44:08 -04:00

10 lines
155 B
Common Lisp

: (setq R (new '(+Rectangle) 0 0 30 20))
-> $177356065126400
: (show R)
$177715702441044 (+Rectangle)
dy 20
dx 30
y 0
x 0
-> $177715702441044