입력 된 문장에서 반복되는 단어를 모두 제거하십시오.

입력은 비슷할 cat dog cat dog bird dog Snake snake Snake것이고 출력은이어야합니다 cat dog bird Snake snake. 단어를 구분하는 단일 공백이 항상 있습니다.

출력 순서는 입력과 동일해야합니다. (예 참조)

구두점을 처리 할 필요는 없지만 대문자 처리가 필요합니다.

gs2 , 3 바이트

,É-

CP437로 인코딩되었습니다 .

STDIN은 프로그램 시작시 푸시됩니다. ,그것을 공간으로 나눕니다. É이다 uniq중복을 필터링한다. -공백으로 조인합니다.

CJam, 7 자

qS/_&S*

아마도 훨씬 짧을 수도 있지만 ... CJam을 거의 사용하지 않은 모든 것. ^. ^

q입력을 읽고, S/공백으로 분할하고, _&복제하고 세트 AND를 적용 (따라서 중복을 제거함) S*한 다음 공간에 다시 참여합니다.

온라인 통역사 링크

하스켈, 34 바이트

import Data.List
unwords.nub.words

사용 예 : (unwords.nub.words) "cat dog cat dog bird dog Snake snake Snake"-> "cat dog bird Snake snake".

APL, 22 20 바이트

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

이것은 이름없는 monadic 함수를 생성하여 오른쪽의 문자열을 받아들이고 문자열을 반환합니다.

설명:

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

온라인으로 사용해보십시오

Dennis 덕분에 2 바이트를 절약했습니다!

루비, 21 자

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

자바 스크립트 (ES6) 33

( 이 답변 참조 )

EcmaScript 6 호환 브라우저에서 아래 스 니펫 실행 테스트 (Set, spread operator, 템플릿 문자열 및 화살표 기능 구현-Firefox를 사용함).

참고 : Set으로 변환하면 모든 중복이 삭제 되고 Set은 원래 순서를 유지합니다.

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 바이트

TeaScript는 골프를위한 JavaScript입니다.

xs` `u()j` `

꽤 짧습니다. 각 공간에서 분할되고 중복을 필터링 한 다음 다시 참여합니다.

온라인으로 사용해보십시오

PowerShell, 15 바이트

$args|select -u

우와, PowerShell이 ​​다소 경쟁적인 실제 항목? 그건 불가능 해!

문자열을 입력 인수로 Select-Object사용하고 -Unique플래그 와 함께 파이프합니다 . 요청에 따라 순서와 대문자를 유지하면서 문자열 배열을 뱉어냅니다.

용법:

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

입력이 명령 행 인수로 가정 할 수 있다고 가정 할 때 이것이 너무 "치명적"인 경우 24 21 바이트 _{( blabb 덕분에 일부 바이트 절약)} 에서 다음 _{을 수행 하십시오} . 흥미롭게도, 이 방향으로 단항 연산자를 사용하면 입력 문자열이 따옴표로 구분 되거나 개별 인수로 작동하는 경우에도 작동 -split합니다. 기본값 은 공백입니다. 보너스.

-split$args|select -u

줄리아, 29 바이트

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

이렇게하면 이름없는 함수가 만들어져 문자열을 공백의 벡터로 나누고 고유 한 요소 만 유지하고 (순서를 유지) 배열을 공백이있는 문자열로 다시 결합합니다.

R, 22 바이트

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

STDIN에서 문자열을 읽고를 사용하여 공백의 벡터로 분할하고 scan(,"")고유 한 요소 만 선택한 다음 문자열로 연결 한 후를 사용하여 STDOUT에 인쇄합니다 cat.

망막 , 22 바이트

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

후행 줄 바꿈으로 파일을 저장하고 -s플래그 와 함께 실행하십시오 .

이것은 한 단어와 일치한다는 점에서 상당히 직설적이며, lookbehind는 동일한 단어가 이전에 문자열에 나타 났는지 확인합니다. 후행 줄 바꿈으로 인해 Retina는 교체 문자열에서 빈 대체 문자열을 사용하여 모든 일치 항목을 제거합니다.

매스 매 티카, 43 39 바이트

StringRiffle@*Keys@*Counts@*StringSplit

