Remova todas as palavras repetidas de uma frase inserida.

A entrada será algo parecido cat dog cat dog bird dog Snake snake Snakee a saída deve ser cat dog bird Snake snake. Sempre haverá um único espaço separando as palavras.

A ordem de saída deve ser igual à entrada. (Consulte o exemplo)

Você não precisa lidar com pontuação, mas é necessário o tratamento de letras maiúsculas.

gs2 , 3 bytes

,É-

Codificado no CP437 .

STDIN é pressionado no início do programa. ,divide sobre espaços. Éé uniq, que filtra duplicatas. -junta-se por espaços.

CJam, 7 caracteres

qS/_&S*

Provavelmente pode ser muito mais curto ... mas seja o que for que eu quase nunca usei o CJam. ^. ^

qlê entrada, S/divide em espaços, _&duplica e aplica um AND setwise (portanto, se livra das duplicatas) e S*se junta novamente ao espaço.

Link de intérprete online

Haskell, 34 bytes

import Data.List
unwords.nub.words

Exemplo de uso: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 bytes

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

Isso cria uma função monádica sem nome que aceita uma string à direita e retorna uma string.

Explicação:

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

Experimente online

Economizou 2 bytes graças a Dennis!

Ruby, 21 caracteres

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

JavaScript (ES6) 33

(veja esta resposta )

Teste a execução do snippet abaixo em um navegador compatível com EcmaScript 6 (implementando Set, spread spread, strings de modelo e funções de seta - eu uso o Firefox).

Nota: a conversão para Set elimina todas as duplicatas e Set mantém a ordem original.

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 é JavaScript para jogar golfe.

xs` `u()j` `

Isso é bem curto. Ele se divide em cada espaço, filtra as duplicatas e depois se junta novamente.

Experimente online

PowerShell, 15 bytes

$args|select -u

Whoa, uma entrada real em que o PowerShell é um pouco competitivo? Isso é impossível!

Leva a string como argumentos de entrada, passa para Select-Objecta -Uniquebandeira. Cospe uma matriz de strings, preservando a ordem e a capitalização conforme solicitado.

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 isso for muito "barato", assumindo que a entrada possa ser como argumentos da linha de comando, siga o seguinte, em 24 21 Bytes _{(salvou alguns bytes graças ao blabb )} . Curiosamente, o uso do operador unário nessa direção também funcionará se a sequência de entrada for demarcada com aspas ou como argumentos individuais, pois o padrão -splité por espaços. Bônus.

-split$args|select -u

Julia, 29 bytes

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

Isso cria uma função sem nome que divide a string em um vetor em espaços, mantém apenas os elementos exclusivos (ordem de preservação) e junta a matriz novamente a uma string com espaços.

R, 22 bytes

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

Isso lê uma string de STDIN e a divide em um vetor em espaços usando scan(,""), seleciona apenas elementos exclusivos, concatena-os em uma string e imprime-a em STDOUT usando cat.

Retina , 22 bytes

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

Salve o arquivo com um avanço de linha à direita e execute-o com o -ssinalizador.

Isso é bastante direto, pois corresponde a uma única palavra, e o lookbehind verifica se a mesma palavra já apareceu na string anteriormente. O avanço de linha à direita faz com que o Retina funcione no modo Substituir por uma sequência de substituição vazia, removendo todas as correspondências.

Mathematica, 43 39 bytes

StringRiffle@*Keys@*Counts@*StringSplit

Pitão - 9 bytes

Bem, é por isso que todos estamos esperando pelo Pyth5, poderia ter sido de 5 bytes.

jdoxzN{cz

Experimente online aqui .

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

Não vejo muitas respostas em C ++ em comparação com as linguagens de golfe, por que não? Observe que isso usa os recursos do C ++ 11 e, portanto, se o seu compilador estiver preso na idade das trevas com idade suficiente, talvez seja necessário passar por uma opção de compilação especial para que ele use o padrão C ++ 11. Pois g++é -std=c++11(é necessário apenas para versões <5.2). Experimente online

K5, 9 bytes

" "/?" "\

Para sua informação, esta é uma função.

Explicação

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

Matlab: 18 bytes

unique(d,'stable')

onde dé d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

O resultado é 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Sim, isso é longo. Infelizmente, o Python setnão mantém a ordem dos elementos, por isso temos que fazer o trabalho sozinhos. Repetimos as palavras de entrada, mantendo uma lista lde elementos que ainda não estão inseridos l. Em seguida, imprimimos o conteúdo do lespaço separado.

Uma versão em cadeia de caracteres lnão funcionaria se algumas palavras fossem substrings de outras palavras.

C #, 38 bytes

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

Perl 6, 14 bytes

Como um programa inteiro, a única maneira de escrever é de 21 bytes

say $*IN.words.unique # 21 bytes

Como uma expressão lambda, o menor é 14 bytes

*.words.unique # 14 bytes

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

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

Enquanto a saída for uma Lista, se você a colocar em um contexto de stringing, ela colocará um espaço entre os elementos. Se fosse necessário retornar uma string, você poderia simplesmente adicionar ~a na frente ~*.words.unique.

Se snippets forem permitidos, você poderá reduzi-lo para 13 bytes removendo o *.

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

say .words.unique

Python 3, 87 80 bytes

Acontece que a versão completa do programa é mais curta

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

Fiz isso sem regex, estou feliz

Experimente online

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

Resultado:

$ 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(' ')}

// tempo demais para JS :(

Hássio , 91 bytes

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

Execute on-line e veja expandido aqui

PHP 64 59 bytes

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

AppleScript, 162 bytes

Curiosamente, isso é quase idêntico ao dos personagens que não se repetem.

defina x como texto da caixa de diálogo "" resposta padrão "")
defina o como ""
repita com i em x
considerando caso
caso contrário, i está em o e defina o como o & i & ""
fim
fim
o

Na verdade, eu não conhecia a palavra-chave considerando antes disso. quanto mais você sabe...

Burlesco, 6 bytes

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

Bastante simples: divida as palavras, nub (nub = remove duplicatas), converta novamente em palavras.

Gema, 21 caracteres

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

(Muito semelhante à solução de caractere exclusivo , como não há matrizes no Gema, portanto, permitir funções exclusivas incorporadas não nos ajuda muito.)

Exemplo de execução:

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(" ")

EDIT : usando toSetpode não preservar a ordem, então agora estou usando // distintos que me custam apenas 3 bytes :(

PHP, 37 bytes

Assumindo $sé a sequência de entrada.

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