Rimuovi tutte le parole ripetute da una frase inserita.

L'input sarà qualcosa di simile cat dog cat dog bird dog Snake snake Snakee l'output dovrebbe essere cat dog bird Snake snake. Ci sarà sempre un unico spazio che separa le parole.

L'ordine di uscita deve essere uguale all'input. (Fare riferimento all'esempio)

Non è necessario gestire la punteggiatura ma è necessaria la gestione delle lettere maiuscole.

gs2 , 3 byte

,É-

Codificato in CP437 .

STDIN viene premuto all'inizio del programma. ,lo divide su spazi. Éè uniq, che filtra i duplicati. -si unisce per spazi.

CJam, 7 caratteri

qS/_&S*

Probabilmente può essere molto più breve ... ma qualunque cosa non abbia quasi mai usato CJam. ^. ^

qlegge l'input, si S/divide in spazi, _&duplica e applica una E (quindi eliminando i duplicati) e S*si ricollega allo spazio.

Link dell'interprete online

Haskell, 34 byte

import Data.List
unwords.nub.words

Esempio di utilizzo: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 byte

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

Questo crea una funzione monadica senza nome che accetta una stringa a destra e restituisce una stringa.

Spiegazione:

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

Provalo online

Salvato 2 byte grazie a Dennis!

Rubino, 21 caratteri

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

JavaScript (ES6) 33

(vedi questa risposta )

Prova a eseguire lo snippet di seguito in un browser conforme a EcmaScript 6 (implementando Set, operatore di diffusione, stringhe di modelli e funzioni freccia - utilizzo Firefox).

Nota: la conversione in Set elimina tutti i duplicati e Set mantiene l'ordine originale.

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 byte

TeaScript è JavaScript per il golf.

xs` `u()j` `

Questo è piuttosto breve. Si divide su ogni spazio, filtra i duplicati, quindi si ricongiunge.

Provalo online

PowerShell, 15 byte

$args|select -u

Whoa, una voce reale in cui PowerShell è in qualche modo competitivo? È impossibile!

Prende la stringa come argomenti di input, pipe Select-Objectcon il -Uniqueflag. Sputa una serie di stringhe, preservando l'ordine e le maiuscole come richiesto.

Uso:

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

Se questo è troppo "economico" supponendo che l'input possa essere come argomento da riga di comando, allora procedi come segue, a 24 21 byte _{(salvati alcuni byte grazie a blabb )} . È interessante notare che l'utilizzo dell'operatore unario in questa direzione funziona anche se la stringa di input è delimitata da virgolette o come singoli argomenti, poiché l'impostazione predefinita -splitè per spazi. Bonus.

-split$args|select -u

Julia, 29 byte

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

Ciò crea una funzione senza nome che divide la stringa in un vettore su spazi, mantiene solo gli elementi univoci (preservando l'ordine) e unisce nuovamente l'array in una stringa con spazi.

R, 22 byte

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

Questo legge una stringa da STDIN e la divide in un vettore su spazi usando scan(,""), seleziona solo elementi univoci, quindi li concatena in una stringa e la stampa su STDOUT usando cat.

Retina , 22 byte

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

Salvare il file con un avanzamento riga finale ed eseguirlo con il -sflag.

Questo è abbastanza semplice in quanto corrisponde a una singola parola e il lookbehind controlla se quella stessa parola è apparsa nella stringa prima. L'alimentazione di riga finale fa sì che Retina funzioni in modalità Sostituisci con una stringa di sostituzione vuota, rimuovendo tutte le corrispondenze.

Mathematica, 43 39 byte

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 byte

Bene, questo è il motivo per cui stiamo tutti aspettando Pyth5, potrebbero essere stati 5 byte.

jdoxzN{cz

Provalo online qui .

C ++ 11, 291 byte

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

Non vedo molte risposte in C ++ rispetto ai linguaggi del golf, quindi perché no. Nota che questo utilizza le funzionalità di C ++ 11 e quindi se il tuo compilatore è bloccato nei periodi bui abbastanza vecchi, potrebbe essere necessario passare uno speciale interruttore di compilazione per farlo usare lo standard C ++ 11. Per g++, è -std=c++11(necessario solo per le versioni <5.2). Provalo online

K5, 9 byte

" "/?" "\

Cordiali saluti, questa è una funzione.

Spiegazione

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

Matlab: 18 byte

unique(d,'stable')

dove dè d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Il risultato è 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Sì, questo è lungo. Sfortunatamente, Python's setnon mantiene l'ordine degli elementi, quindi dobbiamo fare il lavoro da soli. Esaminiamo le parole di input, mantenendo un elenco ldi elementi che non sono ancora presenti l. Quindi, stampiamo il contenuto di lspazio separato.

Una versione stringa di lnon funzionerebbe se alcune parole sono sottostringhe di altre parole.

C #, 38 byte

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

Perl 6, 14 byte

Nel suo complesso, l'unico modo per scriverlo è lungo 21 byte

say $*IN.words.unique # 21 bytes

Come espressione lambda il più breve è di 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;

Mentre l'output è un elenco, se lo si inserisce in un contesto stringente, verrà inserito uno spazio tra gli elementi. Se fosse necessario restituire una stringa, basta aggiungere un carattere ~in primo piano ~*.words.unique.

Se fossero consentiti frammenti, è possibile accorciarlo a 13 byte rimuovendo il *.

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

say .words.unique

Python 3, 87 80 byte

risulta che la versione completa del programma è più breve

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

L'ho fatto senza regex, sono felice

Provalo online

Lua, 94 byte

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

Produzione:

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

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

// troppo a lungo per JS :(

Hassium , 91 byte

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

Corri online e vedi espanso qui

PHP 64 59 byte

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

AppleScript, 162 byte

È interessante notare che questo è quasi identico alla cosa dei personaggi che non si ripetono.

imposta x su (visualizza la finestra di dialogo "" risposta predefinita "") il testo restituito dalle parole
impostare o su ""
ripeti con i in x
considerando il caso
in caso contrario sono in o quindi imposta o su o & i & ""
fine
fine
o

In realtà non conoscevo la parola chiave considerata prima di questo. più si conosce...

Burlesque, 6 byte

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

Piuttosto semplice: dividi parole, nub (nub = rimuovi duplicati), converti in parole.

Gema, 21 personaggi

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

(Molto simile alla soluzione di carattere unico , in quanto non ci sono array in Gema, quindi consentire funzioni uniche integrate non ci aiuta molto.)

Esecuzione di esempio:

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 byte

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

EDIT : l'utilizzo toSetpotrebbe non conservare l'ordine, quindi ora sto usando distinti // che mi costano solo 3 byte :(

PHP, 37 byte

Supponendo che $ssia la stringa di input.

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