RosettaCodeData/Task/Sort-three-variables/PicoLisp/sort-three-variables.l

5 lines
110 B
Plaintext

(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) )