Pyth-9 바이트

우리가 Pyth5를 기다리는 이유는 5 바이트 일 수 있습니다.

jdoxzN{cz

여기에서 온라인으로 사용해보십시오 .

C ++ 11, 291 바이트

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

골프 언어에 비해 많은 C ++ 답변이 보이지 않으므로 왜 그렇지 않습니까? 이것은 C ++ 11 기능을 사용하므로 컴파일러가 충분히 오래된 연령대에 갇혀 있으면 C ++ 11 표준을 사용하도록 특수 컴파일 스위치를 전달해야 할 수도 있습니다. 를 들어 g++, 그것은 것 -std=c++11(전용 버전 <5.2 필요). 온라인으로 사용해보십시오

K5, 9 바이트

" "/?" "\

참고로, 이것은 기능입니다.

설명

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

MATLAB : 18 바이트

unique(d,'stable')

곳 d이다 d = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}.

결과는 'cat' 'dog' 'bird' 'Snake' 'snake'

파이썬 3, 55

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

Yeesh, 이것은 길다. 불행히도 파이썬 set은 요소의 순서를 유지하지 않으므로 직접 작업해야합니다. l아직 입력 되지 않은 요소 목록 을 유지하면서 입력 단어를 반복합니다 l. 그런 다음 l공백으로 구분 된 내용을 인쇄합니다 .

l일부 단어가 다른 단어의 하위 문자열이면 문자열 버전이 작동하지 않습니다.

C #, 38 바이트

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

펄 6, 14 바이트

전체 프로그램으로 작성하는 유일한 방법은 21 바이트입니다.

say $*IN.words.unique # 21 bytes

람다 식으로 가장 짧은 것은 14 바이트입니다.

*.words.unique # 14 bytes

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

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

출력이 List 인 반면, 문자열 화 컨텍스트에 넣으면 요소 사이에 공백이 생깁니다. 문자열을 반환해야하는 ~경우 앞에 a 를 추가 할 수 있습니다 ~*.words.unique.

스 니펫이 허용 된 경우을 제거하여 스 니펫을 13 바이트로 줄일 수 있습니다 *.

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

say .words.unique

파이썬 3, 87 80 바이트

전체 프로그램 버전이 더 짧습니다

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

정규 표현식없이 그것을 했습니까, 나는 행복합니다

온라인으로 사용해보십시오

루아, 94 바이트

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

산출:

$ printf "cat dog cat dog bird dog Snake snake Snake" | awk 'BEGIN{RS=ORS=" "}!c[$0]++'
cat dog bird Snake snake $ 
$ 

자바 스크립트, 106 (102) 100 바이트

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

// JS가 너무 길다 :(

Hassium , 91 바이트

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

온라인으로 실행하고 여기에서 확장 된 것을 보십시오

PHP 64 59 바이트

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

AppleScript, 162 바이트

흥미롭게도 이것은 반복되지 않는 문자와 거의 동일합니다.

x를 (디스플레이 대화 상자 ""기본 답변 "")의 텍스트 반환 단어로 설정
o를 ""로 설정
x에서 i로 반복
사건을 고려
내가 o에 있지 않으면 o를 o & i & ""로 설정하십시오.
종료
종료
영형

실제로이 전에 고려 키워드를 몰랐습니다. 더 많이 알수록 ...

해 학적 인, 6 바이트

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

오히려 간단한 단어 분리, nub (nub = 중복 제거), 단어로 다시 변환합니다.

21 자

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

( Gema에는 배열이 없으므로 고유 한 문자 솔루션 과 매우 유사 하므로 내장 고유 함수를 허용해도 큰 도움이되지 않습니다.)

샘플 실행 :

bash-4.3$ gema '*\S=${$0;$0}@set{$0;}' <<< 'cat dog cat dog bird dog Snake snake Snake'
cat dog bird Snake snake 

스칼라, 44 47 바이트

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

편집 :를 사용하면 toSet순서가 유지되지 않을 수 있으므로 이제는 3 바이트의 비용이 드는 고유 한 //를 사용하고 있습니다.

PHP, 37 바이트

$s입력 문자열 이라고 가정 합니다.

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