Каждый день вы помещаете новое слово на маркировочный знак с подвижными буквами , покупая только те буквы, которые вам нужны, чтобы написать его. Вы повторно используете буквы, которые вы купили для более ранних слов, когда это возможно. Учитывая слова, которые вы хотите писать каждый день по порядку, выводите буквы, которые вы покупаете каждый день.

пример

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

День 1: Вы начинаете без каких - либо букв, так писать ONE, вы покупаете все свои письма E, N, O.
День 2: На следующий день вы хотите смириться TWO (сняв ONE). У вас уже есть Oот ONE, поэтому вы покупаете дополнительный TW.
День 3: На данный момент, у вас есть ENOWT. Чтобы написать THREE, вам нужно EHR. Обратите внимание, что вам нужно купить секунду Eв дополнение к той, что у вас есть.
День 4: Чтобы написать SEVENTEEN, вам нужно всего 4 E, из которых у вас уже есть два (а не три!), Поэтому вы покупаете еще два. Кроме того, есть 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  

Leaderboards

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>

Haskell, 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в области видимости (например, с помощью среды lambdabot) это можно сократить до 30 байт:

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

Изменить: -5 байт благодаря @Sriotchilism O'Zaic.

Python 2 , 72 68 байт

-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ɗ/

Попробуйте онлайн!

Вывод: -отделенная строка.

Perl 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

Haskell , 44 байта

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

Попробуйте онлайн!

Вывод - это строка ONE,TW,HRE,SVEENс запятыми между днями.

JavaScript (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 байт

-29 байт благодаря FrownyFrog!

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

Попробуйте онлайн!

Оригинальный пост

J , 58 байт

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

Попробуйте онлайн!

Спасибо ngn за помощь в улучшении «вычитания букв при соблюдении повторяющейся части».

Не очень подходит для J, но осветительное упражнение.

Давайте начнем с создания вспомогательного глагола wo(«без»), который удаляет все разделы в одной строке из другой, соблюдая при этом повторения.

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

Здесь есть забавная идея: мы делаем каждый повторяющийся экземпляр персонажа уникальным, повторяя его необходимое количество раз. Таким образом, если наша оригинальная строка ABBAэто становится:

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

Третье Aстанет AAAи так далее. Это достигается с помощью фразы ((e. <@# [) {:)\, которая берет каждый префикс \, просматривает его последний элемент {:и создает маску всех элементов в этом префиксе, которые соответствуют e.этому конечному элементу, а затем фильтрует и блокирует только эти элементы <@#.

С нашими входами как «уникально-ified» мы теперь можем безопасно использовать нормальный набор минус, -. сохраняя при этом повторение.

Затем мы открываем каждый результат и выбираем только первый элемент для «отмены» наших повторений: {.@>

Включив этот вспомогательный глагол, наше общее решение (которое просто указывает на него) становится:

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

По сути, все, что мы здесь делаем, это настраиваем нашу проблему как единое сокращение. Мы начинаем реверсировать ввод |.и добавляем к нему ,~туз a:или пустое поле, которое будет начальным значением нашего конечного результата, например так:

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

Мы вставляем следующий глагол между каждым элементом, чтобы произвести сокращение:

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

Это говорит: взять правильный вход ](то есть, наш результат) и добавить к нему , левый вход (это ONEна первой итерации, TWOна 2 - й и т.д.) без woв разе от ;правого входа (то есть, без каких - либо предыдущих писем до сих пор используется), но перед добавлением отсортируйте его /:~и вставьте снова <@.

В конце всего этого у нас будет результат, который мы хотим, список ящиков, но все внутри одного большого дополнительного ящика, и все еще с пустым ящиком спереди. Таким образом , мы открываем для удаления внешней коробки и убить первый элемент: }.@>.

JavaScript (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) , 177 170 байт

-5 байт благодаря подсказке @ anatolyg, -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>для половины байтов.

Сначала создается 91-элементный вектор из 0 (для хранения вхождений букв используются только индексы 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;
}

Р, 119 112 106 103 байта

-7 байт от наложения псевдонимов двух более длинных имен функций и теперь от пользователя scan()
-6 байт для вызова только strsplit()один раз в начале
-3 байта, чтобы снова избавиться от алиасинга и назначить две переменные в одном вызове

(Также отредактировал количество байтов, которое ранее было ошибочно низким)

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для преобразования строк в векторы отдельных символов, это было бы здорово узнать. Я также использовал vsetdiffфункцию в пакете Carl Withoft, vecsetsчтобы получить заданную разницу букв, необходимых на следующий день, и текущих принадлежащих букв.

Python 2 , 102 100 байт

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

Попробуйте онлайн!

_{-2 байта, благодаря Embodiment of Ignorance}

PowerShell , 71 байт

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

Попробуйте онлайн!

Принимает входные слова $argsи перебирает их. Каждую итерацию мы устанавливаем текущее слово $w, а затем перебираем наши $pуши уже купленных букв. В каждом внутреннем цикле мы выполняем регулярное выражение -replaceдля нашего текущего $word, поэтому мы заменяем только первый экземпляр письма из нашего $pool. После того, как мы проверили все буквы в пуле, мы выводим то, что осталось $w(то есть, что нам нужно купить), а затем прикрепляем эти буквы в наш пул $p+=$wдля следующего слова.

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]]

Попробуйте онлайн!

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

Принимает вклад в виде диапазона Excel.

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 байт

-6 спасибо Кевину Круйссену

ćsvDysSõ.;»

Попробуйте онлайн!

Swift 4.2 / Xcode 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 следующий элемент

Un-golfed

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

Попробуйте онлайн!

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

Попробуйте онлайн!

Stax , 7 байт

é█üa%┐┤

Запустите и отладьте его

Выход разделен новой строкой.

К (нгн / к) , 36 байт

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

Попробуйте онлайн!