Rất nhiều ngôn ngữ có các cách tích hợp để loại bỏ các bản sao hoặc "lặp lại" hoặc "duy nhất" một danh sách hoặc chuỗi. Một nhiệm vụ ít phổ biến hơn là "phá vỡ" một chuỗi. Đó là, đối với mỗi nhân vật xuất hiện, hai lần xuất hiện đầu tiên được giữ lại.

Dưới đây là một ví dụ trong đó các ký tự nên được xóa được gắn nhãn ^:

aaabcbccdbabdcd
  ^    ^ ^^^ ^^
aabcbcdd

Nhiệm vụ của bạn là thực hiện chính xác thao tác này.

Quy tắc

Đầu vào là một chuỗi, có thể trống ,. Bạn có thể cho rằng nó chỉ chứa các chữ cái viết thường trong phạm vi ASCII.

Đầu ra phải là một chuỗi với tất cả các ký tự được loại bỏ đã xuất hiện ít nhất hai lần trong chuỗi (vì vậy hầu hết hai lần xuất hiện bên trái được giữ lại).

Thay vì các chuỗi bạn có thể làm việc với danh sách các ký tự (hoặc chuỗi đơn), nhưng định dạng phải nhất quán giữa đầu vào và đầu ra.

Bạn có thể viết chương trình hoặc chức năng và sử dụng bất kỳ phương pháp tiêu chuẩn nào để nhận đầu vào và cung cấp đầu ra.

Bạn có thể sử dụng bất kỳ ngôn ngữ lập trình nào , nhưng lưu ý rằng các lỗ hổng này bị cấm theo mặc định.

Đây là môn đánh gôn , vì vậy câu trả lời hợp lệ ngắn nhất - được đo bằng byte - thắng.

Các trường hợp thử nghiệm

Mỗi cặp dòng là một trường hợp thử nghiệm, đầu vào tiếp theo là đầu ra.

xxxxx
xx
abcabc
abcabc
abcdabcaba
abcdabc
abacbadcba
abacbdc
aaabcbccdbabdcd
aabcbcdd

Bảng xếp hạng

Đoạn trích Stack ở cuối bài này tạo ra bảng xếp hạng từ các câu trả lời a) dưới dạng danh sách các giải pháp ngắn nhất cho mỗi ngôn ngữ và b) dưới dạng bảng xếp hạng tổng thể.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

## Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

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

Nếu ở đó bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ phiên dịch), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

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

Bạn cũng có thể đặt tên ngôn ngữ thành liên kết sau đó sẽ hiển thị trong đoạn trích:

## [><>](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>

Thạch , 6 byte

Qx2œ&@

Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

Làm thế nào nó hoạt động

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

Chỉnh sửa 6 byte đã lưu thx @Neil

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

Giải thích: Tôi sử dụng các thuộc tính 'a' ... 'z' của đối tượng kđể lưu trữ thông tin cho từng ký tự (đối tượng k là một biểu thức chính trong trường hợp này chỉ để lưu byte). Những tính chất này ban đầu undefined. Trong javascript thêm một số để undefinedcung cấp NaN(khá hợp lý), nhưng thêm một chuỗi 'X' cho "undefinedX"- một chuỗi có độ dài 10 (ngớ ngẩn). Thêm nhiều ký tự bạn sẽ có được chuỗi dài hơn. Nếu chuỗi thu được cho một ký tự đã cho dài hơn 11, ký tự đó không được sao chép sang đầu ra.

Kiểm tra

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 byte

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

c[r.count(c)/2:]là một thay thế có cùng chiều dài c*(r.count(c)<2).

49 byte:

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

Võng mạc , 17 byte

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

Hãy thử trực tuyến!

Thay thế regex đơn giản - khớp với một ký tự nếu nó đã xuất hiện hai lần và xóa nó.

Brachylog , 25 byte

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

Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

Điều này hoạt động bởi vì s - Subsetsẽ thống nhất với các tập con lớn hơn trước, do đó, ví dụ như "aaa"nó sẽ thử "aa"trước "a".

• Vị ngữ chính:

    .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
  

