Wiele języków ma wbudowane sposoby na pozbycie się duplikatów, „deduplikowania” lub „unikatowania” listy lub łańcucha. Mniej powszechnym zadaniem jest „detriplikowanie” łańcucha. Oznacza to, że dla każdej pojawiającej się postaci są zachowywane dwa pierwsze wystąpienia.

Oto przykład, w którym znaki, które należy usunąć, są oznaczone ^:

aaabcbccdbabdcd
  ^    ^ ^^^ ^^
aabcbcdd

Twoim zadaniem jest wdrożenie dokładnie tej operacji.

Zasady

Dane wejściowe to pojedynczy, być może pusty ciąg. Możesz założyć, że zawiera tylko małe litery w zakresie ASCII.

Wyjście powinno być pojedynczym ciągiem ze wszystkimi usuniętymi znakami, które już pojawiły się co najmniej dwa razy w ciągu (więc zachowane są dwa najbardziej lewe wystąpienia).

Zamiast ciągów możesz pracować z listami znaków (lub ciągami singletonowymi), ale format musi być spójny między wejściem a wyjściem.

Możesz napisać program lub funkcję i użyć dowolnej z naszych standardowych metod otrzymywania danych wejściowych i dostarczania danych wyjściowych.

Możesz używać dowolnego języka programowania , ale pamiętaj, że te luki są domyślnie zabronione.

To jest golf golfowy , więc wygrywa najkrótsza ważna odpowiedź - mierzona w bajtach .

Przypadki testowe

Każda para linii to jeden przypadek testowy, dane wejściowe i dane wyjściowe.

xxxxx
xx
abcabc
abcabc
abcdabcaba
abcdabc
abacbadcba
abacbdc
aaabcbccdbabdcd
aabcbcdd

Tabela liderów

Fragment kodu na dole tego postu generuje tabelę wyników z odpowiedzi a) jako listę najkrótszych rozwiązań dla każdego języka oraz b) jako ogólną tabelę wyników.

Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

## Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Jeśli chcesz umieścić w nagłówku wiele liczb (np. Ponieważ twój wynik jest sumą dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

## Perl, 43 + 3 (-p flag) = 45 bytes

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="language-list"> <h2>Shortest Solution by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr> </thead> <tbody id="languages"> </tbody> </table> </div> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr> </thead> <tbody id="answers"> </tbody> </table> </div> <table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table><script>var QUESTION_ID = 86503; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 8478; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "https://api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Galaretka , 6 bajtów

Qx2œ&@

Wypróbuj online! lub zweryfikuj wszystkie przypadki testowe .

Jak to działa

Qx2œ&@  Main link. Argument: s (string)

Q       Unique; deduplicate s.
 x2     Repeat each character.
   œ&@  Take the multiset intersection of s and the previous result.

JavaScript (ES6), 42 48

Edytuj Ogromne 6 bajtów zaoszczędzonych dzięki @Neil

s=>s.replace(k=/./g,c=>(k[c]+=c)[11]?'':c)

Objaśnienie: Używam właściwości „a” ... z z obiektu kdo przechowywania informacji dla każdego znaku (w tym przypadku obiekt k jest wyrażeniem regularnym tylko w celu zapisania bajtów). Te właściwości są początkowo undefined. W javascript dodanie liczby do undefineddaje NaN(całkiem rozsądne), ale dodanie ciągu „X” daje "undefinedX"- ciąg długości 10 (głupie). Dodając więcej znaków, otrzymujesz dłuższe ciągi. Jeśli uzyskany ciąg dla danego znaku jest dłuższy niż 11, znak ten nie jest kopiowany do wyniku.

Test

F=
s=>s.replace(k=/./g,c=>(k[c]+=c)[11]?'':c)

test=`

xxxxx
xx
abcabc
abcabc
abcdabcaba
abcdabc
abacbadcba
abacbdc
aaabcbccdbabdcd
aabcbcdd`.split`\n`
for(i=0;i<test.length;)
  a=test[i++],b=test[i++],r=F(a),
  console.log(r==b?'OK':'KO',a,'->',r,b)

Python 2, 48 bajtów

lambda s:reduce(lambda r,c:r+c*(r.count(c)<2),s)

c[r.count(c)/2:]jest alternatywą dla tej samej długości c*(r.count(c)<2).

49 bajtów:

r=''
for c in input():r+=c*(r.count(c)<2)
print r

Siatkówka , 17 bajtów

(.)(?<=\1.*\1.+)

