Intro

ความท้าทายคือการสร้างโปรแกรม / ฟังก์ชั่นที่พิมพ์จุดตัดของซอร์สโค้ดของตัวเองและอินพุตสตริงที่กำหนด นี่คือรหัสกอล์ฟและแม่นยำยิ่งขึ้น:

• อนุญาตIเป็นชุดอินพุต
  • {"a","b","c"}
• อนุญาตSเป็นชุดซอร์สโค้ด
  • {"b","f"}
• จากนั้นทางแยกก็เป็นสิ่งที่พวกเขาแบ่งปัน
  • I ∩ S = {"b"}

อินพุต

อินพุตมีความยืดหยุ่น มันควรจะสามารถจัดการการเข้ารหัสอักขระที่ใช้สำหรับซอร์สโค้ด

เอาท์พุต

ผลผลิตมีความยืดหยุ่น ควรเป็นชุดของอักขระที่อินพุตและซอร์สโค้ดแชร์ นอกจากนี้เซตยังเป็นชุดของวัตถุที่ไม่ได้เรียงลำดับ สรุป:

• ผลผลิตมีความยืดหยุ่น:
  • อาจเป็นโครงสร้างข้อมูลใด ๆ (สตริงหรืออื่น ๆ )
  • ไม่สามารถจัดลำดับ
  • อาจมีส่วนท้าย \n
  • ควรมีความชัดเจน

การ จำกัด

คล้ายกับควินท้าทายโปรแกรม / ฟังก์ชั่นอาจไม่ได้อ่านรหัสแหล่งที่มาและ 0 ไบต์การแก้ปัญหาของตัวเองไม่ได้รับอนุญาต

ตัวอย่าง

• # 1

functor x(I){ return I ∩ self; }

Inputs                                Outputs
------                                -------
enter preformatted text here      ->  {"e","n","t","r","f","o","x"}

["Albrt"," Einstin"]              ->  {"l","r","t","n","s"}

• # 2

(_)->_&"(_)->&\"\\"

Inputs                                Outputs
------                                -------
"Security at the expense of       ->  "
usability comes at the expense 
of security."

(0____0)                          ->  (_)

• # 3

ಠa益длф


Inputs                                Outputs
------                                -------
Far out in the uncharted backwaters ->"a"    
of the unfashionable end of the 
Western Spiral arm of the Galaxy lies 
a small unregarded yellow sun. 
Orbiting this at a distance of roughly 
ninety-eight million miles is an 
utterly insignificant little blue-green 
planet whose ape-descended life forms 
are so amazingly primitive that they 
still think digital watches are a pretty 
neat idea.

(ノಠ益ಠ)ノ彡┻━┻                      ->"ಠ益"

กรณีทดสอบ

Albert Einstein

\__( O__O)_/

!@#$%^&*()_+{}|:"<>?

1234567890-=[]\;',./

(ノಠ益ಠ)ノ彡┻━┻

“¤>%,oỊȤʠ“ØụĊ5D³ṃṠɼQ»j;Ç;“;}¶”

┬──┬ ノ( ゜-゜ノ)

Far out in the uncharted backwaters of the unfashionable end of the Western Spiral arm of the Galaxy lies a small unregarded yellow sun. Orbiting this at a distance of roughly ninety-eight million miles is an utterly insignificant little blue-green planet whose ape-descended life forms are so amazingly primitive that they still think digital watches are a pretty neat idea.

ปรับปรุง

• [16-08-10]: เซตเป็นกลุ่มของวัตถุที่แตกต่างกัน
• [16-08-10]: ขึ้นบรรทัดใหม่เป็นที่ยอมรับ

เยลลี่ , 10 6 ไบต์

“Ṿf”Ṿf

ลองออนไลน์!

มันทำงานอย่างไร

“Ṿf”Ṿf  Main link. Argument: s (string)

“Ṿf”    Set the return value to 'Ṿf'.
    Ṿ   Uneval; yield '“Ṿf”'.
     f  Filter; remove the characters from '“Ṿf”' that do not appear in s.

Python 3, 44 ไบต์

ขอบคุณ Karl สำหรับการช่วยฉันหนึ่งไบต์ :-) ขอบคุณ Dada ที่ช่วยฉันสองไบต์!

ฉันคิดว่ามันใช้งานได้ แต่มันเป็นความท้าทายครั้งแรกของฉันดังนั้นฉันจึงไม่แน่ใจ 100% : \

