매일 당신은 움직일 수있는 글자가 있는 선택 윤곽 표시 에 새로운 단어를 붙이고 , 당신이 그것을 쓸 필요가있는 글자 만 구입합니다. 당신은 가능한 한 빨리 이전 단어를 위해 구입 한 편지를 재사용합니다. 매일 쓰고 싶은 단어가 순서대로 있으면 매일 구입하는 글자를 출력하십시오.

예

Input:  ['ONE', 'TWO', 'THREE', 'SEVENTEEN']
Output: ['ENO', 'TW', 'EHR', 'EENSV']

일 1 : 당신은 너무 쓰기에, 아니 문자로 시작 ONE, 당신은 모든 문자를 구입 E, N, O.
2 일 : 다음날,을 TWO (를) 내려 놓고 싶습니다 ONE. 귀하는 이미 Ofrom을 가지고 ONE있으므로 추가로 구매하십시오 TW.
3 일 : 이 시점에서 ENOWT. 쓰려면 THREE필요합니다 EHR. E가지고있는 것 외에 두 번째를 구입해야합니다 .
4 일 : 글 을 쓰려면 총 SEVENTEEN4 E개가 필요 합니다. 이미 2 개 (3 개가 아님)가 있으므로 2 개를 더 구매하십시오. 의 T및 중 하나가 N있으므로 나머지 문자를 구입하십시오 EENSV.

이 예에서는 문자를 알파벳순으로 정렬했지만 아무 순서로나 출력 할 수 있습니다.

입력 : 비어 있지 않은 문자열로 구성된 비어 있지 않은 목록 A-Z. 원하는 경우 소문자를 사용할 수 있습니다. 문자 목록은 문자열에 적합합니다.

출력 : 매일 구매해야하는 추가 문자를 출력하거나 인쇄하십시오. 요일의 문자는 어떤 순서로도 출력 될 수 있지만 요일은 올바른 순서로 나와야합니다.

하루의 문자는 다른 날과 분리되어 하루가 끝나는 곳을 알 수 있습니다. 후행 및 / 또는 선행 구분 기호는 하루 또는 하루 사이에 좋습니다. 하루에 구입 한 문자가 없을 수 있으며 출력에 반영되어야합니다 (마지막 날에도 공백 또는 빈 줄은 괜찮습니다).

테스트 사례

['ONE', 'TWO', 'THREE', 'SEVENTEEN']
['ENO', 'TW', 'EHR', 'EENSV']

['ONE', 'TWO', 'ONE', 'THREE']
['ENO', 'TW', '', 'EHR']

['ABC', 'AABC', 'ABBC', 'ABCC', 'AABBCC']
['ABC', 'A', 'B', 'C', '']

['SHORT', 'LOONG', 'LOOOONG', 'LOOOOOOONG', 'SHORT', 'LOOONG']
['HORST', 'GLNO', 'OO', 'OOO', '', '']

다음은 별도의 목록으로 모든 입력 및 출력입니다.

[['ONE', 'TWO', 'THREE', 'SEVENTEEN'], ['ONE', 'TWO', 'ONE', 'THREE'], ['ABC', 'AABC', 'ABBC', 'ABCC', 'AABBCC'], ['SHORT', 'LOONG', 'LOOOONG', 'LOOOOOOONG', 'SHORT', 'LOOONG']]
[['ENO', 'TW', 'EHR', 'EENSV'], ['ENO', 'TW', '', 'EHR'], ['ABC', 'A', 'B', 'C', ''], ['HORST', 'GLNO', 'OO', 'OOO', '', '']]

그리고 공백으로 구분 된 문자열 (출력의 후행 공백이 중요합니다) :

ONE TWO THREE SEVENTEEN
ONE TWO ONE THREE
ABC AABC ABBC ABCC AABBCC
SHORT LOONG LOOOONG LOOOOOOONG SHORT LOOONG

ENO TW EHR EENSV
ENO TW  EHR
ABC A B C 
HORST GLNO OO OOO  

리더 보드

var QUESTION_ID=183544,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<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="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><div id="language-list"> <h2>Winners 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><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>

하스켈, 54 49 바이트

import Data.List
g x=zipWith(\\)x$scanl(++)""$g x

온라인으로 사용해보십시오!

