Hapus semua kata berulang dari kalimat yang dimasukkan.

Input akan berupa sesuatu cat dog cat dog bird dog Snake snake Snakedan output harus cat dog bird Snake snake. Akan selalu ada satu ruang yang memisahkan kata-kata.

Urutan output harus sama dengan input. (Lihat contoh)

Anda tidak perlu menangani tanda baca tetapi penanganan huruf kapital diperlukan.

gs2 , 3 byte

,É-

Dikodekan dalam CP437 .

STDIN didorong pada awal program. ,membaginya di atas spasi. Éadalah uniq, yang memfilter duplikat. -bergabung dengan spasi.

CJam, 7 karakter

qS/_&S*

Mungkin bisa jauh lebih pendek ... tapi apa pun yang saya hampir tidak pernah menggunakan CJam. ^. ^

qmembaca input, S/membagi pada spasi, _&duplikat dan menerapkan setwise AND (karena itu menghilangkan duplikat), dan S*bergabung kembali pada spasi.

Tautan penerjemah online

Haskell, 34 byte

import Data.List
unwords.nub.words

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

APL, 22 20 byte

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

Ini menciptakan fungsi monadik tanpa nama yang menerima string di sebelah kanan dan mengembalikan string.

Penjelasan:

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

Cobalah online

Disimpan 2 byte berkat Dennis!

Ruby, 21 karakter

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

JavaScript (ES6) 33

(lihat jawaban ini )

Tes menjalankan cuplikan di bawah ini di peramban yang mendukung EcmaScript 6 (mengimplementasikan Set, spread operator, string templat dan fungsi panah - saya menggunakan Firefox).

Catatan: konversi ke Tetapkan jatuhkan semua duplikat dan Tetapkan mempertahankan urutan asli.

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 adalah JavaScript untuk bermain golf.

xs` `u()j` `

Ini sangat singkat. Itu terbagi pada setiap ruang, menyaring duplikat, lalu bergabung kembali.

Cobalah online

PowerShell, 15 Bytes

$args|select -u

Whoa, entri aktual di mana PowerShell agak kompetitif? Itu tidak mungkin!

Mengambil string sebagai argumen input, pipa ke Select-Objectdengan -Uniquebendera. Meludahkan serangkaian string, menjaga ketertiban, dan penggunaan huruf besar seperti yang diminta.

Pemakaian:

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

Jika ini terlalu "cheaty" dalam asumsi input dapat sebagai argumen baris perintah, kemudian pergi untuk yang berikut ini, di 24 21 Bytes _{(disimpan beberapa byte berkat blabb )} . Menariknya, menggunakan operator unary dalam arah ini juga berfungsi jika string input dibatasi dengan tanda kutip atau sebagai argumen individual, karena defaultnya -splitadalah spasi. Bonus.

-split$args|select -u

Julia, 29 byte

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

Ini menciptakan fungsi tanpa nama yang memisahkan string menjadi vektor pada spasi, hanya menyimpan elemen unik (mempertahankan urutan), dan menggabungkan array kembali ke string dengan spasi.

R, 22 byte

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

Ini membaca string dari STDIN dan membaginya menjadi vektor pada spasi menggunakan scan(,""), hanya memilih elemen unik, kemudian menggabungkannya menjadi string dan mencetaknya ke STDOUT menggunakan cat.

Retina , 22 byte

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

Simpan file dengan trafeed linefeed dan jalankan dengan -sflag.

Ini cukup lurus ke depan karena cocok dengan satu kata, dan lihat di belakang memeriksa apakah kata yang sama telah muncul dalam string sebelumnya. Linefeed trailing menyebabkan Retina bekerja dalam mode Ganti dengan string pengganti kosong, menghapus semua kecocokan.

Mathematica, 43 39 byte

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 byte

Nah inilah mengapa kita semua menunggu Pyth5, bisa jadi 5 byte.

jdoxzN{cz

Cobalah online di sini .

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

Saya tidak melihat banyak jawaban C ++ dibandingkan dengan bahasa golf, jadi mengapa tidak. Perhatikan bahwa ini menggunakan fitur C ++ 11, dan jika kompiler Anda terjebak dalam zaman yang cukup tua, Anda mungkin perlu melewati sakelar kompilasi khusus untuk membuatnya menggunakan standar C ++ 11. Sebab g++, itu -std=c++11(hanya diperlukan untuk versi <5.2). Cobalah online

K5, 9 byte

" "/?" "\

FYI, ini adalah fungsi.

Penjelasan

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

Matlab: 18 Bytes

unique(d,'stable')

di mana dadalah d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

Hasilnya adalah 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Ya, ini panjang. Sayangnya, Python settidak mematuhi urutan unsur-unsurnya, jadi kita harus mengerjakannya sendiri. Kami beralih melalui kata-kata input, menyimpan daftar lelemen yang belum masuk l. Kemudian, kami mencetak isi yang ldipisahkan ruang.

Versi string ltidak akan berfungsi jika beberapa kata adalah substring dari kata lain.

C #, 38 byte

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

Perl 6, 14 byte

Secara keseluruhan, satu-satunya cara Anda menulisnya adalah 21 byte

say $*IN.words.unique # 21 bytes

Sebagai ungkapan lambda, yang terpendek adalah 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;

Sementara output adalah Daftar, jika Anda memasukkannya ke dalam konteks pengerasan, ia akan menempatkan spasi di antara elemen-elemen. Jika itu persyaratan untuk mengembalikan string, Anda bisa menambahkan a ~ke depan ~*.words.unique.

Jika cuplikan diizinkan, Anda dapat mempersingkatnya menjadi 13 byte dengan menghapus *.

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

say .words.unique

Python 3, 87 80 byte

ternyata versi program lengkap lebih pendek

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

Melakukannya tanpa regex, saya senang

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

Keluaran:

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

// terlalu lama untuk JS :(

Hassium , 91 byte

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

Jalankan online dan lihat diperluas di sini

PHP 64 59 byte

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

AppleScript, 162 byte

Menariknya, ini hampir identik dengan karakter karakter yang tidak berulang.

atur x ke (tampilkan dialog "" jawaban default "") kata-kata yang dikembalikan
setel ke ""
ulangi dengan i in x
mempertimbangkan kasus
jika tidak i ada di o maka atur o ke o & i & ""
akhir
akhir
Hai

Saya sebenarnya tidak tahu kata kunci yang mempertimbangkan sebelum ini. semakin banyak Anda tahu ...

Burlesque, 6 byte

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

Agak sederhana: pisahkan kata-kata, nub (nub = hapus duplikat), konversikan kembali ke kata-kata.

Gema, 21 karakter

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

(Sangat mirip dengan solusi karakter unik , karena tidak ada array di Gema, sehingga memungkinkan fungsi unik bawaan tidak banyak membantu kita.)

Contoh dijalankan:

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 : menggunakan toSetmungkin tidak mempertahankan pesanan, jadi saya sekarang menggunakan berbeda // yang hanya menghabiskan 3 byte :(

PHP, 37 Bytes

Dengan asumsi $sadalah string input.

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