Remove duplicate elements: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 6:
* Go through the list, and for each element, check the rest of the list to see if it appears again, and discard it if it does. The complexity is O(''n''<sup>2</sup>). The up-shot is that this always works on any type (provided that you can test for equality).
<br><br>
=={{header|360 Assembly}}==
{{trans|PL/I}}
Line 314 ⟶ 315:
<pre>#(1 2 3 4 5)</pre>
=={{header|AutoHotkey}}==
Line 789:
{{out}}
<pre>[0, 2, 4, 5, 6, 7, 8, 9, 32]</pre>
=={{header|Déjà Vu}}==▼
<lang dejavu>}▼
for item in [ 1 10 1 :hi :hello :hi :hi ]:▼
@item▼
!. keys set{</lang>▼
{{out}}▼
<pre>[ 1 :hello 10 :hi ]</pre>▼
=={{header|Delphi}}==
Line 833 ⟶ 824:
4
5</pre>
▲=={{header|Déjà Vu}}==
▲<lang dejavu>}
▲for item in [ 1 10 1 :hi :hello :hi :hi ]:
▲ @item
▲!. keys set{</lang>
▲{{out}}
▲<pre>[ 1 :hello 10 :hi ]</pre>
=={{header|E}}==
Line 853:
9
</pre>
=={{header|Elena}}==
ELENA 5.0 :
Line 1,142 ⟶ 1,143:
[9, 8, 6, 5, 2, 1]
</pre>
=={{header|Gambas}}==
'''[https://gambas-playground.proko.eu/?gist=1e2bb524d2278cd88bccdc21a1683296 Click this link to run this code]'''
Line 2,013 ⟶ 2,015:
EndFor
</lang>
=={{header|MiniScript}}==▼
<lang MiniScript>items = [1, 2, 3, "a", "b", "c", 2, 3, 4, "b", "c", "d"]▼
d = {}▼
for i in items▼
d.push i▼
end for▼
print d.indexes</lang>▼
{{out}}▼
<pre>["b", 1, "d", 3, "a", 4, "c", 2]</pre>▼
=={{header|ML}}==
Line 2,036 ⟶ 2,048:
<pre>the quickbrownfxjmpdvlazyg
[1, 2, 3, 4, dog, cat, 1.1, 2.2, 3.3]</pre>
▲=={{header|MiniScript}}==
▲<lang MiniScript>items = [1, 2, 3, "a", "b", "c", 2, 3, 4, "b", "c", "d"]
▲d = {}
▲for i in items
▲ d.push i
▲end for
▲print d.indexes</lang>
▲{{out}}
▲<pre>["b", 1, "d", 3, "a", 4, "c", 2]</pre>
=={{header|Modula-2}}==
Line 2,459 ⟶ 2,461:
@seen{qw(1 2 3 a b c 2 3 4 b c d)} = ();
my @uniq = keys %seen;</lang>
=={{header|Perl 6}}==▼
<lang perl6>my @unique = [1, 2, 3, 5, 2, 4, 3, -3, 7, 5, 6].unique;</lang>▼
Or just make a set of it.▼
<lang perl6>set(1,2,3,5,2,4,3,-3,7,5,6).list</lang>▼
=={{header|Phix}}==
Line 2,837 ⟶ 2,834:
"fdsba"
</pre>
(formerly Perl 6)
▲<lang perl6>my @unique = [1, 2, 3, 5, 2, 4, 3, -3, 7, 5, 6].unique;</lang>
▲Or just make a set of it.
▲<lang perl6>set(1,2,3,5,2,4,3,-3,7,5,6).list</lang>
=={{header|Raven}}==
Line 2,858 ⟶ 2,861:
{{out}}
<pre>[1 $23.19 2 elbow 3 Bork 4]</pre>
=={{header|Red}}==
<lang Red>>> items: [1 "a" "c" 1 3 4 5 "c" 3 4 5]
Line 3,036 ⟶ 3,040:
unique ["hi","hey","hello","hi","hey","heyo"] # => ["hi", "hey", "hello", "heyo"]
unique [1,2,3,4,1,2,3,5,1,2,3,4,5] # => [1,2,3,4,5]</lang>
=={{header|Run BASIC}}==
<lang runbasic>a$ = "2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2"
Line 3,447 ⟶ 3,452:
2
Foxtrot</pre>
=={{header|VBScript}}==
Line 3,481 ⟶ 3,485:
<lang vim>call filter(list, 'count(list, v:val) == 1')</lang>
=={{header|Wart}}==▼
<lang python>def (dedup l)▼
let exists (table)▼
collect+each x l▼
unless exists.x▼
yield x▼
exists.x <- 1</lang>▼
{{out}}▼
<pre>dedup '(1 3 2 9 1 2 3 8 8 1 0 2)▼
=> (1 3 2 9 8 0)</pre>▼
=={{header|Visual FoxPro}}==
Line 3,537 ⟶ 3,529:
</pre>
▲=={{header|Wart}}==
▲<lang python>def (dedup l)
▲ let exists (table)
▲ collect+each x l
▲ unless exists.x
▲ yield x
▲ exists.x <- 1</lang>
▲{{out}}
▲<pre>dedup '(1 3 2 9 1 2 3 8 8 1 0 2)
▲=> (1 3 2 9 8 0)</pre>
=={{header|Wortel}}==
| |||