Entfernen Sie alle sich wiederholenden Wörter aus einem eingegebenen Satz.

Die Eingabe wird ungefähr so ​​sein cat dog cat dog bird dog Snake snake Snakeund die Ausgabe sollte so sein cat dog bird Snake snake. Es wird immer ein einzelnes Leerzeichen geben, das die Wörter voneinander trennt.

Die Ausgabereihenfolge muss mit der Eingabereihenfolge übereinstimmen. (Siehe Beispiel)

Sie müssen nicht mit Interpunktion umgehen, aber Sie müssen mit Großbuchstaben umgehen.

gs2 , 3 bytes

,É-

In CP437 codiert .

STDIN wird beim Programmstart gedrückt. ,teilt es über Leerzeichen auf. Éist uniq, was Duplikate filtert. -verbindet durch Leerzeichen.

CJam, 7 Zeichen

qS/_&S*

Kann wahrscheinlich viel kürzer sein ... aber was auch immer ich CJam fast nie benutzt habe. ^. ^

qLiest Eingaben, S/teilt Leerzeichen auf, _&dupliziert und wendet ein eindeutiges UND an (daher werden Duplikate entfernt) und verbindet sich S*wieder mit dem Leerzeichen.

Online-Dolmetscher-Link

Haskell, 34 Bytes

import Data.List
unwords.nub.words

Anwendungsbeispiel: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 bis 20 Bytes

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

Dadurch wird eine unbenannte monadische Funktion erstellt, die eine Zeichenfolge auf der rechten Seite akzeptiert und eine Zeichenfolge zurückgibt.

Erläuterung:

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

Probieren Sie es online aus

2 Bytes gespart dank Dennis!

Rubin, 21 Zeichen

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

JavaScript (ES6) 33

(siehe diese Antwort )

Testen Sie das folgende Snippet in einem EcmaScript 6-kompatiblen Browser (Implementierung von Set-, Spread-Operator-, Template-Strings- und Pfeilfunktionen - ich verwende Firefox).

Hinweis: Bei der Konvertierung in Set werden alle Duplikate gelöscht, und Set behält die ursprüngliche Reihenfolge bei.

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 Bytes

TeaScript ist JavaScript zum Golfen.

xs` `u()j` `

Das ist ziemlich kurz. Es teilt sich auf jedes Feld auf, filtert Duplikate heraus und fügt sich dann wieder zusammen.

Probieren Sie es online aus

PowerShell, 15 Bytes

$args|select -u

Whoa, ein Eintrag, bei dem PowerShell etwas wettbewerbsfähig ist? Das ist unmöglich!

Nimmt die Zeichenfolge als Eingabeargumente und leitet sie Select-Objectmit dem -UniqueFlag weiter. Spuckt eine Reihe von Zeichenfolgen aus, wobei die angeforderte Reihenfolge und Großschreibung beibehalten wird.

Verwendung:

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

Wenn dies zu "betrügerisch" ist, wenn angenommen wird, dass die Eingabe als Befehlszeilenargument erfolgen kann, gehen Sie wie folgt vor: 24 21 Bytes _{(einige Bytes werden dank blabb gespeichert )} . Interessanterweise funktioniert die Verwendung des unären Operators in dieser Richtung auch, wenn die Eingabezeichenfolge in Anführungszeichen oder als einzelne Argumente angegeben wird, da die Standardeinstellung -splitLeerzeichen enthält. Bonus.

-split$args|select -u

Julia, 29 Bytes

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

Dadurch wird eine unbenannte Funktion erstellt, die die Zeichenfolge in Leerzeichen in einen Vektor aufteilt, nur die eindeutigen Elemente beibehält (Reihenfolge beibehalten) und das Array wieder zu einer Zeichenfolge mit Leerzeichen zusammenfügt.

R, 22 Bytes

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

Dies liest einen String aus STDIN und teilt ihn mit in einen Vektor auf scan(,""), wählt nur eindeutige Elemente aus, verknüpft sie dann zu einem String und druckt ihn mit in STDOUT cat.

Netzhaut , 22 Bytes

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

Speichern Sie die Datei mit einem nachfolgenden Zeilenumbruch und führen Sie sie mit dem -sFlag aus.