\\입력 목록 의 목록 차이 ( )와 출력 목록의 누적 추가 (로 시작)를 쌍으로 계산 하여 출력 목록을 작성합니다 "".

input list:                ONE       TWO       THREE        SEVENTEEN
cumulative append:         ""   +->  ONE  +->  ONETW   +->  ONETWHRE
list difference (output):  ONE -+    TW  -+    HRE    -+    SVEEN

람다 봇 환경을 사용하는 등 범위 Data.List와 Data.Function범위가 모두 30 바이트로 단축 될 수 있습니다.

fix.(.scanl(++)"").zipWith(\\)

편집 : @Sriotchilism O'Zaic 덕분에 -5 바이트.

파이썬 2 , 72 68 바이트

Jonathan Allan 덕분에 -4 바이트.

p=''
for r in input():
 for x in p:r=r.replace(x,'',1)
 print r;p+=r

온라인으로 사용해보십시오!

댓글

l=input()       # the list of words to write
p=''            # p contains all letters we own
for r in l:     # for each word ...
  for x in p:   # for each letter we own ...
    r=r.replace(x,'',1)   # remove one occurence from the current word
  print r       # print the remaining word
  p+=r          # add the remaining chars to p

젤리 , 7 바이트

,œ-@Kɗ/

온라인으로 사용해보십시오!

출력 : -분리 된 문자열.

펄 6 , 44 바이트

{$!=@;.map:{kxxv $!=.comb.Bag∖($⊎=$!):}}

온라인으로 사용해보십시오!

문자 목록으로 출력합니다.

설명

{                                      } # Anonymous codeblock
 $!=@;                                   # Initialise $! to an empty list
      .map:{                          }  # Map each item in the input to
                    .comb                # The string split to characters
                         .Bag            # In a Bag
                             ∖           # Set minus
                              ($⊎=$!)    # The accumulated Bag of results
                 $!=                     # And save the result for the next item
            kxxv                     : # Then decompose the Bag into a list

하스켈 , 44 바이트

import Data.List
foldl1(\a x->a++',':(x\\a))

온라인으로 사용해보십시오!

출력은 ONE,TW,HRE,SVEEN일 사이에 쉼표 와 같은 문자열 입니다.

자바 스크립트 (Node.js) , 59 바이트

a=>a.map(h=>([...t].map(c=>h=h.replace(c,'')),t+=h,h),t='')

온라인으로 사용해보십시오!

매우 간단한 해결책. 각 단어마다 h이미 가지고있는 문자를 제거하십시오.

해당 코드의 설명 된 버전은 다음과 같습니다.

f = list => {
  // the string that accumulates all the letters already bought
  let accu = '';
  // for every word in the list
  return list.map( word => {
    // for every letter already bought 
    [...accu]
      // remove the letter from the word
      .map(char => {
        return word = word.replace(char,'')
      });
    // add not bought letters to accumulator
    accu += word;
    // the reduced word (without already bought letters) should be added to result map
    // this represents the letters to buy today
    return word
  }, accu)
}

console.log(f(['ONE', 'TWO', 'THREE', 'SEVENTEEN']))
console.log(f(['ONE', 'TWO', 'ONE', 'THREE']))
console.log(f(['ABC', 'AABC', 'ABBC', 'ABCC', 'AABBCC']))
console.log(f(['SHORT', 'LOONG', 'LOOOONG', 'LOOOOOOONG', 'SHORT', 'LOOONG']))

J , 29 바이트

FrownyFrog 덕분에 -29 바이트!

(],a.<@#~0>.-&(1#.a.=/;))/@|.

온라인으로 사용해보십시오!

원본 게시물

J , 58 바이트