print(set("printseu()&'"+'+"')&set(input()))

รุ่นแลมบ์ดาที่มี 43 ไบต์: lambda a:set(" lambdaset()&'"+':+"')&set(a)

Dyalog APL ขนาด 8 ไบต์

'∩''⊢'∩⊢

∩ส่งกลับอักขระเหล่านั้นจากอาร์กิวเมนต์ซ้ายที่มีอยู่ในอาร์กิวเมนต์ขวา (หากอาร์กิวเมนต์ซ้ายไม่มีการซ้ำซ้อน - ในกรณีนี้ - ดังนั้นผลลัพธ์จะไม่มีการซ้ำซ้อน

⊢ เป็นอาร์กิวเมนต์

จากนั้นสตริงจะมีสองตัวนั้นบวกกับเครื่องหมายคำพูด (เพิ่มเป็นสองเท่าเนื่องจากอยู่ในสตริง)

ลองใช้ออนไลน์!

GolfScript ขนาด 6 ไบต์

"`&"`&

ลองออนไลน์!

มันทำงานอย่างไร

        # (implicit) Push the input on the stack.
"`&"    # Push the string '`&' on the stack.
   `    # Inspect; turn the string into '"`&"'.
     &  # Perform set intersection.

Python 2, 56 46 39 ไบต์

-1 ไบต์ขอบคุณ @Jeremy

lambda a:set(':&()smelt\ bad\'')&set(a)

ฟังก์ชั่นแลมบ์ดานิรนามใช้สตริงส่งคืนชุด

เวอร์ชั่นเก่า:

lambda x,w=set('newmatrixbuspdl_:-)(=,\ \''):w-(w-set(x))

Perl 6 , 56, 55 ไบต์

" French " / รุ่น Unicode (55 ไบต์)

say perl q.say perlq∩$*IN\\\.comb:..comb∩$*IN.comb:

" Texas " / ASCII เวอร์ชัน (56 ไบต์)

say (q.sayq(&) $*IN\\\.combperl..comb (&)$*IN.comb).perl

say perl q.sayq(&) $*IN\\\.comb:perl..comb (&)$*IN.comb:

Non-แข็งแรงเล่นกอล์ฟ:

my \Source = 'my \\Source = \'say ( $*IN.comb.Set ∩ Source.comb.Set ).perl\'';
say ( $*IN.comb.Set ∩ Source.comb.Set ).perl

ตัวอย่าง:

$ echo -n 'say perl q.say perlq∩$*IN\\\.comb:..comb∩$*IN.comb:' > test-unicode.p6

$ echo -n 'say (q.sayq(&) $*IN\\\.combperl..comb (&)$*IN.comb).perl' > test-ascii.p6

$ perl6 test-ascii.p6 <<< 'abcdefghijklmnopqrstuvwxyz'
set("p","a","l","r","c","q","b","s","e","m","y","o")

$ perl6 test-unicode.p6 < test-unicode.p6
set("\\","I","p"," ","a","c","l","r","q","b","∩","*","s","m","e",".","y",":","o","N","\$")

$ perl6 test-ascii.p6 < test-ascii.p6
set("p","\\","I"," ","a","l","r","c","q","b",")","*","s","e","m","\&",".","(","y","o","N","\$")

$ perl6 test-ascii.p6 < test-unicode.p6
set("p","\\","I"," ","a","l","r","c","q","b","*","s","e","m",".","y","o","N","\$")

$ perl6 test-unicode.p6 <<< 'Albert Einstein'
set(" ","l","r","b","s","e")

$ perl6 test-unicode.p6 <<< '\__( O__O)_/'
set("\\"," ")

$ perl6 test-ascii.p6 <<< '!@#$%^&*()_+{}|:"<>?'
set(")","*","\&","(","\$")

$ perl6 test-unicode.p6 <<< "1234567890-=[]\\;',./"
set("\\",".")

$ perl6 test-unicode.p6 <<< '(ノಠ益ಠ)ノ彡┻━┻'
set()

“¤>%,oỊȤʠ“ØụĊ5D³ṃṠɼQ»j;Ç;“;}¶”
set("o")

$ perl6 test-unicode.p6 <<< '┬──┬ ノ( ゜-゜ノ)'
set(" ")


