Видаліть усі повторювані слова із введеного речення.

Вхід буде чимось на зразок, 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/розбиває на пробіли, _&дублює і застосовує встановлене І (тому позбавляючись від дублікатів) і S*знову приєднується до простору.

Інтернет-перекладач посилання

Хаскелл, 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 скинути всі дублікати та встановити mantains оригінальне замовлення.

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

Whoa, фактичний запис, коли 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 байт _{(збережено кілька байтів завдяки бабу )} . Цікаво, що використання одинарного оператора в цьому напрямку також може працювати, якщо вхідний рядок розмежований цитатами або окремими аргументами, оскільки типовим -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 з порожньою рядком заміни, видаляючи всі збіги.

Математика, 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 ++ 11, і тому, якщо ваш компілятор застряг у темній віці, достатньо старої, вам може знадобитися передати спеціальний компіляційний коммутатор, щоб використовувати його для стандарту C ++ 11. Бо g++це -std=c++11(потрібне лише для версій <5.2). Спробуйте в Інтернеті

К5, 9 байт

" "/?" "\

FYI, це функція.

Пояснення

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

Матлаб: 18 байт

unique(d,'stable')

де dє d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

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

Пітон 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;

У той час як вихід - це Список, якщо ви поставите його в контекст, що зміцнює, він поставить пробіл між елементами. Якщо це була вимога повернути рядок, ви можете просто додати ~передню частину ~*.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 :(

Hassium , 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 на ""
повторити з i в х
розглядаючи випадок
якщо ні, я перебуваю в 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(" ")

EDIT : використання toSetможе не зберегти порядок, тому я зараз використовую чіткий // що просто коштував мені 3 байти :(

PHP, 37 байт

Припускаючи, що $sце вхідний рядок.

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