• Vị ngữ 1: Kiểm tra xem tất cả các ký tự chỉ xuất hiện tối đa hai lần. Đầu vào =[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
  

• Vị ngữ 2: Nhận sự xuất hiện của một nhân vật. Đầu vào =[String:Char]

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

> <> , 22 byte

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

Hãy thử trực tuyến! Sử dụng codebox để theo dõi số lượng cho đến nay.

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 byte

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

Điều này xác định một hàm đơn âm nhận và trả về một chuỗi. Hãy thử nó ở đây . Sử dụng:

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

Giải trình

Tôi đã chuyển sang cùng một thuật toán mà một số giải pháp khác sử dụng, vì nó hóa ra ngắn hơn ...

#~(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 byte

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

Ví dụ sử dụng: foldl(\s c->s++[c|filter(==c)s<=[c]])"" "aaabcbccdbabdcd"-> "aabcbcdd".

Giữ char tiếp theo cnếu chuỗi của tất cả các cs cho đến nay là từ vựng ít hơn hoặc bằng chuỗi singleton [c].

Chỉnh sửa: @xnor đã lưu một byte bằng cách chuyển từ hiểu danh sách sang filter. Cảm ơn!

Perl, 22 byte

Mã 21 byte + 1 cho -p.

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

Sử dụng

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

C, 57 byte

Gọi f()với chuỗi để giải mã. Hàm sửa đổi tham số của nó. Yêu cầu C99 vì forkhai báo -loop.

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

JavaScript (ES6), 35 byte

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

Lấy một mảng các ký tự làm đầu vào và trả về mảng bị biến dạng.

PowerShell v2 +, 31 byte

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

Sử dụng regex giống như trong câu trả lời Retina của Kobi's , chỉ được gói gọn trong -replacetoán tử PowerShell . Hoạt động vì cả hai đang sử dụng regex hương vị .NET trong nền.

Ngoài ra, không có regex, 56 byte

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

Tạo một mảng trợ giúp $bđược điền trước bằng 0s. Diễn biến chuỗi đầu vào $args[0]dưới dạng char-array, dẫn nó qua một vòng lặp |%{...}. Mỗi lần lặp lại xuất ra ký tự hiện tại $_dưới dạng một chuỗi "$_"nhân với Boolean chỉ $TRUE(được đặt ngầm 1ở đây) nếu điểm thích hợp trong mảng trình trợ giúp nhỏ hơn 2(nghĩa là chúng ta chưa thấy char này hai lần). Tập hợp các chuỗi kết quả được gói gọn trong parens và -joined với nhau để tạo thành một chuỗi đầu ra duy nhất. Đó là còn lại trên đường ống và đầu ra là ẩn.

Toán học, 39 byte

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

Chức năng ẩn danh. Lấy danh sách ký tự làm đầu vào và trả về danh sách tách rời làm đầu ra. Sử dụng phương pháp gấp trong danh sách và từ chối các phần tử ba lần, nó không quá phức tạp.

05AB1E, 12 byte

vyˆ¯y¢O3‹iy?

Giải trình

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

Dùng thử trực tuyến

MATL , 8 byte

t&=Rs3<)

Hãy thử trực tuyến!

Giải trình

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

Thí dụ

Giả sử đầu vào 'aaababbc', ngăn xếp chứa các mục sau đây sau các câu lệnh được chỉ định:

• 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'
  

Võng mạc , 14 byte

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

Xác nhận tất cả các trường hợp thử nghiệm. ( %Chế độ cho phép trên mỗi dòng)

Sử dụng giai đoạn "Ded repeatate" mới để lưu một vài byte theo cách tiếp cận của Kobi . Ded repeatate tập hợp một danh sách tất cả các kết quả khớp với biểu thức chính quy và thay thế tất cả trừ phần đầu tiên bằng chuỗi rỗng. Regex khớp với một ký tự đã xuất hiện một lần trong chuỗi, nghĩa là hai ký tự đầu tiên sẽ được giữ lại.

Pyke, 16 byte

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

Hãy thử nó ở đây!

K, 18 byte

  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 có sẵn để tải về miễn phí ; K6 đang được phát triển . Nếu bạn đã tải xuống KDB, bạn có thể truy cập K bằng dấu gạch chéo ngược .

Có thể dễ dàng nhất để thấy điều này bị phá vỡ, nhưng trước tiên một số cú pháp: g:xđặt gthành x. {x+1}là một hàm lấy một đối số x . Trong K, đối số thứ nhất cho hàm là x(thứ hai là yvà thứ ba làz . Không cần thứ tư).

Hiện nay:

x:"aaabcbccdbabdcd"

=xcó nghĩa là nhóm x , tạo ra:

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

2#'có nghĩa là hai lấy (từ) mỗi cái tạo ra

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