Wypróbuj online!

Prosta zamiana wyrażeń regularnych - dopasuj znak, jeśli pojawił się już dwukrotnie, i usuń go.

Brachylog , 25 bajtów

.v|s.g:.z:1a
:2fl<3
he~t?

Wypróbuj online! lub zweryfikuj wszystkie przypadki testowe .

Wyjaśnienie

Działa to, ponieważ s - Subsetnajpierw ujednolici się z większymi podzbiorami, dlatego np "aaa". Spróbuje "aa"wcześniej "a".

• Główny predykat:

    .v         input = Output = ""
  |          Or
    s.         Output is an ordered subset of the input
    g:.z       Zip each character of the output with the output itself
    :1a        Apply predicate 1 on each element of the zip
  

• Predykat 1: Sprawdź, czy wszystkie postacie pojawiają się maksymalnie dwa razy. Dane wejściowe =[String:Char]

  :2f        Find all valid outputs of predicate 2 (i.e. one output per occurence
                 of the char)
  l<3        There are less than 3 occurences
  

• Predicate 2: Uzyskaj wystąpienie postaci. Dane wejściowe =[String:Char]

  he         Take a character of the string in the input
    ~t?      That character is the char of the input
  

> <> , 22 bajty

i:0(?;::9g:}2(?o{1+$9p

Wypróbuj online! Używa codbox do śledzenia do tej pory liczby.

i                       Read a char c of input
 :0(?;                  Halt if EOF
      :                 Make a copy - stack has [c c] at the top
       :9g              Get count stored at (c, 9)
          :}            Copy the count and move to bottom of stack
            2(?o        If the count is less than 2, output c
                {1+     Move the count back to the top of the stack and increment
                   $9p  Update cell at (c, 9)
                        [Instruction pointer moves to start as ><> is toroidal]

J, 20 15 bajtów

#~(3>[+/@:={:)\

Definiuje funkcję monadyczną, która przyjmuje i zwraca ciąg znaków. Wypróbuj tutaj . Stosowanie:

   f =: #~(3>[+/@:={:)\
   f 'abaacbb'
abacb

Wyjaśnienie

Przełączyłem się na ten sam algorytm, którego używają niektóre inne rozwiązania, ponieważ okazał się on krótszy ...

#~(3>[+/@:={:)\  Input is y.
  (          )\  For each prefix of y:
          =        compute the equality vector
     [     {:      of the prefix and its last element, and
      +/@:         take its sum. Now we have a vector r such that y[i] has its
                   r[i]'th occurrence at position i.
   3>              Mark those coordinates where r[i] < 3.
#~               Remove the non-marked characters from y.

Haskell, 40 39 bajtów

foldl(\s c->s++[c|filter(==c)s<=[c]])""

Przykład użycia: foldl(\s c->s++[c|filter(==c)s<=[c]])"" "aaabcbccdbabdcd"-> "aabcbcdd".

Zachowaj następny znak, cjeśli ciąg wszystkich cjak dotąd jest leksykograficzny mniejszy lub równy ciągowi singletonu [c].

Edycja: @xnor zapisał bajt, przełączając się ze zrozumienia listy na filter. Dzięki!

Perl, 22 bajty

Kod 21 bajtów + 1 dla -p.

s/./$&x(2>${$&}++)/ge

Stosowanie

perl -pe 's/./$&x(2>${$&}++)/ge' <<< 'aaabcbccdbabdcd'
aabcbcdd

C, 57 bajtów

Zadzwoń f()ze sznurkiem, aby się dowiedzieć. Funkcja modyfikuje swój parametr. Wymaga C99 z powodu fordeklaracji pętli.

f(char*p){for(char*s=p,m[256]={0};*s=*p;s+=++m[*p++]<3);}

JavaScript (ES6), 35 bajtów

s=>s.filter(c=>(s[c]=(s[c]|0)+1)<3)

Pobiera tablicę znaków jako dane wejściowe i zwraca tablicę szczegółową.

PowerShell v2 +, 31 bajtów

$args-replace'(.)(?<=\1.*\1.+)'

Używa tego samego wyrażenia regularnego, co w odpowiedzi Retina Kobi , po prostu enkapsulowanej w -replaceoperatorze PowerShell . Działa, ponieważ oba używają w tle wyrażenia regularnego .NET-flavour.

Alternatywnie, bez wyrażenia regularnego, 56 bajtów

$b=,0*200;-join([char[]]$args[0]|%{"$_"*($b[$_]++-lt2)})

Tworzy tablicę pomocniczą $bwstępnie wypełnioną 0s. Rzuca ciąg wejściowy $args[0]jako chartablicę, przepuszcza go przez pętlę |%{...}. Każda iteracja generuje bieżący znak $_jako ciąg "$_"pomnożony przez wartość logiczną, która jest $TRUE(domyślnie rzutowana 1tutaj) tylko wtedy, gdy odpowiedni punkt w tablicy pomocniczej jest mniejszy niż 2(tj. Nie widzieliśmy tego znaku dwa razy). Powstały zbiór ciągów jest enkapsulowany w pareny i edytowany -joinrazem, tworząc pojedynczy ciąg wyjściowy. Pozostaje to w potoku, a dane wyjściowe są niejawne.

Mathematica, 39 bajtów

Fold[If[Count@##<2,Append@##,#]&,{},#]&

Funkcja anonimowa. Pobiera listę znaków jako dane wejściowe i zwraca listę danych szczegółowych jako dane wyjściowe. Używa metody zwijania listy i odrzucania potrójnych elementów, nie jest to zbyt skomplikowane.

05AB1E, 12 bajtów

vyˆ¯y¢O3‹iy?

Wyjaśnienie

v            # for each char in input
 yˆ          # push to global array
   ¯y¢O3‹i   # if nr of occurrences are less than 3
          y? # print it

Wypróbuj online

MATL , 8 bajtów

t&=Rs3<)

Wypróbuj online!

Wyjaśnienie

t      % Input string implicitly. Push another copy
&=     % Matrix of all pairwise equality comparisons of string elements
R      % Keep only upper triangular part, making the rest of the entries zero
s      % Sum of each column. This gives a vector with number of occurrences
       % of the current character up to the current position
3<     % True for entries that are less than 3
)      % Use as logical index into initial copy of the input. Display implicitly

Przykład

Zakładając dane wejściowe 'aaababbc', stos zawiera następujące elementy po wskazanych instrukcjach:

• t

  'aaababbc'
  'aaababbc'
  

• t&=

  'aaababbc'
  [ 1 1 1 0 1 0 0 0;
    1 1 1 0 1 0 0 0;
    1 1 1 0 1 0 0 0;
    0 0 0 1 0 1 1 0;
    1 1 1 0 1 0 0 0;
    0 0 0 1 0 1 1 0;
    0 0 0 1 0 1 1 0;
    0 0 0 0 0 0 0 1 ]
  

• t&=R

  'aaababbc'
  [ 1 1 1 0 1 0 0 0;
    0 1 1 0 1 0 0 0;
    0 0 1 0 1 0 0 0;
    0 0 0 1 0 1 1 0;
    0 0 0 0 1 0 0 0;
    0 0 0 0 0 1 1 0;
    0 0 0 0 0 0 1 0;
    0 0 0 0 0 0 0 1 ]
  

• t&=Rs

  'aaababbc'
  [ 1 2 3 1 4 2 3 1 ]
  

• t&=Rs3<

  'aaababbc'
  [ true true false true false true false true ]
  

• t&=Rs3<)

  'aabbc'
  

Siatkówka , 14 bajtów

D`(.)(?<=\1.*)

Sprawdź wszystkie przypadki testowe. ( %Włącza tryb per-line)

Wykorzystuje nowy etap „deduplikacji”, aby zaoszczędzić kilka bajtów w stosunku do podejścia Kobi . Deduplikat gromadzi listę wszystkich dopasowań wyrażenia regularnego i zastępuje wszystkie oprócz pierwszego pustym ciągiem. Wyrażenie regularne dopasowuje znak, który już pojawia się raz w ciągu, co oznacza, że ​​pierwsze dwa zostaną zachowane.

Pyke, 16 bajtów

F~kR/2<Ii?+k(K~k

Wypróbuj tutaj!

K, 18 bajtów

  g:{x{?x@<x}@,/2#'=x}
  g "abc"
"abc"
  g "aaabcbccdbabdcd"
"aabcbcdd"

  /k4 request test vectors from internet
  R:"GET /raw/ftHe0bpE HTTP/1.0\r\nHost: pastebin.com\r\n\r\n"
  t:+0N 2#t@1_&|\(0=#:)'t:1_"\r\n"\:`:http://pastebin.com:80 R 

  /k4 no internet? use a file called "t.txt" in current directory
  t:+0N 2#0:`:t.txt

  /k6?
  t:+0N 2#0:"t.txt"

  /visually inspect test cases
  g't[0]
(();"xx";"abcabc";"abcdabc";"abacbdc";"aabcbcdd")

  /do all tests pass?
  |/ t[1] {$[0=#x;0=#y;x~y]}' g't[0]
1b

K4 jest dostępny do pobrania za darmo ; K6 jest w fazie rozwoju . Jeśli pobrałeś KDB, możesz dostać się do K z ukośnikiem odwrotnym .

Być może najłatwiej jest to rozdzielić, ale najpierw trochę składni: g:xustawia gna x. {x+1}jest funkcją, która przyjmuje argument x . W K pierwszym argumentem funkcji jest x(drugi jest, ya trzeci jestz . Nie potrzebujesz czwartego).

Teraz:

x:"aaabcbccdbabdcd"

=xoznacza grupę x , która wytwarza:

"abcd"!(0 1 2 10;3 5 9 11;4 6 7 13;8 12 14)

2#'oznacza dwa pobrane (z) każdego, które produkuje

"abcd"!(0 1;3 5;4 6;8 12)

Jak widać, są to przesunięcia pierwszych dwóch dopasowań każdej postaci. 2 mogą być uogólnione.

,/oznacza dołączyć do każdego i jest często nazywany raze . Dostarczy nam tylko wartości naszego słownika. W ten sposób ,/"abcd"!(0 1;3 5;4 6;8 12)produkuje:

0 1 3 5 4 6 8 12

które musimy posortować. {x@<x}@to idiom, który często widzą programiści K (Q nazywa to asc ), co mówi x przy ocenie x . Rozbijając to na części:

  <0 1 3 5 4 6 8 12
0 1 2 4 3 5 6 7

zwróciło wskaźniki posortowanej tablicy, które chcemy pobrać z oryginalnej tablicy. x@yoznacza x at y, więc indeksuje tablicę indeksami tego rodzaju (jeśli ma to jakiś sens).

  {x@<x}@0 1 3 5 4 6 8 12
0 1 3 4 5 6 8 12

które po prostu indeksujemy teraz do naszej oryginalnej tablicy. My mogliśmy powiedzieć x@tutaj, ale K obsługuje naprawdę potężne pojęcie, które możemy wykorzystać tutaj: application funkcja indeksowania. Oznacza to, że a[0]może szukać zerowej szczeliny alub może zastosować funkcję 0do wywołanej funkcji a. Powodem, dla którego potrzebowaliśmy @poprzednio, {x@<x}jest to, że x<yoznacza xs mniej niż ys : Operatory w K mają formę diadadową (dwuparametrową) i formę monadyczną (jednotargową) pochodzącą z APL. Q nie ma tej „ambiwalencji”.

Python 2, 51 bajtów

f=lambda s:s and f(s[:-1])+s[-1]*(s.count(s[-1])<3)

Przetestuj na Ideone .

Java 8 lambda, 90 znaków

i->{int[]o=new int[128];String r="";for(char c:i.toCharArray())if(++o[c]<3)r+=c;return r;}

Wersja bez golfa:

public class Q86503 {

    static String detriplicate(String input) {
        int[] occurences = new int[128];
        String result = "";
        for (char c : input.toCharArray()) {
            if (++occurences[c] < 3) {
                result += c;
            }
        }
        return result;
    }
}

Tworzy tablicę dla wszystkich znaków ascii. Jeśli pojawi się postać, odpowiedni licznik zostanie zwiększony. Jeśli przekroczy 2, znak nie zostanie dołączony do ciągu wynikowego. Bardzo łatwe, bardzo krótkie;)

Perl 6, 27 bajtów

{.comb.grep({++%.{$_} <3})}

Wyjaśnienie:

{.comb.grep({++%.{$_} <3})}
{                         } # a function
 .comb                      # get all the characters in the argument
      .grep({           })  # filter
               %.           # an anonymous hash (shared between calls to grep)
             ++  {$_}       # increment the value at the current key (current letter).
                            # if the key doesn't exist, it defaults to 0 (then gets incremented)
                      <3    # return True if it wasn't seen 3 times

(Uwaga: Perl 6 nie jest tak „zorientowany na golfa” jak jego siostra Perl 5 ... Więc tak, to miejsce przed <koniecznością. %.{}Jest to anonimowy skrót).

SmileBASIC, 77 72 69 68 bajtów

DIM R[#Y]READ S$WHILE""<S$Q=ASC(S$)INC R[Q]?SHIFT(S$)*(R[Q]<3);
WEND

Wyjaśniono:

DIM R[128] 'array to store letter frequencies
READ S$ 'get input string
WHILE""<S$ 'much shorter than LEN(S$)
 Q=ASC(S$) 'get ascii value of first character in S$
 INC R[Q]
 ?SHIFT(S$)*(R[Q]<3); 'remove the first character of S$, and print it if there are less than 3 occurrences.
WEND

Common Lisp, 127

(lambda(s)(map()(lambda(x)(flet((p(b)(1+(position x s :start b))))(setf s(remove x s :start(p(p 0))))))(remove-duplicates s))s)

Całkiem drukowane

(lambda (s)
  (map nil
       (lambda (x)
         (flet ((p (b)
                  (1+ (position x s :start b))))
           (setf s (remove x s :start (p (p 0))))))
       (remove-duplicates s))
  s)

Q , 52 bajtów

q)f2:{x asc raze{distinct 2#where x}each x~'/:distinct x}
q)f2 each testList
"xx"
"abcabc"
"abcdabc"
"abacbdc"
"aabcbcdd"
q)

K , 27 bajtów

    f:{x{x@<x}@,/{?2#&x}'x~'/:?x}
    testList:("xxxxx";"abcabc";"abcdabcaba";"abacbadcba";"aaabcbccdbabdcd")
    f'testList
("xx";"abcabc";"abcdabc";"abacbdc";"aabcbcdd")

Ruby , 79 62 57 bajtów

Jest to dość niewygodne, ale nie jestem pewien, czy mogę teraz grać w golfa o wiele lepiej. Wszelkie sugestie dotyczące gry w golfa są mile widziane. Wypróbuj online!

Edycja: -17 bajtów dzięki Value Ink, sugerując bardziej golfowy sposób na usunięcie trzech powtórzeń. -5 bajtów od usunięcia .uniqmetody.

->s{s.chars.map{|a|s[s.rindex a]=""while s.count(a)>2};s}

Nie golfowany:

def g(s)
 s.chars.each do |a|
  while s.count(a) > 2
   i = s.rindex(a)
   s[i] = ""
  end
 end
 return s
end

JavaScript, 30 bajtów

v=>v.filter(x=>!(v[x]+=x)[11])

Używając metody, którą @ edc65 wymyślił do zliczania, ale z filtrem tablicowym. Gdy pojawia się pierwszy znak, wartość obiektu staje się „niezdefiniowana” plus znak (tzn. „Niezdefiniowany”). Następnym razem, gdy wartość obiektu stanie się „undefinedxx”.

Następnie v [x] [11] zwraca true, a po połączeniu z operatorem not, false, co oznacza, że ​​znaki, które pojawiły się dwukrotnie, zostaną odfiltrowane.

JavaScript (przy użyciu zewnętrznej biblioteki) (80 bajtów)

To był dobry! Nie wygrał, ale było fajnie

n=>{a={};return _.From(n).Where(x=>{b=a[x]?a[x]++:a[x]=1;return b<2}).Write("")}

Link do lib: https://github.com/mvegh1/Enumerable/

Objaśnienie kodu: Metoda akceptuje ciąg znaków, biblioteka analizuje go jako tablicę znaków, a klauzula Where jest złożonym predykatem filtrującym, który sprawdza skrót mapy „a” pod kątem obecności bieżącego znaku. Jeśli istnieje, licznik przyrostów, w przeciwnym razie ustawiony na 1. Jeśli <2, predykat (i bieżący znak) przejdzie, w przeciwnym razie nie powiedzie się

Clojure, 72 bajty

#(apply str(reduce(fn[r c](if(<(count(filter #{c}r))2)(conj r c)r))[]%))

Tyle bajtów ...

Pascal (FPC) , 103 bajty

var a:array['a'..'z']of word;c:char;begin repeat read(c);inc(a[c]);if a[c]<3then write(c)until eof end.

Wypróbuj online!

Wyjaśnienie:

var a:array['a'..'z']of word; //used for counting occurences of characters in the input
                              //array indices are accessed by chars
    c:char;
begin
  repeat
    read(c);                  //read a character from input
    inc(a[c]);                //increment the count of that character (its number in array)
    if a[c]<3 then write(c)   //if this is character's 1st or 2nd occurence, output it
  until eof                   //go back to reading if input is not read completely
end.