Anonymous user
Set consolidation: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 269:
set(H, I, K) set(A, B) set(C, D) set(D, B) set(F, G, H)
==> set(A, B, C, D) set(H, I, K, F, G)</pre>
=={{header|PicoLisp}}==
{{trans|Python}}
<lang PicoLisp>(de consolidate (S)
(when S
(let R (cons (car S))
(for X (consolidate (cdr S))
(if (mmeq X (car R))
(set R (uniq (conc X (car R))))
(conc R (cons X)) ) )
R ) ) )</lang>
Test:
<lang PicoLisp>: (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))</lang>
=={{header|Python}}==
===Iterative===
| |||