Như bạn có thể thấy, đây là những điểm trừ của hai trận đấu đầu tiên của mỗi nhân vật. Các 2 có thể được khái quát hóa.

,/có nghĩa là tham gia mỗi và thường được gọi là raze . Nó sẽ giúp chúng ta chỉ là những giá trị của từ điển của chúng tôi. Do đó, ,/"abcd"!(0 1;3 5;4 6;8 12)tạo ra:

0 1 3 5 4 6 8 12

mà chúng ta cần sắp xếp. {x@<x}@là một thành ngữ K lập trình viên thường thấy (Q gọi nó là asc ), trong đó nói x ở cấp độ x . Phá vỡ nó ra:

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

trả về các chỉ số của mảng đã sắp xếp mà chúng ta muốn lấy từ mảng ban đầu. x@ycó nghĩa là x tại y nên điều này lập chỉ mục mảng với các chỉ số của sắp xếp (nếu điều đó có ý nghĩa gì).

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

mà bây giờ chúng ta chỉ cần lập chỉ mục vào mảng ban đầu của chúng tôi. Chúng ta có thể nói x@ở đây, nhưng K hỗ trợ một khái niệm thực sự mạnh mẽ mà chúng ta có thể tận dụng ở đây: ứng dụng chức năng là lập chỉ mục. Điều đó có nghĩa là a[0]có thể tìm kiếm vị trí zeroth của ahoặc nó có thể áp dụng 0chức năng được gọi a. Lý do chúng tôi cần @trước đây {x@<x}là vì x<ycó nghĩa là xs nhỏ hơn ys : Các toán tử trong K có dạng dyadic (hai đối số) và một dạng đơn âm (một đối số) xuất phát từ APL. Q không có "sự tương đồng" này.

Python 2, 51 byte

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

Kiểm tra nó trên Ideone .

Java 8 lambda, 90 ký tự

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

Phiên bản bị đánh cắp:

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;
    }
}

Tạo một mảng cho tất cả các ký tự ascii. Nếu một nhân vật xảy ra, bộ đếm tương ứng sẽ được tăng lên. Nếu quá 2, ký tự sẽ không được thêm vào chuỗi kết quả. Rất dễ, rất ngắn;)

Perl 6, 27 byte

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

Giải trình:

{.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

(Lưu ý: Perl 6 không phải là "định hướng chơi gôn" như chị em của nó Perl 5 ... Vì vậy, không gian đó trước khi <cần thiết. Đây %.{}là một hàm băm ẩn danh).

SmileBASIC, 77 72 69 68 byte

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

Giải thích:

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

Lisp thường gặp, 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)

In đẹp

(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 byte

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 byte

    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 byte

Điều này khá khó sử dụng, nhưng tôi không chắc là tôi có thể chơi golf tốt hơn nhiều vào lúc này. Bất kỳ đề nghị chơi golf đều được chào đón. Hãy thử trực tuyến!

Chỉnh sửa: -17 byte nhờ Value Ink bằng cách đề xuất một cách chơi gôn để loại bỏ các ký tự ba lần. -5 byte từ việc loại bỏ .uniqphương thức.

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

Ung dung:

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 byte

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

Sử dụng phương pháp mà @ edc65 đã đưa ra để đếm nhưng với bộ lọc mảng. Ký tự lần đầu tiên xuất hiện, giá trị đối tượng được "không xác định" cộng với ký tự (tức là "không xác định"). Lần sau, giá trị đối tượng trở thành "không xác định".

Sau đó, v [x] [11] trả về true và khi kết hợp với toán tử không, false, nghĩa là các ký tự đã xuất hiện hai lần sẽ được lọc.

Javascript (sử dụng thư viện bên ngoài) (80 byte)

Đây là một trong những tốt! Không thắng nhưng thật vui

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

Liên kết đến lib: https://github.com/mvegh1/Enumerable/

Giải thích mã: Phương thức chấp nhận một chuỗi, thư viện phân tích cú pháp dưới dạng mảng char và mệnh đề Where là một biến vị ngữ lọc phức tạp để kiểm tra hàm băm 'a' cho sự hiện diện của char hiện tại. Nếu tồn tại, bộ đếm tăng, khác được đặt thành 1. Nếu <2, biến vị ngữ (và char hiện tại) vượt qua, khác không thành công

Clojure, 72 byte

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

Quá nhiều byte ...

Pascal (FPC) , 103 byte

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.

Hãy thử trực tuyến!

Giải trình:

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.