[:}.@>[:(],<@(/:~@({.@>@-.&(((e.<@#[){:)\));))&.>/<@a:,~|.

온라인으로 사용해보십시오!

"반복 부분을 존중하면서 뺄셈 문자"를 개선하는 데 도움을 주신 ngn에게 감사드립니다.

J에게 적합하지는 않지만 조명 운동입니다.

wo반복을 존중하면서 한 문자열의 모든 체커를 다른 문자열에서 제거 하는 도우미 동사 ( "without")를 구성하는 것으로 시작하겠습니다 .

wo=.{.@>@-.&(((e. <@# [) {:)\)

여기에는 재미있는 아이디어가 있습니다. 캐릭터의 반복되는 각 인스턴스를 필요한 횟수만큼 반복하여 고유하게 만듭니다. 따라서 원래 문자열이 ABBA다음과 같이되면 :

┌─┬─┬──┬──┐
│A│B│BB│AA│
└─┴─┴──┴──┘

세 번째 A는 그렇게 될 것 AAA입니다. 이것은 문구에 의해 수행되는 ((e. <@# [) {:)\각 접두사 소요, \마지막 요소에서 외모, {:해당 접두어에있는 모든 요소의 마스크를 그것의, 및 구축 일치하는 e.마지막 요소 다음 필터 상자 바로 이러한 요소가 <@#.

입력이 "고유 화"된 상태에서 이제 -. 반복을 존중하면서 정상 설정 마이너스 를 안전하게 사용할 수 있습니다 .

그런 다음 각 결과를 열고 첫 번째 요소 만 반복을 "실행 취소"합니다. {.@>

이 헬퍼 동사를 연결하면 전체 솔루션 (간단히 인라인)이됩니다.

[: }.@> [: (] , <@(/:~@wo ;))&.>/ <@a: ,~ |.

본질적으로 우리가하는 일은 문제를 단일 축소로 설정하는 것입니다. 입력을 반전시키고 ace 또는 빈 상자를 |.추가하기 시작합니다.이 결과는 다음과 같이 최종 결과의 초기 값이됩니다.,~a:

┌─────────┬─────┬───┬───┬──┐
│SEVENTEEN│THREE│TWO│ONE│┌┐│
│         │     │   │   ││││
│         │     │   │   │└┘│
└─────────┴─────┴───┴───┴──┘

각 요소 사이에 다음 동사를 붙여서 축소에 영향을줍니다.

(] , <@(/:~@wo ;))/

이것은 말합니다 : 올바른 입력 ](즉, 결과)을 가져 와서 오른쪽 입력 의 영향을 받지 않고 , 왼쪽 입력 (이것은 ONE첫 번째 반복, TWO2 등) wo에 추가 ;합니다 (즉, 지금까지의 이전 문자가 없음) 사용)하지만 추가하기 전에 정렬 /:~하고 다시 상자에 넣으 십시오 <@.

이 모든 것이 끝나면 원하는 결과, 상자 목록이 있지만 하나의 큰 추가 상자 안에 있고 여전히 빈 상자가 앞에 있습니다. 따라서 우리는 외부 상자를 제거하고 첫 번째 요소를 죽입니다 : }.@>.

자바 스크립트 (ES6),  66  65 바이트

a=>a.map(b=s=>[...s].filter(c=>x==(x=x.replace(c))?b+=c:0,x=b+0))

온라인으로 사용해보십시오!

댓글

$b$$b$$x$$c$$x$$b$

a =>                      // a[] = input
  a.map(b =               // initialize b to the callback function of this map()
                          // it will be coerced to a string that does not contain
                          // any letter in uppercase
    s =>                  // for each entry s in a[]:
    [...s].filter(c =>    //   for each character c in s:
      x == (              //     check whether x is changed when
        x = x.replace(c)  //     c is replaced with 'undefined'
      ) ?                 //     if so:
        b += c            //       append c to b and keep c
      :                   //     else:
        0,                //       discard c
      x = b + 0           //     coerce b to a string and save it in x
    )                     //   end of filter()
  )                       // end of map()

C ++ (gcc) , 177170 바이트

@anatolyg의 팁 덕분에 -5 바이트, 내가 발견 한 작은 것들에 -2 바이트.

#import<random>
#define v std::vector<std::string>
v a(v p){std::vector<int>o(91),b;int j=-1;for(auto i:p){b=o;p[++j]="";for(int c:i)--b[c]<0?p[j]+=c,++o[c]:0;}return p;}

설명

#import<random>모두 추가 <string>및 <vector>반 바이트.

먼저 0의 91 요소 벡터 (문자 65-90 만 문자 발생을 저장하는 데 사용됨)와 동일한 유형이지만 값으로 설정되지 않은 다른 벡터를 만듭니다. 입력의 각 요소 (일)를 반복합니다. 현재 소유 한 문자를 가져오고 해당 날짜에 필요한 문자를 가져오고 인덱스의 입력을 필요한 양으로 대체하고 소유 한 문자를 업데이트합니다. 재정의 된 입력을 반환합니다.

온라인으로 사용해보십시오!

C # (Visual C # 대화식 컴파일러) 123 바이트

a=>{var b="";for(dynamic i=0,e,f;i<a.Count;b+=a[i++]=f)foreach(var c in((e,f)=(b.ToList(),"")).f+a[i])f+=e.Remove(c)?"":c;}

온라인으로 사용해보십시오!

입력 배열을 수정하여 출력하는 익명 함수입니다.

// a: input array of strings
a=>{
  // b: cumulative letters
  var b="";
  for(
    // i: loop index of string
    // e: copy of cumulative letters for manipulation
    // f: characters missing from current string
    dynamic i=0,e,f;
    // iterate over each string in a
    i<a.Count;
    // add missing letters of the day to
    // cumulative missing letters and
    // update array for output
    b+=a[i++]=f
  )
    // iterate current string with character c
    foreach(var c in
      // tuplized variable assignment
      // e=b.ToList()
      //   set e to a copy of the cumulative letters
      // f=""
      //   initially there are no letters needed for the day
      ((e,f)=
      (b.ToList(),"")).f+a[i]
    )
      // conditionally add c to missing letters for the day
      f+=e.Remove(c)?"":c;
}

R, 119112106103 바이트

더 긴 두 함수 이름의 별명을 -7 바이트에서 시작하여 -3 바이트 에서 사용자 입력 을 가져 와서 -3 바이트를 한 번만 scan()
호출 하여 별명을 제거하고 한 번의 호출로 두 개의 변수를 지정하십시오.strsplit()

(또한 잘못 잘못 된 바이트 수를 편집했습니다)

a=scan(,'');b=a=strsplit(a,'');for(i in 2:length(a))b[[i]]=vecsets::vsetdiff(a[[i]],unlist(b[1:i-1]));b

이것은 모든 종류의 첫 PPCG 제출입니다! 그래서 나는 골프와 에티켓 게시 측면에서 내가 무엇을하고 있는지 전혀 모른다. 결과는 챌린지 조건을 충족하거나 충족하지 않을 수있는 벡터 목록입니다. :-피

코드 자체 scan()는 다른 솔루션과 마찬가지로 사용자 입력을 통해 각 새 날의 편지를 누적 소유 한 편지와 비교합니다. 더 짧은 대안이 unlist있고 strsplit문자열을 알고있는 멋진 개별 문자의 벡터로 변환하는 경우. 또한 vsetdiffCarl Withoft vecsets패키지 의 기능을 사용하여 다음 날에 필요한 문자와 현재 소유 한 문자의 차이를 얻었습니다.

파이썬 2 , 102100 바이트

from collections import*
c=Counter
l=c()
for x in map(c,input()):y=x-l;l+=y;print list(y.elements())

온라인으로 사용해보십시오!

_{무지의 구현 덕분에 -2 바이트}

Japt , 15 14 바이트

£Q®X=rZPPÃQ±XX

시도 해봐

£Q®X=rZPPÃQ±XX     :Implicit input of array
£                  :Map each X
 Q®                :  Map each Z in Q (initially a quotation mark)
   X=              :    Reassign to X
     rZ            :    Replace Z with
       P           :    The empty string
        P          :    With the default global flag disabled
         Ã         :  End map
          Q±X      :  Append X to Q
             X     :  Return X

빨강 , 75 바이트

func[b][a: copy""foreach w b[foreach c a[replace w c""]print w append a w]]

온라인으로 사용해보십시오!

PowerShell , 71 바이트

$args|%{$w=$_;$p|% t*y|%{$w=$w-replace"^(.*?)$_(.*)",'$1$2'};$w;$p+=$w}

온라인으로 사용해보십시오!

입력 단어 $args를 가져 와서 반복합니다. 반복 할 때마다 현재 단어를 설정 $w한 다음 $p이미 구매 한 문자 를 반복 합니다. 각각의 내부 루프는 -replace현재 $word에서 정규 표현식 을 수행하여 $pool 에서 첫 번째 문자 인스턴스를 대체합니다 . 풀의 모든 글자를 다 읽은 후에는 남아있는 것 $w(즉, 구매해야하는 것)을 출력 한 후 다음 글자를 $p+=$w위해 해당 글자를 풀 에 붙입니다.

Excel VBA, 127 바이트

Function z(w)
z=""
For Each x In w.Cells
v=x.value
For y=1To Len(z)
v=Replace(v,Mid(z,y,1),"",1,1)
Next
z=z&v
Next
End Function

엑셀 범위의 형태로 입력을받습니다.

C (gcc) , 118 바이트

m(a,r,q,u)char**a,*r,*q,*u;{for(;*a;a++,memcpy(r,q,255))for(memcpy(q,r,255),u=*a;*u;u++)*u=r[*u]-->0?32:(q[*u]++,*u);}

온라인으로 사용해보십시오!

약간의 보너스로 처음에는 주식을 r배열로 가져옵니다. a모든 사전 소유 문자가 공백으로 대체 된 입력 널 종료 널 종료 문자열 목록 을 출력합니다 .

05AB1E , 11 바이트

Kevin Cruijssen에게 -6 감사합니다

ćsvDysSõ.;»

온라인으로 사용해보십시오!

스위프트 4.2 / 10.2 엑스 코드 , 244 242 239 238 바이트

a.reduce(([Character:Int](),[String]())){c,l in let b=l.reduce(into:[Character:Int]()){$0[$1,default:0]+=1}.map{($0,max(0,$1-(c.0[$0] ?? 0)))};return(c.0.merging(b){$0+$1},c.1+[b.map{String(Array(repeating:$0.0,count:$0.1))}.joined()])}.1

온라인으로 사용해보십시오!

문자는 알파벳 순서로 정렬되지 않으며 규칙에 의해 금지되지 않습니다.

스칼라, 68 바이트

(c:Seq[String])=>c./:(Seq(""))((a,n)=>a:+n.diff(a./:("")(_+_))).tail

온라인으로 사용해보십시오!

/ : foldLeft 연산자의 약자, a는 집계, 궁극적으로 원하는 결과를 반환, n은 다음 요소

언 골프

def NewLettersPerDay(c: Seq[String]): Seq[String] = {
    c.foldLeft(Seq(""))((agg, next) => {
      val existingLetters = agg.reduce(_+_)
      val newDayLetters = next.diff(existingLetters)
      agg :+ newDayLetters
    }).tail
}

PHP , 87 바이트

for(;$w=$argv[++$i];print' ')for($b=$a;$l=$w[$$i++];)$b[$l]?$b[$l]--:++$a[$l]&&print$l;

온라인으로 사용해보십시오!

숯 , 18 바이트

ＥθΦι¬⊙…θκ‹№…ιμλ№νλ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

 θ                  Input array
Ｅ                   Map over strings
   ι                Current string
  Φ                 Map over characters
       θ            Input array
      …             Truncated to length
        κ           Outer index
    ¬               Logical Not
     ⊙              Any element exists where
          №         Count of
              λ     Current letter in
            ι       Outermost word
           …        Truncated to
             μ      Current letter index
         ‹          Is less than
               №    Count of
                 λ  Current letter in
                ν   Innermost word
                    Implicitly print each day's bought letters on their own line

PHP, UTF-8 인식 (253 바이트)

<?php $p=[];for($i=1;$i<$argc;$i++){$a=$p;$b=[];for($j=0;$j<mb_strlen($s=$argv[$i]);$j++){$k=1;if(isset($a[$c=mb_substr($s,$j,1)]))if($a[$c]){$k=0;$a[$c]--;}if($k){echo $c;if(isset($b[$c]))$b[$c]+=$k;else $b[$c]=$k;}}$p=array_merge($p,$b);echo PHP_EOL;}

C # (Visual C # 대화식 컴파일러) , 112 바이트

a=>{var b="";for(int i=0;;b+=a[i++])foreach(var z in b)if(a[i].Contains(z))a[i]=a[i].Remove(a[i].IndexOf(z),1);}

온라인으로 사용해보십시오!

펄 5 -p , 28 바이트

for$i(@h){s/$i//}push@h,/./g

온라인으로 사용해보십시오!

루비 , 52 바이트

->l{r="";l.map{|x|r.chars{|c|x[c]&&x[c]=''};r+=x;x}}

온라인으로 사용해보십시오!

K (ngn / k) , 36 바이트

{*+""{(a;x,a:&0|-/#''='(y;x@:1))}\x}

온라인으로 사용해보십시오!

Stax , 7 바이트

é█üa%┐┤

실행 및 디버깅

출력은 줄 바꿈으로 구분됩니다.