Intro

Tantangannya adalah membuat program / fungsi yang mencetak persimpangan kode sumbernya sendiri dan input string yang diberikan. Ini kode golf dan lebih tepatnya:

• Membiarkan Imenjadi set input
  • {"a","b","c"}
• Biarkan Smenjadi set kode sumber
  • {"b","f"}
• Maka persimpangan adalah apa yang mereka bagikan
  • I ∩ S = {"b"}

Memasukkan

Input fleksibel. Seharusnya bisa menangani pengkodean karakter yang digunakan untuk kode sumber.

Keluaran

Keluaran fleksibel. Harus set karakter yang dibagi oleh input dan kode sumber. Juga, set adalah koleksi objek berbeda yang tidak berurutan. Singkatnya:

• Output fleksibel:
  • Bisa berupa struktur data apa pun (string atau lainnya)
  • Bisa unordered
  • Bisa saja tertinggal \n
  • Harus berbeda

Larangan

Mirip dengan tantangan quine , program / fungsi mungkin tidak membaca kode sumbernya sendiri dan solusi 0-byte tidak diperbolehkan.

Contohnya

• # 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.

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

Uji Kasus

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.

Memperbarui

• [16-08-10]: set adalah koleksi objek yang tidak berurutan
• [16-08-10]: membuntuti baris baru dapat diterima

Jelly , 10 6 byte

“Ṿf”Ṿf

Cobalah online!

Bagaimana itu bekerja

“Ṿ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 byte

Terima kasih Karl karena telah menyelamatkan saya satu byte :-) Terima kasih Dada karena telah menyelamatkan saya dua byte!

Saya pikir ini berhasil, tapi ini tantangan quine pertama saya jadi saya tidak 100% yakin. : \

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

Versi Lambda dengan 43 byte: lambda a:set(" lambdaset()&'"+':+"')&set(a)

Dyalog APL , 8 byte

'∩''⊢'∩⊢