$ perl6 test-ascii.p6 <<< 'Far out in the uncharted backwaters of the unfashionable end of the Western Spiral arm of the Galaxy lies a small unregarded yellow sun. Orbiting this at a distance of roughly ninety-eight million miles is an utterly insignificant little blue-green planet whose ape-descended life forms are so amazingly primitive that they still think digital watches are a pretty neat idea.'
set("p"," ","a","l","r","c","b","s","e","m",".","y","o")

MATL , 8 ไบต์

'X&'''X&

ลองออนไลน์!

อินพุตเป็นสตริงที่อยู่ในเครื่องหมายคำพูดเดี่ยว หากสตริงมีสัญลักษณ์เครื่องหมายคำพูดเดียวควรทำซ้ำเพื่อหลีกเลี่ยง

คำอธิบาย

'X&'''   % Push string with the three characters used by the program. The single-quote 
         % symbol needs to be escaped by duplicating it
X&       % Take input implicitly. Set intersection. Display implicitly

ที่จริงแล้ว 6 ไบต์

`∩è`è∩

ลองออนไลน์!

คำอธิบาย:

`∩è`è∩
`∩è`    push the function `∩è` (which contains every character in the source code except '`')
    è   repr (same as Python repr - leaves "`∩è`", which contains every character in the source code)
      ∩ set intersection with input

Haskell (30 ไบต์)

