Loại bỏ tất cả các từ lặp lại từ một câu nhập.

Đầu vào sẽ là một cái gì đó như cat dog cat dog bird dog Snake snake Snakevà đầu ra nên được cat dog bird Snake snake. Sẽ luôn có một không gian ngăn cách các từ.

Thứ tự đầu ra phải giống như đầu vào. (Tham khảo ví dụ)

Bạn không cần xử lý dấu câu nhưng xử lý chữ in hoa là bắt buộc.

gs2 , 3 byte

,É-

Được mã hóa trong CP437 .

STDIN được đẩy khi bắt đầu chương trình. ,chia nó trên không gian. Élà uniq, bộ lọc trùng lặp. -tham gia bởi không gian.

CJam, 7 ký tự

qS/_&S*

Có thể ngắn hơn nhiều ... nhưng bất cứ điều gì tôi gần như chưa bao giờ sử dụng CJam. ^. ^

qđọc đầu vào, S/phân tách trên các khoảng trắng, _&sao chép và áp dụng một setwise AND (do đó loại bỏ các bản sao) và S*nối lại trên không gian.

Liên kết phiên dịch trực tuyến

Haskell, 34 byte

import Data.List
unwords.nub.words

Ví dụ sử dụng: (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 byte

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

Điều này tạo ra một hàm đơn âm không tên, chấp nhận một chuỗi bên phải và trả về một chuỗi.

Giải trình:

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

Dùng thử trực tuyến

Đã lưu 2 byte nhờ Dennis!

Ruby, 21 ký tự

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

JavaScript (ES6) 33

(xem câu trả lời này )

Kiểm tra chạy đoạn mã dưới đây trong trình duyệt tuân thủ EcmaScript 6 (triển khai Set, toán tử trải rộng, chuỗi mẫu và các hàm mũi tên - Tôi sử dụng Firefox).

Lưu ý: chuyển đổi thành Đặt thả tất cả các bản sao và Đặt duy trì thứ tự ban đầu.

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 là JavaScript để chơi gôn.

xs` `u()j` `

Điều này là khá ngắn. Nó phân tách trên mỗi không gian, lọc ra các bản sao, sau đó nối lại.

Dùng thử trực tuyến

PowerShell, 15 byte

$args|select -u

Whoa, một mục thực tế nơi PowerShell có phần cạnh tranh? Điều đó là không thể!

Lấy chuỗi làm đối số đầu vào, đường ống đến Select-Objectvới -Uniquecờ. Nhổ ra một chuỗi các chuỗi, giữ trật tự và viết hoa theo yêu cầu.

Sử dụng:

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

Nếu điều này quá "gian lận" khi giả sử đầu vào có thể là đối số dòng lệnh, thì hãy thực hiện theo cách sau, ở mức 24 21 Byte _{(đã lưu một số byte nhờ blabb )} . Thật thú vị, việc sử dụng toán tử đơn nguyên theo hướng này cũng xảy ra nếu chuỗi đầu vào được phân định bằng dấu ngoặc kép hoặc dưới dạng đối số riêng lẻ, vì mặc định -splitlà bởi khoảng trắng. Tặng kem.

-split$args|select -u

Julia, 29 byte

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

Điều này tạo ra một hàm không tên, tách chuỗi thành một vectơ trên các khoảng trắng, chỉ giữ lại các phần tử duy nhất (giữ trật tự) và nối lại mảng thành một chuỗi có khoảng trắng.

R, 22 byte

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

Điều này đọc một chuỗi từ STDIN và chia nó thành một vectơ trên các khoảng trắng bằng cách sử dụng scan(,""), chỉ chọn các phần tử duy nhất, sau đó ghép chúng thành một chuỗi và in nó thành STDOUT bằng cách sử dụng cat.

Võng mạc , 22 byte

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

Lưu tệp với một linefeed trailing và chạy nó với -scờ.

Điều này khá đơn giản ở chỗ nó khớp với một từ duy nhất và giao diện kiểm tra xem liệu từ đó có xuất hiện trong chuỗi trước đó hay không. Nguồn cấp dữ liệu theo dõi khiến Retina hoạt động ở chế độ Thay thế bằng chuỗi thay thế trống, loại bỏ tất cả các kết quả khớp.

Toán học, 43 39 byte

StringRiffle@*Keys@*Counts@*StringSplit

Pyth - 9 byte

Chà, đây là lý do tại sao tất cả chúng ta đang chờ Pyth5, có thể là 5 byte.

jdoxzN{cz

Hãy thử trực tuyến tại đây .

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

Tôi không thấy rất nhiều câu trả lời C ++ so với ngôn ngữ chơi gôn, vậy tại sao không. Lưu ý rằng điều này sử dụng các tính năng của C ++ 11, và vì vậy nếu trình biên dịch của bạn bị kẹt trong thời kỳ tối đủ đủ tuổi, bạn có thể cần phải chuyển một công cụ biên dịch đặc biệt để làm cho nó sử dụng tiêu chuẩn C ++ 11. Đối với g++, nó -std=c++11(chỉ cần cho các phiên bản <5.2). Dùng thử trực tuyến

K5, 9 bytes

" "/?" "\

FYI, this is a function.

Explanation

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

Matlab: 18 Bytes

unique(d,'stable')

where d is d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

The result is 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

Yeesh, this is long. Unfortunately, Python's set doesn't keep the order of the elements, so we have to do the work ourselves. We iterate through the input words, keeping a list l of elements that aren't yet in l. Then, we print the contents of l space-separated.

A string version of l would not work if some words are substrings of other words.

C#, 38 bytes

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

Perl 6, 14 bytes

As a whole program the only way you would write it is 21 bytes long

say $*IN.words.unique # 21 bytes

As a lambda expression the shortest is 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;

While the output is a List, if you put it in a stringifying context it will put a space between the elements. If it was a requirement to return a string you could just add a ~ to the front ~*.words.unique.

If snippets were allowed, you could shorten it to 13 bytes by removing the *.

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

say .words.unique

Python 3, 87 80 bytes

turns out the full program version is shorter

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

Did it without regex, I am happy

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

Output:

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

// way too long for JS :(

Hassium, 91 bytes

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

Run online and see expanded here

PHP 64 59 bytes

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

AppleScript, 162 bytes

Interestingly, this is almost identical to the non-repeating characters thing.

set x to(display dialog""default answer"")'s text returned's words
set o to""
repeat with i in x
considering case
if not i is in o then set o to o&i&" "
end
end
o

I didn't actually know the considering keyword before this. the more you know...

Burlesque, 6 bytes

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

Rather simple: split words, nub (nub = remove duplicates), convert back to words.

Gema, 21 characters

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

(Very similar to the unique character solution, as there are no arrays in Gema, so allowing built-in unique functions not helps us much.)

Sample run:

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: using toSet might not preserve order, so I'm now using distinct // that just cost me 3 bytes :(

PHP, 37 Bytes

Assuming $s is the input string.

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