RosettaCodeData/Task/Set-consolidation/PicoLisp/set-consolidation-2.l
2023-07-01 13:44:08 -04:00

8 lines
224 B
Text

: (consolidate '((A B) (C D)))
-> ((A B) (C D))
: (consolidate '((A B) (B D)))
-> ((B D A))
: (consolidate '((A B) (C D) (D B)))
-> ((D B C A))
: (consolidate '((H I K) (A B) (C D) (D B) (F G H)))
-> ((F G H I K) (D B C A))