Girilen bir cümledeki tüm tekrar eden kelimeleri kaldırın.

Girdi böyle bir şey olacaktır cat dog cat dog bird dog Snake snake Snakeve çıktı da olmalıdır cat dog bird Snake snake. Her zaman kelimeleri ayıran tek bir boşluk olacaktır.

Çıktı sırası, giriş ile aynı olmalıdır. (Örneğe bakın)

Noktalama işaretlerini kullanmanıza gerek yoktur, ancak büyük harf kullanımı gerekir.

gs2 , 3 bayt

,É-

CP437 ile kodlanmıştır .

STDIN, program başlangıcında itilir. ,onu boşluklara böler. Éolduğu uniqçiftleri filtreler olan. -boşluklarla birleşir.

CJam, 7 karakter

qS/_&S*

Muhtemelen çok daha kısa olabilir ... ama neredeyse hiç CJam kullanmadım. ^. ^

qgirdiyi okur S/, boşluklara ayırır, _&çoğaltır ve belirli bir AND (böylece yinelenenlerden kurtulmak) uygular ve S*uzaya yeniden birleşir.

Çevrimiçi tercüman bağlantısı

Haskell, 34 bayt

import Data.List
unwords.nub.words

Kullanım örneği: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 bayt

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

Bu, sağdaki bir dizeyi kabul eden ve bir dize döndüren adsız bir monadic işlevi oluşturur.

Açıklama:

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

Çevrimiçi deneyin

Dennis sayesinde 2 bayt tasarruf!

Ruby, 21 karakter

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

JavaScript (ES6) 33

( bu cevaba bakınız )

Aşağıdaki snippet'i EcmaScript 6 uyumlu bir tarayıcıda çalıştırmayı test edin (Set, yayma operatörü, şablon dizeleri ve ok işlevlerini uygulama - Firefox kullanıyorum).

Not: Set'e dönüştürme işlemi tüm kopyaları bırakır ve Set orijinal sıralamayı korur.

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 bayt

TeaScript golf için JavaScript'tir.

xs` `u()j` `

Bu oldukça kısa. Her alana ayrılır, kopyaları filtreler, sonra yeniden birleşir.

Çevrimiçi deneyin

PowerShell, 15 Bayt

$args|select -u

Whoa, PowerShell'in biraz rekabetçi olduğu gerçek bir giriş mi? Bu mümkün değil!

Giriş argümanlar, boruların olarak dizeyi Alır Select-Objectile -Uniquebayrak. İstendiği gibi düzeni ve büyük harf kullanımını koruyarak bir dizi dizge verir.

Kullanımı:

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

