5 lines
110 B
Text
5 lines
110 B
Text
|
(let (X 77444 Y -12 Z 0)
|
||
|
|
(println X Y Z)
|
||
|
|
(mapc set '(X Y Z) (sort (list X Y Z)))
|
||
|
|
(println X Y Z) )
|