Удалите все повторяющиеся слова из введенного предложения.

На входе будет что-то похожее, cat dog cat dog bird dog Snake snake Snakeа на выходе должно быть cat dog bird Snake snake. Там всегда будет один пробел, разделяющий слова.

Порядок вывода должен совпадать с порядком ввода. (См. Пример)

Вам не нужно обрабатывать знаки препинания, но требуется обработка заглавных букв.

gs2 , 3 байта

,É-

Закодировано в CP437 .

STDIN выдвигается в начале программы. ,разбивает его на пробелы. Éесть uniq, который фильтрует дубликаты. -соединяется пробелами.

CJam, 7 символов

qS/_&S*

Возможно, может быть намного короче ... но все, что я почти никогда не использовал CJam. ^. ^

qсчитывает ввод, S/разбивает на пробелы, _&дублирует и применяет заданное AND (следовательно, избавляется от дубликатов) и S*повторно объединяет пробелы.

Онлайн переводчик ссылка

Haskell, 34 байта

import Data.List
unwords.nub.words

Пример использования: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 байт

{1↓∊∪(∊∘' '⊂⊢)' ',⍵}

Это создает безымянную монадическую функцию, которая принимает строку справа и возвращает строку.

Объяснение:

               ' ',⍵}    ⍝ Prepend a space to the input string
     (∊∘' '⊂⊢)          ⍝ Split the string on spaces using a fork
    ∪                    ⍝ Select the unique elements
{1↓∊                     ⍝ Join into a string and drop the leading space

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

Сохранено 2 байта благодаря Денису!

Рубин, 21 символ

->s{s.split.uniq*' '}

JavaScript (ES6) 33

(см. этот ответ )

Протестируйте приведенный ниже фрагмент в браузере, совместимом с EcmaScript 6 (реализуя Set, оператор распространения, строки шаблонов и функции стрелок - я использую Firefox).

Примечание: при преобразовании в Set удаляются все дубликаты, а в Set сохраняется исходный порядок.

f=s=>[...Set(s.split` `)].join` `

function test() { O.innerHTML=f(I.value) }

test()

#I { width: 70% }

<input id=I value="cat dog cat dog bird dog Snake snake Snake"/><button onclick="test()">-></button>
<pre id=O></pre>

TeaScript , 12 байт

TeaScript - это JavaScript для игры в гольф.

xs` `u()j` `

Это довольно коротко. Он разделяется на каждое пространство, отфильтровывает дубликаты, а затем возвращается.

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

PowerShell, 15 байт

$args|select -u

Вау, реальная запись, где PowerShell несколько конкурентоспособен? Это невозможно!

Принимает строку в качестве входных аргументов, передает Select-Objectс -Uniqueфлагом. Выплевывает массив строк, сохраняя порядок и заглавные буквы в соответствии с запросом.

Использование:

PS C:\Tools\Scripts\golfing> .\remove-repeated-words-from-string.ps1 cat dog cat dog bird dog Snake snake Snake
cat
dog
bird
Snake
snake

Если это слишком «обманчиво», если предположить, что входные данные могут быть аргументами командной строки, тогда перейдите к следующему, в 24 21 байт _{(сэкономлено несколько байтов благодаря blabb )} . Интересно, что использование унарного оператора в этом направлении также работает, если входная строка разграничена кавычками или отдельными аргументами, поскольку по умолчанию -splitиспользуется пробел. Бонус.

-split$args|select -u

Юлия, 29 байт

s->join(unique(split(s))," ")

Это создает безымянную функцию, которая разбивает строку на вектор по пробелам, сохраняет только уникальные элементы (сохраняя порядок) и объединяет массив обратно в строку с пробелами.

R, 22 байта

cat(unique(scan(,"")))

Это читает строку из STDIN и разбивает ее на вектор по пробелам, используя scan(,""), выбирает только уникальные элементы, затем объединяет их в строку и печатает ее в STDOUT, используя cat.

Сетчатка , 22 байта

 (\w+)\b(?<=\b\1\b.+)

Сохраните файл с завершающим переводом строки и запустите его с -sфлагом.

Это довольно просто в том смысле, что оно соответствует одному слову, и просмотр за спиной проверяет, появилось ли то же слово в строке ранее. Конечный перевод строки заставляет Retina работать в режиме Replace с пустой строкой замены, удаляя все совпадения.

Mathematica, 43 39 байт

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 байт

Вот почему мы все ждем Pyth5, возможно, было 5 байт.

jdoxzN{cz

Попробуйте это онлайн здесь .

C ++ 11, 291 байт

#include<iostream>
#include<string>
#include<list>
#include<sstream>
#include<algorithm>
using namespace std;main(){string s;getline(cin,s);list<string>m;stringstream b(s);while(getline(b,s,' '))if(find(m.begin(),m.end(),s)==m.end())m.push_back(s);for(auto a:m)cout<<a<<' ';cout<<endl;}

Я не вижу много ответов C ++ по сравнению с языками игры в гольф, так почему бы и нет. Обратите внимание, что здесь используются функции C ++ 11, и поэтому, если ваш компилятор застрял в достаточно темном возрасте , вам может потребоваться передать специальный параметр компиляции, чтобы он использовал стандарт C ++ 11. Для g++, это -std=c++11(необходимо только для версий <5.2). Попробуйте онлайн

К5, 9 байт

" "/?" "\

К вашему сведению, это функция.

объяснение

     " "\    Split the input on spaces
    ?        Find all the unique elements
" "/         Join them back together

Matlab: 18 байт

unique(d,'stable')

где dнаходится d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Результат 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

l=[]
for x in input().split():l+=[x][x in l:]
print(*l)

Да, это долго. К сожалению, Python setне сохраняет порядок элементов, поэтому мы должны сделать работу сами. Мы перебираем входные слова, сохраняя список lэлементов, которых еще нет l. Затем мы печатаем содержимое через lпробел.

Строковая версия lне будет работать, если некоторые слова являются подстрока других слов.

C #, 38 байт

String.Join(" ",s.Split().Distinct());

Perl 6, 14 байт

В целом для программы единственный способ написать ее - длина 21 байт

say $*IN.words.unique # 21 bytes

Как лямбда-выражение самое короткое составляет 14 байтов

*.words.unique # 14 bytes

say ( *.words.unique ).('cat dog cat dog bird dog Snake snake Snake')

my &foo = *.words.unique;
say foo $*IN;

Хотя выводом является список, если вы поместите его в строковый контекст, он поместит пробел между элементами. Если требовалось вернуть строку, вы можете просто добавить a ~в начало ~*.words.unique.

Если фрагменты были разрешены, вы можете сократить их до 13 байтов, удалив *.

$_ = 'cat dog cat dog bird dog Snake snake Snake';

say .words.unique

Python 3, 87 80 байт

оказывается полная версия программы короче

s=input().split(' ')
print(' '.join(e for i,e in enumerate(s)if e not in s[:i]))

Сделал это без регулярных выражений, я счастлив

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

Луа, 94 байта

function c(a)l={}return a:gsub("%S+",function(b)if l[b]then return""else l[b]=true end end)end

awk, 25

BEGIN{RS=ORS=" "}!c[$0]++

Выход:

$ printf "cat dog cat dog bird dog Snake snake Snake" | awk 'BEGIN{RS=ORS=" "}!c[$0]++'
cat dog bird Snake snake $ 
$ 

JavaScript, 106 102 100 байт

function(s){o={};s.split(' ').map(function(w){o[w]=1});a=[];for(w in o)a.push(w);return a.join(' ')}

// слишком долго для JS :(

Калий , 91 байт

func main(){d=[]foreach(w in input().split(' '))if(!(d.contains(w))){d.add(w)print(w+" ")}}

Запустите онлайн и посмотрите расширенный здесь

PHP 64 59 байт

function r($i){echo join(" ",array_unique(split(" ",$i)));}

AppleScript, 162 байта

Интересно, что это почти идентично неповторяющимся символам.

установить x в (отобразить диалог "" ответ по умолчанию "") возвращаемый текст
установить "в"
повторить с я в х
рассматривает дело
если нет, то я в o, тогда установите o в o & i & ""
конец
конец
о

Я на самом деле не знал рассматриваемого ключевого слова до этого. чем больше ты знаешь...

Бурлеск, 6 байтов

blsq ) "cat dog cat dog bird dog Snake snake Snake"wdNBwD
cat dog bird Snake snake

Довольно просто: разделить слова, nub (nub = удалить дубликаты), преобразовать обратно в слова.

Гема, 21 персонаж

*\S=${$0;$0}@set{$0;}

(Очень похоже на уникальное решение для персонажей , так как в Gema нет массивов, поэтому использование встроенных уникальных функций не очень нам помогает.)

Образец прогона:

bash-4.3$ gema '*\S=${$0;$0}@set{$0;}' <<< 'cat dog cat dog bird dog Snake snake Snake'
cat dog bird Snake snake 

Scala, 44 47 байт

(s:String)=>s.split(" ").distinct.mkString(" ")

РЕДАКТИРОВАТЬ : использование toSetможет не сохранить порядок, поэтому я теперь использую различные //, которые просто стоят мне 3 байта :(

PHP, 37 байт

Предполагается $s, что входная строка.

print_r(array_flip(explode(' ',$s)));