Bu, girişin komut satırı bağımsız değişkenleri olabileceğini varsayarak çok "ucuz" ise, 24 21 _{Bayt'ta (blabb sayesinde bazı baytlar kaydedildi ) aşağıdakileri yapın} . İlginç bir şekilde, giriş dizgisi tırnak işaretleri veya bağımsız değişkenler olarak ayrılırsa, bu şekilde tekli operatörün kullanılması da varsayılan olarak boşluklara göre yapılır. Bonus.-split

-split$args|select -u

Julia, 29 bayt

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

Bu, dizeyi boşluklardaki bir vektöre ayıran, yalnızca benzersiz öğeleri (koruma sırası) tutan ve diziyi boşluklu bir dizeye ekleyen adsız bir işlev oluşturur.

R, 22 bayt

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

Bu, STDIN'den bir dize okur ve bunu kullanarak boşluklardaki bir vektöre böler scan(,""), yalnızca benzersiz öğeleri seçer, sonra bunları bir dizeye birleştirir ve kullanarak STDOUT'a yazdırır cat.

Retina , 22 bayt

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

Dosyayı sondaki satır beslemesi ile kaydedin ve -sbayrakla çalıştırın .

Bu, tek bir sözcükle eşleşmesi açısından oldukça basittir ve lookbehind, aynı sözcüğün daha önce dizede görünüp görünmediğini kontrol eder. Sondaki satır besleme, Retina'nın boş bir değiştirme dizesiyle Değiştirme modunda çalışmasına neden olarak tüm eşleşmeleri kaldırır.

Mathematica, 43 39 bayt

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 bayt

İşte bu yüzden hepimiz Pyth5'i bekliyoruz, 5 bayt olabilirdi.

jdoxzN{cz

Burada çevrimiçi deneyin .

C ++ 11,292 bayt

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

Golf dillerine kıyasla çok fazla C ++ yanıtı görmüyorum, neden olmasın. Bunun C ++ 11 özelliklerini kullandığını ve bu nedenle derleyiciniz yeterince eski yaşlarda yeterince sıkışmışsa , C ++ 11 standardını kullanması için özel bir derleme anahtarını geçmeniz gerekebilir. İçin g++, bu oluyor -std=c++11(sadece sürüm <5.2 için gerekli). Çevrimiçi deneyin

K5, 9 bayt

" "/?" "\

Bilginize, bu bir işlev.

açıklama

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

Matlab: 18 Bayt

unique(d,'stable')

nerede dolduğunu d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Sonuç 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Yeesh, bu uzun. Ne yazık ki, Python's setelementlerin sırasını tutmaz, bu yüzden işi kendimiz yapmak zorundayız. Henüz girilmemiş löğelerin bir listesini tutarak giriş sözcüklerini yineliyoruz l. Ardından, lboşlukla ayrılmış içerikleri yazdırıyoruz .

lBazı kelimelerin diğer kelimelerin alt dizeleri olması durumunda dizesinin sürümü çalışmaz.

C #, 38 bayt

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

Perl 6, 14 bayt

Bütün bir program olarak yazmanın tek yolu 21 bayt uzunluğundadır.

say $*IN.words.unique # 21 bytes

Lambda ifadesi olarak en kısa olanı 14 bayttır

*.words.unique # 14 bytes

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

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

Çıktı bir Liste olsa da, onu bir dizgi bağlama bağlamına koyarsanız, öğeler arasında boşluk bırakacaktır. Bir dize döndürmek için bir gereksinim olsaydı, sadece ~önüne bir ekleyebilirsiniz ~*.words.unique.

Parçacıklara izin verildiyse, simgesini kaldırarak 13 bayta kısaltabilirsiniz *.

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

say .words.unique

Python 3, 87 80 bayt

tam program sürümü daha kısa çıkıyor

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

Regex olmadan yaptım, mutluyum

Çevrimiçi deneyin

Lua, 94 bayt

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

Çıktı:

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

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

// JS için çok uzun :(

Hassium , 91 bayt

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

Çevrimiçi çalışın ve burada genişletin

PHP 64 59 bayt

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

AppleScript, 162 bayt

İlginçtir ki, bu tekrar etmeyen karakterlerle neredeyse aynıdır.

x değerini ("" varsayılan yanıt "" iletişim kutusunu görüntüle) döndürülen metni döndürür
o değerini "" olarak ayarla
x içinde i ile tekrar et
dava dikkate alınarak
eğer ben o'da değilse o'yu o & i & "" olarak ayarlayın
son
son
Ö

Aslında bundan önce düşünülen anahtar kelimeyi bilmiyordum. Daha fazla bilirsen...

Burlesque, 6 bayt

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

Oldukça basit: bölünmüş kelimeler, nub (nub = yinelenenleri kaldır), kelimelere geri dönüş.

Gema, 21 karakter

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

( Eşsiz karakter çözümüne çok benzer , çünkü Gema'da diziler yoktur, bu nedenle yerleşik benzersiz işlevlere izin vermek bize çok yardımcı olmaz.)

Örnek çalışma:

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 bayt

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

EDIT : kullanarak toSetsipariş korumak olmayabilir, bu yüzden şimdi sadece 3 bayt maliyeti bu farklı // kullanıyorum :(

PHP, 37 Bayt

Varsayım $s, giriş dizesidir.

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