RosettaCodeData/Task/Reflection-List-properties/PicoLisp/reflection-list-properties-2.l

11 lines
155 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
: (setq R (new '(+Rectangle) 0 0 30 20))
-> $177356065126400
: (show R)
$177715702441044 (+Rectangle)
dy 20
dx 30
y 0
x 0
-> $177715702441044