Dies ist ziemlich einfach, da es mit einem einzelnen Wort übereinstimmt und der Lookbehind prüft, ob dasselbe Wort zuvor in der Zeichenfolge vorgekommen ist. Der nachfolgende Zeilenvorschub bewirkt, dass Retina im Ersetzungsmodus mit einer leeren Ersetzungszeichenfolge arbeitet und alle Übereinstimmungen entfernt.

Mathematica, 43 39 Bytes

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 Bytes

Nun, deshalb warten wir alle auf Pyth5, es könnten 5 Bytes sein.

jdoxzN{cz

Probieren Sie es hier online aus .

C ++ 11, 291 Bytes

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

Ich sehe nicht viele C ++ - Antworten im Vergleich zu Golfsprachen. Warum also nicht? Beachten Sie, dass dies C ++ 11-Funktionen verwendet. Wenn Ihr Compiler also im Dunkeln steckt und alt genug ist, müssen Sie möglicherweise einen speziellen Kompilierungsschalter übergeben, damit er den C ++ 11-Standard verwendet. Für g++ist es -std=c++11(nur für Versionen <5.2 erforderlich). Probieren Sie es online aus

K5, 9 Bytes

" "/?" "\

Zu Ihrer Information, dies ist eine Funktion.

Erläuterung

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

Matlab: 18 Bytes

unique(d,'stable')

wo d ist d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Das Ergebnis ist 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Ja, das ist lang. Leider setbehält Python die Reihenfolge der Elemente nicht bei, sodass wir die Arbeit selbst erledigen müssen. Wir durchlaufen die eingegebenen Wörter und führen eine Liste lder Elemente, die noch nicht enthalten sind l. Dann drucken wir den Inhalt von lLeerzeichen getrennt.

Eine String-Version von lwürde nicht funktionieren, wenn einige Wörter Teilfolgen anderer Wörter sind.

C #, 38 Bytes

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

Perl 6, 14 Bytes

Als ganzes Programm ist die einzige Möglichkeit, wie Sie es schreiben würden, 21 Bytes lang

say $*IN.words.unique # 21 bytes

Als Lambda-Ausdruck beträgt der kürzeste 14 Byte

*.words.unique # 14 bytes

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

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

Während es sich bei der Ausgabe um eine Liste handelt, wird zwischen den Elementen ein Leerzeichen eingefügt, wenn Sie sie in einen stringierenden Kontext stellen. Wenn eine Zeichenfolge zurückgegeben werden muss, können Sie ~der Vorderseite einfach ein hinzufügen ~*.words.unique.

Wenn Ausschnitte zulässig wären, könnten Sie sie durch Entfernen des Befehls auf 13 Byte verkürzen *.

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

say .words.unique

Python 3, 87 80 Bytes

stellt sich heraus, dass die Vollversion kürzer ist

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

Habe es ohne Regex gemacht, ich bin glücklich

Probieren Sie es online aus

Lua, 94 Bytes

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

Ausgabe:

$ 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 Bytes

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

// viel zu lang für JS :(

Hassium , 91 Bytes

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

Online laufen und hier erweitert sehen

PHP 64 59 Bytes

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

AppleScript, 162 Byte

Interessanterweise ist dies fast identisch mit der nicht wiederholenden Charaktersache.

setze x auf (zeige den Dialog "" Standardantwort "")
setze o auf ""
wiederhole mit i in x
in Betracht ziehen
Wenn nicht, bin ich in o, dann setze o auf o & i & ""
Ende
Ende
Ö

Ich kannte das Keyword, über das ich nachgedacht habe, vorher nicht. je mehr du weisst...

Burlesque, 6 Bytes

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

Ganz einfach: Wörter teilen, Nub (Nub = Duplikate entfernen), zurück in Wörter konvertieren.

Gema, 21 Zeichen

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

(Sehr ähnlich wie bei der Lösung für eindeutige Zeichen , da es in Gema keine Arrays gibt. Daher hilft es uns nicht viel, integrierte eindeutige Funktionen zuzulassen.)

Probelauf:

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 Bytes

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

BEARBEITEN : mit wird toSetdie Reihenfolge möglicherweise nicht beibehalten, daher verwende ich jetzt ein bestimmtes //, das mich nur 3 Byte gekostet hat :(

PHP, 37 Bytes

Angenommen, es $shandelt sich um die Eingabezeichenfolge.

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