∩adalah mengembalikan karakter-karakter tersebut dari argumen kiri yang ada dalam argumen kanan (jika argumen kiri tidak memiliki duplikat - seperti dalam kasus ini - maka hasilnya juga tidak memiliki duplikat

⊢ adalah argumennya

Kemudian string hanya memiliki dua ditambah karakter kutipan (dua kali lipat, seperti dalam sebuah string).

TryAPL online!

GolfScript, 6 byte

"`&"`&

Cobalah online!

Bagaimana itu bekerja

        # (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 Bytes

-1 Byte berkat @Jeremy

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

fungsi lambda anonim, mengambil string, mengembalikan satu set

versi lama:

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

Perl 6 , 56, 55 byte

" Perancis " / versi Unicode (55 byte)

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

" Texas " / versi ASCII (56 byte)

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

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

Non-golf:

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

Contoh:

$ 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 byte

'X&'''X&

Cobalah online!

Input adalah string yang dilampirkan dalam tanda kutip tunggal. Jika string berisi simbol tanda kutip tunggal, itu harus digandakan untuk menghindarinya.

Penjelasan

'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

Sebenarnya, 6 byte

`∩è`è∩

Cobalah online!

Penjelasan:

`∩è`è∩
`∩è`    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 byte)

Ini adalah solusi yang membosankan ... Tapi saya tidak bisa berbuat lebih baik. :(

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

Brachylog , 23 byte

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

Cobalah online!

Penjelasan

:{                 }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 byte

Kode:

"'ÃJÙ"'"JÃÙ

Menggunakan pengkodean CP-1252 . Cobalah online! .

C, 142 byte

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

Cobalah di ideone .

CJam, 8 byte

"`q&"`q&

Coba di sini.

Penjelasan:

"`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 byte

1 byte terima kasih kepada Sp3000

@Q"\Q@\"

Cobalah online!

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

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

Retina, 21 20 byte

Menghapus karakter yang tidak ada dalam kode sumber, lalu menghapus karakter duplikat.

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

Ds`.

Cobalah online

Mathematica, 35 byte

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

Fungsi anonim. Abaikan pesan yang dihasilkan. Mengambil daftar karakter sebagai input dan mengembalikan daftar karakter sebagai output. Karakter Unicode adalah U + 22C2 untuk \[Intersection].

C #, 36 byte

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

Pemain yang dimaksud adalah Func<string, IEnumerable<char>>( stringinput, IEnumerable<char>output).

Vim, 78 68 78 79 61 penekanan tombol

Sepenuhnya mengubah pendekatan saya:

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

Bagaimana itu bekerja:

Pertama, ia membuat garis dengan semua karakter program, kemudian, ia menemukan instance pertama dari masing-masing karakter program, yang ada di input, jika input dan output berpotongan, atau output jika tidak, menghapus itu, pindah ke karakter terakhir dari file (jadi membungkus) dan melakukan itu untuk setiap karakter unik dalam sumber, kecuali d, di mana alih-alih pindah ke akhir file, selesai dengan menghapus input

Bash , 45 50 41 39 37 34 29 byte

-9 byte berkat Geoff Reedy
-4 byte terima kasih kepada Dennis
-5 byte terima kasih kepada Nahuel Fouilleul

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

Cobalah online!

PowerShell v4 +, 122 104 byte

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

Ugh. Quines atau kode quine-like di PowerShell menyebalkan, karena format penggantian string sangat kikuk.

String ace...{2}di tengah adalah setiap karakter yang ada di sisa kode. Ini {0}{1}{2}digunakan bersama dengan -foperator ormat untuk menarik '{}karakter ke dalam string.

Itu digabungkan sebagai char-array dengan input $args, lalu dimasukkan ke dalam pipa. Pemberhentian pertama adalah Group-Objectyang (pada dasarnya) menciptakan hashtable dari objek input dan berapa kali mereka terjadi pada input. Itu disalurkan ke |?{...}satu Where-Objectuntuk hanya memilih item-item yang memiliki .countlebih dari 1. Kami merangkumnya dalam parens, dan mencabut .Namesebagian dari hashtable (yang merupakan syarat v4 + berperan, jika tidak kita akan memerlukan |Select Nametahap tambahan untuk pipeline).

Elemen-elemen itu ditinggalkan di jalur pipa (sebagai array), dan pencetakan tersirat.

Python 2, 44 byte

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

Hanya untuk bersenang-senang, inilah pengajuan program lengkap seperti quine. Output representasi string dari set Python 2.

JavaScript (ES6), 59 57 byte

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

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

Mengembalikan array karakter yang ada di string / karakter asli array dan kode sumber. Sunting: Disimpan 2 byte berkat @ user81655.

Matlab, 37 byte

Cukup sederhana:

Menggunakan bawaan intersectuntuk menemukan persimpangan. Kode sumber dikodekan dengan keras. Masukan harus diberikan di dalam tanda kutip''

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

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

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

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

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

Kode asli:

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

Ini kemudian dikonversi menjadi gaya pemrograman yang disebut jsfk yang hanya menggunakan enam karakter ini:

(+)[!] 

menggunakan kompiler online.

R, 129 byte

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="")}

Jika saya ungolf itu, itu perlu memiliki hal-hal aneh berubah seperti baris baru di string b. Bagaimanapun, ini super sederhana - membangun vektor dengan semua karakter dalam fungsi di dalamnya. Kemudian ia menarik input ke vektor, dan memeriksa keanggotaan.

Ruby, 34 + nbendera = 35 byte

Tidak persis bekerja dengan input multi- -nbaris , karena menyebabkan program memproses STDIN baris demi baris. Tidak ada baris baru dalam kode ini, tetapi mencoba memasukkan sesuatu seperti itu akan menghasilkan banyak array, bukan satu. Jika itu tidak sesuai dengan spesifikasi, mohon informasikan kepada saya dan saya akan memperbaikinya.

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

ListSharp , 222 byte

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

konyol tapi aku terhibur

sed, 47 karakter

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

Saya sedikit kecewa pada berapa lama ini muncul, terutama sedikit untuk menghapus karakter yang berulang.

Java 8 lambda, 152 142 140 karakter

Cukup pendek:

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

Atau ungolfed di sini:

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());

    }
}

Tentu saja solusi ungolfed salah, karena tidak cocok dengan kurung keriting dan beberapa karakter lagi, itu hanya mereka demi kelengkapan.

Fungsi ini mengambil input sebagai a Stringdan mengembalikan java.util.Set<Character>karakter yang berisi input dan sumber.

Pembaruan

Ternyata solusinya tidak bekerja. Saya pikir String#containstes untuk pertandingan regex tetapi itu hanya pencocokan literal. Saya menambahkan beberapa melarikan diri untuk mengutip karakter seperti .tetapi ini tidak perlu tapi malah merusak segalanya. Sekarang tanpa pelolosan ini kami menyimpan beberapa karakter dan sekarang benar-benar berfungsi :)

Terima kasih kepada @NonlinearFruit karena mengingatkan saya menggunakan variabel satu karakter.

SQF , 71 69 64 byte

Menggunakan format file-sebagai-fungsi:

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

Sebut sebagai "STRING" call NAME_OF_COMPILED_FUNCTION