Set consolidation: Difference between revisions
m
→{{header|TXR}}: Drop @(do ...)
m (→{{header|TXR}}: Drop @(do ...)) |
|||
Line 1,628:
Original solution:
▲ (defun mkset (p x) (set [p x] (or [p x] x)))
{{out}}
<pre>((a b) (c d)) -> ((
((a b) (b d)) -> ((
((a b) (c d) (d b)) -> ((
((h i k) (a b) (c d) (d b) (f g h)) -> (
{{trans|Racket}}
▲ (defun mkset (items) [group-by identity items])
{{out}}
<pre>((a b) (c d)) -> ((b a) (d c))
((a b) (b d)) -> ((d b a
((a b) (c d) (d b)) -> ((
((h i k) (a b) (c d) (d b) (f g h)) -> ((g f k i h) (
=={{header|VBScript}}==
|