Anonymous user
Set consolidation: Difference between revisions
add Egison code
(→{{header|Perl 6}}: work around a couple of rakudo bugs) |
(add Egison code) |
||
Line 580:
["ABCD"]
["FGHIK", "ABCD"]</pre>
=={{header|Egison}}==
<lang egison>
(define $consolidate
(lambda [$xss]
(match xss (multiset (set char))
{[<cons <cons $m $xs>
<cons <cons ,m $ys>
$rss>>
(consolidate {(unique/m char {m @xs @ys}) @rss})]
[_ xss]})))
(test (consolidate {{'H' 'I' 'K'} {'A' 'B'} {'C' 'D'} {'D' 'B'} {'F' 'G' 'H'}}))
</lang>
'''Output:'''
<lang egison>
{"DBAC" "HIKFG"}
</lang>
=={{header|Ela}}==
| |||