Supprimez tous les mots répétitifs d'une phrase entrée.

L'entrée sera quelque chose comme cat dog cat dog bird dog Snake snake Snakeet la sortie devrait l'être cat dog bird Snake snake. Il y aura toujours un seul espace séparant les mots.

L'ordre de sortie doit être le même que l'entrée. (Reportez-vous à l'exemple)

Vous n'avez pas besoin de gérer la ponctuation, mais la gestion des majuscules est requise.

gs2 , 3 octets

,É-

Encodé en CP437 .

STDIN est poussé au début du programme. ,le divise en espaces. Éest uniq, qui filtre les doublons. -joint par des espaces.

CJam, 7 caractères

qS/_&S*

Peut probablement être beaucoup plus court ... mais quoi que je n'aie presque jamais utilisé CJam. ^. ^

qlit l'entrée, S/se divise en espaces, en _&double et applique un ET setwise (donc se débarrasser des doublons), et S*se joint à nouveau sur l'espace.

Lien interprète en ligne

Haskell, 34 octets

import Data.List
unwords.nub.words

Exemple d'utilisation: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 octets

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

Cela crée une fonction monadique sans nom qui accepte une chaîne à droite et renvoie une chaîne.

Explication:

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

Essayez-le en ligne

Enregistré 2 octets grâce à Dennis!

Rubis, 21 caractères

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

JavaScript (ES6) 33

(voir cette réponse )

Testez l'exécution de l'extrait ci-dessous dans un navigateur compatible EcmaScript 6 (implémentation de Set, de l'opérateur de diffusion, des chaînes de modèle et des fonctions de flèche - j'utilise Firefox).

Remarque: la conversion en Set supprime tous les doublons et Set conserve l'ordre d'origine.

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 octets

TeaScript est JavaScript pour le golf.

xs` `u()j` `

C'est assez court. Il se divise sur chaque espace, filtre les doublons, puis rejoint.

Essayez-le en ligne

PowerShell, 15 octets

$args|select -u

Whoa, une entrée réelle où PowerShell est quelque peu compétitif? C'est impossible!

Prend la chaîne comme arguments d'entrée, redirige vers Select-Objectavec l' -Uniqueindicateur. Crache un tableau de chaînes, préservant l'ordre et la capitalisation comme demandé.

Usage:

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

Si c'est trop "tricheur" en supposant que l'entrée peut être sous forme d'arguments de ligne de commande, alors optez pour ce qui suit, à 24 21 octets _{(enregistré quelques octets grâce à blabb )} . Fait intéressant, l'utilisation de l'opérateur unaire dans cette direction s'avère également fonctionner si la chaîne d'entrée est délimitée par des guillemets ou comme arguments individuels, car la valeur -splitpar défaut est constituée d'espaces. Prime.

-split$args|select -u

Julia, 29 octets

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

Cela crée une fonction sans nom qui divise la chaîne en un vecteur sur les espaces, ne conserve que les éléments uniques (en préservant l'ordre) et joint à nouveau le tableau en une chaîne avec des espaces.

R, 22 octets

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

Cela lit une chaîne de STDIN et la divise en un vecteur sur les espaces en utilisant scan(,""), sélectionne uniquement les éléments uniques, puis les concatène en une chaîne et l'imprime dans STDOUT en utilisant cat.

Rétine , 22 octets

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

Enregistrez le fichier avec un saut de ligne de fin et exécutez-le avec l' -sindicateur.

C'est assez simple en ce qu'il correspond à un seul mot, et le lookbehind vérifie si ce même mot est apparu dans la chaîne auparavant. Le saut de ligne arrière fait que Retina fonctionne en mode Remplacer avec une chaîne de remplacement vide, supprimant toutes les correspondances.

Mathematica, 43 39 octets

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 octets

Eh bien, c'est pourquoi nous attendons tous Pyth5, aurait pu être de 5 octets.

jdoxzN{cz

Essayez-le en ligne ici .

C ++ 11, 291 octets

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

Je ne vois pas beaucoup de réponses C ++ par rapport aux langages de golf, alors pourquoi pas. Notez que cela utilise des fonctionnalités C ++ 11, et donc si votre compilateur est coincé dans les âges sombres suffisamment vieux, vous devrez peut-être passer un commutateur de compilation spécial pour lui faire utiliser la norme C ++ 11. Pour g++, c'est -std=c++11(seulement nécessaire pour les versions <5.2). Essayez-le en ligne

K5, 9 octets

" "/?" "\

Pour info, c'est une fonction.

Explication

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

Matlab: 18 octets

unique(d,'stable')

où dest d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Le résultat est 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Yeesh, c'est long. Malheureusement, Python setne conserve pas l'ordre des éléments, nous devons donc faire le travail nous-mêmes. Nous parcourons les mots d'entrée, en conservant une liste ld'éléments qui ne sont pas encore inclus l. Ensuite, nous imprimons le contenu de l' lespace séparé.

Une version chaîne de lne fonctionnerait pas si certains mots sont des sous-chaînes d'autres mots.

C #, 38 octets

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

Perl 6, 14 octets

Dans l'ensemble, la seule façon d'écrire est de 21 octets

say $*IN.words.unique # 21 bytes

En tant qu'expression lambda, la plus courte est de 14 octets

*.words.unique # 14 bytes

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

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

Bien que la sortie soit une liste, si vous la placez dans un contexte de chaîne, elle mettra un espace entre les éléments. S'il était nécessaire de renvoyer une chaîne, vous pouvez simplement ajouter un ~à l'avant ~*.words.unique.

Si des extraits étaient autorisés, vous pouvez le raccourcir à 13 octets en supprimant le *.

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

say .words.unique

Python 3, 87 80 octets

il s'avère que la version complète du programme est plus courte

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

Je l'ai fait sans regex, je suis heureux

Essayez-le en ligne

Lua, 94 octets

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

Production:

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

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

// beaucoup trop long pour JS :(

Hassium , 91 octets

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

Exécuter en ligne et voir développé ici

PHP 64 59 octets

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

AppleScript, 162 octets

Fait intéressant, cela est presque identique à la chose des caractères non répétitifs.

mettre x à (afficher la boîte de dialogue "" réponse par défaut "")
mettre o à ""
répéter avec i en x
considérant le cas
si ce n'est pas le cas, je suis sur o, puis mettez o sur o & i & ""
fin
fin
o

Je ne connaissais pas vraiment le mot-clé considéré avant cela. plus vous en savez...

Burlesque, 6 octets

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

Assez simple: fractionner les mots, nub (nub = supprimer les doublons), reconvertir en mots.

Gema, 21 personnages

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

(Très similaire à la solution de caractère unique , car il n'y a pas de tableaux dans Gema, donc permettre des fonctions uniques intégrées ne nous aide pas beaucoup.)

Exemple d'exécution:

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 octets

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

EDIT : l'utilisation toSetpourrait ne pas préserver l'ordre, donc j'utilise maintenant distinct // qui me coûte juste 3 octets :(

PHP, 37 octets

En supposant que $sc'est la chaîne d'entrée.

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