Usuń wszystkie powtarzające się słowa z wprowadzonego zdania.

Dane wejściowe będą podobne, cat dog cat dog bird dog Snake snake Snakea dane wyjściowe powinny cat dog bird Snake snake. Zawsze będzie pojedyncza spacja oddzielająca słowa.

Kolejność wyjściowa musi być taka sama jak wejściowa. (Patrz przykład)

Nie musisz obsługiwać znaków interpunkcyjnych, ale wymagana jest obsługa wielkich liter.

gs2 , 3 bajty

,É-

Zakodowane w CP437 .

STDIN jest wypychany na początku programu. ,dzieli go na spacje. Éto uniq, który filtruje duplikaty. -łączy spacjami.

CJam, 7 znaków

qS/_&S*

Prawdopodobnie może być znacznie krótszy ... ale cokolwiek prawie nigdy nie użyłem CJam. ^. ^

qodczytuje dane wejściowe, S/dzieli się na spacje, _&duplikuje i stosuje ustalone ORAZ (pozbywając się duplikatów) i S*ponownie łączy się w spację.

Link do tłumacza online

Haskell, 34 bajty

import Data.List
unwords.nub.words

Przykład użycia: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 bajtów

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

Tworzy to nienazwaną funkcję monadyczną, która akceptuje ciąg po prawej stronie i zwraca ciąg.

Wyjaśnienie:

               ' ',⍵}    ⍝ 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

Wypróbuj online

Zaoszczędzono 2 bajty dzięki Dennisowi!

Ruby, 21 znaków

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

JavaScript (ES6) 33

(zobacz tę odpowiedź )

Przetestuj poniższy fragment kodu w przeglądarce zgodnej z EcmaScript 6 (implementując operatora Set, spread, ciągi szablonów i funkcje strzałek - używam Firefox).

Uwaga: konwersja do Set upuszcza wszystkie duplikaty, a Set zachowuje oryginalne zamówienie.

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 bajtów

TeaScript to JavaScript do gry w golfa.

xs` `u()j` `

To jest dość krótkie. Dzieli się na każdym miejscu, odfiltrowuje duplikaty, a następnie dołącza ponownie.

Wypróbuj online

PowerShell, 15 bajtów

$args|select -u

Whoa, prawdziwy wpis, w którym PowerShell jest nieco konkurencyjny? To niemożliwe!

Przyjmuje ciąg jako argumenty wejściowe, do rur Select-Objectz -Uniqueflagą. Wydziela tablicę ciągów, zachowując porządek i wielkie litery zgodnie z żądaniem.

Stosowanie:

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

Jeśli jest to zbyt „oszukańcze”, zakładając, że dane wejściowe mogą być argumentami wiersza poleceń, przejdź do następujących, w 24 21 bajtach _{(zapisano niektóre bajty dzięki blabb )} . Co ciekawe, użycie jednoargumentowego operatora w tym kierunku działa również, jeśli ciąg wejściowy jest wyznaczony cudzysłowami lub jako pojedyncze argumenty, ponieważ domyślnie -splitsą to spacje. Premia.

-split$args|select -u

Julia, 29 bajtów

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

Tworzy to nienazwaną funkcję, która dzieli ciąg na wektor na spacje, zachowuje tylko unikalne elementy (zachowując porządek) i ponownie łączy tablicę w ciąg ze spacjami.

R, 22 bajty

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

Odczytuje ciąg ze STDIN i dzieli go na wektor na spacje za pomocą scan(,""), wybiera tylko unikalne elementy, a następnie łączy je w ciąg i drukuje za pomocą STDOUT cat.

Siatkówka , 22 bajty

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

Zapisz plik z końcowym podawaniem linii i uruchom go z -sflagą.

Jest to dość proste, ponieważ pasuje do jednego słowa, a lookbehind sprawdza, czy to samo słowo pojawiło się wcześniej w ciągu. Końcowe podawanie linii powoduje, że siatkówka działa w trybie zamiany z pustym ciągiem zastępującym, usuwając wszystkie dopasowania.

Mathematica, 43 39 bajtów

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 bajtów

Właśnie dlatego wszyscy czekamy na Pyth5, może być 5 bajtów.

jdoxzN{cz

Wypróbuj online tutaj .

C ++ 11, 291 bajtów

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

Nie widzę wielu odpowiedzi w C ++ w porównaniu do języków golfowych, więc dlaczego nie. Zauważ, że używa to funkcji C ++ 11, więc jeśli twój kompilator utknie w dostatecznie starym wieku , konieczne może być przekazanie specjalnego przełącznika kompilacji, aby mógł używać standardu C ++ 11. Ponieważ g++jest -std=c++11(potrzebny tylko dla wersji <5.2). Wypróbuj online

K5, 9 bajtów

" "/?" "\

Do Twojej wiadomości, to jest funkcja.

Wyjaśnienie

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

Matlab: 18 bajtów

unique(d,'stable')

gdzie djest d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Wynik to 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Tak, to długo. Niestety, Python setnie zachowuje kolejności elementów, więc musimy wykonać pracę sami. Powtarzamy słowa wejściowe, zachowując listę lelementów, których jeszcze nie ma l. Następnie drukujemy zawartość lrozdzieloną spacjami.

Wersja łańcuchowa lnie działałaby, jeśli niektóre słowa są podciągami innych słów.

C #, 38 bajtów

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

Perl 6, 14 bajtów

Jako cały program jedynym sposobem na napisanie tego jest 21 bajtów

say $*IN.words.unique # 21 bytes

Jako wyrażenie lambda najkrótszy ma 14 bajtów

*.words.unique # 14 bytes

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

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

Mimo że wynikiem jest lista, umieszczenie jej w kontekście strunkującym spowoduje umieszczenie spacji między elementami. Jeśli wymagane było zwrócenie ciągu, można po prostu dodać znak ~z przodu ~*.words.unique.

Jeśli fragmenty byłyby dozwolone, możesz skrócić je do 13 bajtów, usuwając plik *.

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

say .words.unique

Python 3, 87 80 bajtów

okazuje się, że pełna wersja programu jest krótsza

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

Zrobiłem to bez wyrażenia regularnego, jestem szczęśliwy

Wypróbuj online

Lua, 94 bajty

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

Wynik:

$ 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 bajtów

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

// zdecydowanie za długo dla JS :(

Has , 91 bajtów

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

Uruchom online i zobacz rozwinięty tutaj

PHP 64 59 bajtów

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

AppleScript, 162 bajty

Co ciekawe, jest to prawie identyczne jak w przypadku postaci bez powtarzania.

ustaw x na (wyświetl okno dialogowe „domyślna odpowiedź” ”) słowa zwrócone
ustaw o na „”
powtórz z i w x
rozważanie przypadku
jeśli nie, ja jest w to ustaw o na o & i & ""
koniec
koniec
o

Wcześniej nie znałem rozważanego słowa kluczowego. im więcej wiesz...

Burleska, 6 bajtów

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

Raczej proste: dzielenie słów, nub (nub = usuń duplikaty), konwersja z powrotem na słowa.

Gema, 21 znaków

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

(Bardzo podobny do unikalnego rozwiązania postaci , ponieważ w Gema nie ma tablic, więc umożliwienie wbudowanych unikalnych funkcji niewiele nam pomoże.)

Przykładowy przebieg:

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 bajtów

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

EDYCJA : używanie toSetmoże nie zachowywać porządku, więc teraz używam odrębnego //, który kosztuje mnie tylko 3 bajty :(

PHP, 37 bajtów

Zakładając, że $sjest łańcuchem wejściowym.

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