RosettaCodeData/Task/Polymorphism/PicoLisp/polymorphism-2.l

7 lines
86 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(setq
P (new '(+Point) 3 4)
C (new '(+Circle) 10 10 5) )
(print> P)
(print> C)