นี่เป็นวิธีแก้ปัญหาที่น่าเบื่อ ... แต่ฉันก็ทำได้ไม่ดี :(

filter(`elem`"f(term)\"i`l\\")

Brachylogขนาด 23 ไบต์

:{e.~e":{}e~\"fd\."}fd.

ลองออนไลน์!

คำอธิบาย

:{                 }f      Find all chars that verify the predicate below
                     d.    Remove duplicates and output

  e.                       Take a char from the input ; this is our output…
    ~e":{}e~\"fd\."        … if that char is in the string :{}e~"fd. (the first \ is here
                               to escape the ")

05AB1E , 11 ไบต์

รหัส:

"'ÃJÙ"'"JÃÙ

ใช้การเข้ารหัสCP-1252 ลองออนไลน์! .

C, 142 ไบต์

main(i){char*p,a[]="remain([*]){fought?>:01;,\\\"=capsv+-l}";for(;(i=getchar())>=0;p?putchar(i),memmove(p,p+1,a+strlen(a)-p):0)p=strchr(a,i);}

ลองบน ideone

CJam, 8 ไบต์

"`q&"`q&

ลองที่นี่

คำอธิบาย:

"`q&"    e# Push that string to the stack
     `   e# Stringify, pops the string and pushes "\"`r&\"" to the stack
      q  e# Pushes the input to the stack
       & e# Union, pops two elements and pushes a list of every element that is contained in both.

Pyth , 9 8 ไบต์

1 ไบต์ขอบคุณ Sp3000

@Q"\Q@\"

ลองออนไลน์!

@Q"\Q@\"
@Q"\Q@\""   implicit string ending

@Q           intersect the input with
  "\Q@\""   the string containing '\', 'Q', '@', '"'.

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

ลบอักขระที่ไม่ได้อยู่ในซอร์สโค้ดจากนั้นลบอักขระที่ซ้ำกัน

[^Ds.n\n[-a_-]

Ds`.

ลองออนไลน์

Mathematica, 35 ไบต์

Characters@"\"#&@C\acehrst⋂"⋂#&

ฟังก์ชั่นไม่ระบุชื่อ ละเว้นข้อความที่สร้างขึ้น รับรายการอักขระเป็นอินพุตและส่งคืนรายการอักขระเป็นเอาต์พุต อักขระ Unicode เป็น U + 22C2 \[Intersection]สำหรับ

C #, 36 ไบต์

s=>s.Intersect("s=>.Interc(\"\\);");

การส่งแบบตั้งใจคือFunc<string, IEnumerable<char>>( stringอินพุต, IEnumerable<char>เอาต์พุต)

เป็นกลุ่ม, 78 68 78 79 61 การกดแป้น

เปลี่ยนแนวทางของฉันโดยสิ้นเชิง:

oo/\$kjxd<esc>/o<cr>xj$/\/<cr>xj$/\\<cr>xj$/$<cr>xj$/k<cr>xj$/x<cr>xj$/j<cr>xj$/d<cr>xkdd

มันทำงานอย่างไร:

ก่อนอื่นมันจะสร้างบรรทัดที่มีอักขระโปรแกรมทั้งหมดจากนั้นจะค้นหาอินสแตนซ์แรกของอักขระโปรแกรมแต่ละตัวซึ่งอยู่ในอินพุตถ้าอินพุตและเอาต์พุตตัดกันหรือเอาต์พุตถ้าไม่ลบ มันจะย้ายไปที่อักขระตัวสุดท้ายของไฟล์ (ดังนั้นจึงล้อมรอบ) และทำสำหรับอักขระที่ไม่ซ้ำกันในแหล่งที่มายกเว้น d โดยที่แทนที่จะย้ายไปที่จุดสิ้นสุดของไฟล์มันจะเสร็จสิ้นโดยการลบอินพุต

Bash , 45 50 41 39 37 34 29 ไบต์

-9 ไบต์ขอบคุณ Geoff Reedy
-4 ไบต์ขอบคุณ Dennis
-5 ไบต์ขอบคุณ Nahuel Fouilleul

grep -o '[] [|\'\'grepouniq-]

ลองออนไลน์!

PowerShell v4 +, 122 104 ไบต์

([char[]]($args[0]+'acegfhmnoprstu012|][()"?+_,.$-{0}{1}{2}'-f("'","}","{"))|group|?{$_.count-gt1}).name

ฮึ. Quines หรือรหัสคล้าย Quine ใน PowerShell sucks เนื่องจากการจัดรูปแบบการเปลี่ยนสตริงนั้นเป็นเรื่องที่น่าเบื่อ

สตริงที่ace...{2}อยู่ตรงกลางคือตัวละครทุกตัวที่อยู่ในรหัสที่เหลือ {0}{1}{2}ถูกนำมาใช้ร่วมกับ-fผู้ประกอบการ ORMAT ที่จะดึง'{}ตัวละครเข้าไปในสตริง

ที่รวมกันเป็น char-array กับอินพุต$argsจากนั้นป้อนเข้าสู่ไปป์ไลน์ จุดแรกคือจุดGroup-Objectที่สร้าง hashtable ของวัตถุอินพุตและจำนวนครั้งที่เกิดขึ้นในอินพุต นั่นคือการประปาจะเลือกเฉพาะรายการที่มีมากกว่า เราแค็ปซูลที่ parens และถอนส่วนของ hashtable (ซึ่งเป็นที่ที่ความต้องการของ v4 + มาเล่นมิฉะนั้นเราจะต้องเพิ่มสเตจเพิ่มเติมไปที่ pipage)|?{...}Where-Object.count1.Name|Select Name

อิลิเมนต์เหล่านั้นถูกทิ้งไว้บนไพพ์ไลน์ (ในฐานะอาร์เรย์) และการพิมพ์นั้นมีความหมาย

Python 2, 44 ไบต์

x='c=set;print c(`x`)&c(raw_input())';exec x

เพียงเพื่อความสนุกนี่คือการส่งโปรแกรมแบบเต็ม quine เอาต์พุตการแทนค่าสตริงของชุด Python 2

JavaScript (ES6), 59 57 ไบต์

f=
t=>[..."\"().=>O[\\]defilnrtx~"].filter(e=>~t.indexOf(e))
;

<input placeholder=Input oninput=o.value=f(this.value).join``><input placeholder=Output id=o>

ส่งกลับอาร์เรย์ของตัวละครที่มีอยู่ในทั้งสตริง / อาร์เรย์ตัวละครเดิมและรหัสที่มา แก้ไข: บันทึก 2 ไบต์ด้วย @ user81655

Matlab ขนาด 37 ไบต์

ค่อนข้างง่าย:

ใช้ตัวบิวอินintersectเพื่อค้นหาสี่แยก รหัสแหล่งที่มาคือรหัสยาก ต้องป้อนข้อมูลภายในเครื่องหมายอัญประกาศ''

intersect(input(''),'''intersc(pu),')

JavaScript (Chrome 58 บน OS X 10), 12654 12426 11992 Bytes

https://paste.ubuntu.com/25593218/

https://paste.ubuntu.com/25595798/

https://paste.ubuntu.com/25595831/

รหัสเดิม:

var t=prompt();"!+()[]".split("").forEach(function(f){if(t.includes(f))alert(f)})

นี่ถูกแปลงเป็นรูปแบบการเขียนโปรแกรมที่เรียกว่า jsfk ซึ่งใช้เพียงหกตัวอักษรเหล่านี้

(+)[!] 

ใช้คอมไพเลอร์ออนไลน์

R, 129 ไบต์

f=function(s){b=strsplit("f=unctio(s){arpl;,[1]b\\\"qemh0T}",c())[[1]];cat(b[unique(pmatch(strsplit(s,c())[[1]],b,0,T))],sep="")}

ถ้าฉัน ungolf bมันต้องมีสิ่งแปลกเปลี่ยนแปลงเช่นบรรทัดใหม่ในสตริงสำหรับ อย่างไรก็ตามมันง่ายสุด ๆ - สร้างเวกเตอร์ด้วยตัวละครทั้งหมดในฟังก์ชั่น จากนั้นจะดึงอินพุตเป็นเวกเตอร์และตรวจสอบความเป็นสมาชิก

Ruby, 34 + nflag = 35 bytes

ไม่ทำงานกับอินพุตหลายแถวเนื่องจาก-nทำให้โปรแกรมประมวลผล STDIN ทีละบรรทัด ไม่มีบรรทัดใหม่ในรหัสนี้ แต่พยายามป้อนสิ่งที่จะส่งออกหลายอาร์เรย์แทนที่จะเป็นหนึ่ง หากไม่ดีตามข้อมูลจำเพาะโปรดแจ้งฉันและฉันจะแก้ไข

p $_.chars&"\\\"p $_.chars&".chars

ListSharp , 222 ไบต์

STRG S=READ[<here>+"\\S.txt"]
ROWS T=ROWSPLIT S BY [""]
ROWS R=ROWSPLIT "STRG =EAD[<her>+\".tx]OWPLIBYCFMHVNc#isn()oay\r\n" BY [""]
ROWS R=SELECT FROM T WHERE[EVERY STRG IS ANY STRG IN R]
SHOW=<c#R.Distinct().ToArray()c#>

ไร้สาระ แต่อิ่มเอม

sed, 47 ตัวอักษร

:s;st[^])(*\1.s2t:[;^]tt;st\(.\)\(.*\1\)t\2t;ts

ฉันรู้สึกผิดหวังเล็กน้อยที่ความยาวของสิ่งนี้ออกมาโดยเฉพาะอย่างยิ่งบิตที่จะลบตัวอักษรซ้ำ ๆ

Java 8 lambda, 152 142 140 ตัวอักษร

ค่อนข้างสั้น:

s->s.chars().mapToObj(i->(char)i).filter(c->"COSTab\"\\cefh(i)j+l-mn.oprstuv>".contains(""+c)).collect(java.util.stream.Collectors.toSet())

หรืออวดดีที่นี่:

public class Q89400 {

    static Set<Character> inAndQuine(String in) {
        return in.chars()
                .mapToObj(i->(char)i)
                .filter(c->"COSTab\"\\cefh(i)j+l-mn.oprstuv>".contains(""+c))
                .collect(java.util.stream.Collectors.toSet());

    }
}

แน่นอนว่าทางออกที่ไม่ดีนั้นไม่ถูกต้องเนื่องจากมันไม่ตรงกับวงเล็บปีกกาและตัวละครอีกหลายตัว

ฟังก์ชันรับอินพุตเป็น a Stringและส่งคืนjava.util.Set<Character>อักขระที่มีอยู่ซึ่งมีอยู่ทั้งอินพุตและแหล่งที่มา

อัพเดท

มันกลับกลายเป็นว่าโซลูชันไม่ทำงาน ฉันคิดว่าString#containsการทดสอบการจับคู่ regex แต่เป็นเพียงการจับคู่ตามตัวอักษร ฉันได้เพิ่มการหลบหนีเพื่ออ้างถึงตัวละครที่ชอบ.แต่นี่ไม่จำเป็น แต่ทำลายทุกอย่างแทน ตอนนี้ไม่มีการหลบหนีเราจะช่วยตัวละครบางตัวและตอนนี้มันใช้งานได้จริง :)

ขอบคุณ @NonlinearFruit ที่ทำให้ฉันนึกถึงการใช้ตัวแปรหนึ่งตัว

SQF , 71 69 64 ไบต์

การใช้รูปแบบ file-as-a-function:

i="-_h ;""=()sSplitrng"splitString"";i-(i-(_this splitString""))

โทรมา "STRING" call NAME_OF_COMPILED_FUNCTION