ลบคำที่ซ้ำทั้งหมดออกจากประโยคที่ป้อน

การป้อนข้อมูลจะเป็นสิ่งที่ชอบและผลผลิตที่ควรจะเป็น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/แยกในช่องว่าง, _&ทำซ้ำและใช้ setwise AND (ดังนั้นกำจัดการทำซ้ำ) และS*เชื่อมใหม่ในอวกาศ

ลิงค์ล่ามออนไลน์

Haskell, 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

ลองออนไลน์

บันทึก 2 ไบต์ด้วยเดนนิส!

ทับทิม 21 ตัวอักษร

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

JavaScript (ES6) 33

(ดูคำตอบนี้ )

ทดสอบการเรียกใช้ข้อมูลโค้ดด้านล่างในเบราว์เซอร์ที่สอดคล้องกับ EcmaScript 6 (การใช้ฟังก์ชัน Set, spread operator, สตริงเทมเพลตและฟังก์ชั่นลูกศร - ฉันใช้ Firefox)

หมายเหตุ: การแปลงเป็นชุดปล่อยรายการที่ซ้ำกันทั้งหมดและตั้งค่าจะต้องเรียงลำดับเดิม

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

ถ้าเป็นแบบนี้เกินไป "cheaty" ในสมมติการป้อนข้อมูลที่สามารถเป็นอาร์กิวเมนต์บรรทัดคำสั่งแล้วไปต่อไปนี้ที่24 21 ไบต์ _{(บันทึกบางไบต์ขอบคุณที่blabb} ) ที่น่าสนใจการใช้ตัวดำเนินการเอกในทิศทางนี้จะเกิดขึ้นหากสตริงอินพุตถูกกำหนดเขตด้วยอัญประกาศหรือเป็นอาร์กิวเมนต์แต่ละตัวเนื่องจากค่าดีฟอลต์-splitคือช่องว่าง โบนัส.

-split$args|select -u

Julia, 29 ไบต์

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

สิ่งนี้จะสร้างฟังก์ชั่นที่ไม่มีชื่อที่แยกสตริงเป็นเวกเตอร์บนช่องว่างเก็บเฉพาะองค์ประกอบที่ไม่ซ้ำกัน (รักษาลำดับ) และรวมอาร์เรย์กลับเข้าไปในสตริงที่มีช่องว่าง

R, 22 ไบต์

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

นี้อ่านสตริงจาก STDIN และแยกมันเป็นเวกเตอร์ในช่องว่างใช้scan(,""), เลือกองค์ประกอบที่ไม่ซ้ำเดียวแล้วเชื่อมให้เป็นสตริงและพิมพ์มัน STDOUT catใช้

เรติน่า 22 ไบต์

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

บันทึกไฟล์ด้วยการป้อนบรรทัดต่อท้ายและรันด้วย-sแฟล็ก

ตรงนี้ค่อนข้างตรงไปตรงมาว่ามันตรงกับคำเดียวและ lookbehind ตรวจสอบว่าคำเดียวกันปรากฏในสตริงก่อน การป้อนบรรทัดต่อท้ายทำให้ Retina ทำงานในโหมดแทนที่ด้วยสตริงการแทนที่ว่างซึ่งจะเป็นการลบการแข่งขันทั้งหมด

Mathematica, 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 ไบต์

" "/?" "\

FYI นี่คือฟังก์ชั่น

คำอธิบาย

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

Matlab: 18 ไบต์

unique(d,'stable')

ที่เป็นdd = {'cat','dog','cat','dog','bird','dog','Snake','snake','Snake'}

ผลที่ได้คือ 'cat' 'dog' 'bird' 'Snake' 'snake'

Python 3, 55

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

ใช่นี่มันนานแล้ว น่าเสียดายที่ Python setไม่ได้เรียงลำดับองค์ประกอบดังนั้นเราจึงต้องทำงานด้วยตัวเอง เราวนซ้ำตามคำที่ป้อนโดยเก็บรายการlองค์ประกอบที่ยังไม่lปรากฏ จากนั้นเราพิมพ์เนื้อหาของการlเว้นวรรค

รุ่นสตริงของlจะไม่ทำงานหากคำบางคำเป็นสตริงย่อยของคำอื่น ๆ

C #, 38 ไบต์

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

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

ในขณะที่เอาท์พุทเป็นรายการถ้าคุณใส่ไว้ในบริบทการทำให้เป็นสตริงมันจะวางช่องว่างระหว่างองค์ประกอบ ถ้ามันเป็นความต้องการที่จะกลับสตริงคุณก็สามารถเพิ่มไปด้านหน้า~~*.words.unique

ถ้าตัวอย่างได้รับอนุญาตให้คุณสามารถย่อให้เหลือ 13 *ไบต์โดยการเอา

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

say .words.unique

Python 3, 87 80 ไบต์

ปรากฎว่าเวอร์ชั่นโปรแกรมเต็มจะสั้นลง

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

ทำได้โดยไม่ต้อง regex ฉันมีความสุข

ลองออนไลน์

Lua, 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 $ 
$ 

JavaScript, 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 :(

ฮัสเซียม , 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 เป็น ""
ทำซ้ำกับ i ใน x
พิจารณากรณี
หากไม่ใช่ฉันอยู่ใน o ให้ตั้งค่าเป็น & & & ""
ปลาย
ปลาย
โอ

ฉันไม่ทราบคำสำคัญที่พิจารณามาก่อนหน้านี้ ยิ่งคุณรู้ ...

ล้อเลียน 6 ไบต์

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

ค่อนข้างง่าย: แบ่งคำ, nub (nub = ลบคำซ้ำ), แปลงกลับเป็นคำ

Gema, 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)));