вступление

Задача состоит в том, чтобы создать программу / функцию, которая печатает пересечение своего собственного исходного кода и заданного строкового ввода. Это код гольф, а если быть более точным:

• Позвольте Iбыть входным набором
  • {"a","b","c"}
• Позвольте Sбыть исходным кодом
  • {"b","f"}
• Тогда пересечение это то, что они разделяют
  • I ∩ S = {"b"}

вход

Ввод гибкий. Он должен уметь обрабатывать кодировку символов, используемую для исходного кода.

Выход

Выход гибкий. Это должен быть набор символов, которые совместно используют исходный код. Кроме того, наборы являются неупорядоченными коллекциями различных объектов. В итоге:

• Выход гибкий:
  • Может быть любая структура данных (строка или иное)
  • Может быть неупорядоченным
  • Может быть трейлинг \n
  • Должен быть отчетливым

ограничение

Подобно вызовам quine , программа / функция может не считывать свой собственный исходный код, и 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 байта

Спасибо Карлу за то, что он спас мне один байт :-) Спасибо Дада за то, что он спас мне два байта!

Я думаю, что это работает, но это мой первый вызов, поэтому я не уверен на 100%. : \

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

Лямбда-версия с 43 байтами: lambda a:set(" lambdaset()&'"+':+"')&set(a)

Dyalog APL , 8 байт

'∩''⊢'∩⊢

∩is возвращает те символы из левого аргумента, которые присутствуют в правом аргументе (если левый аргумент не имеет дубликатов - как в этом случае - то результат также не имеет дубликатов

⊢ это аргумент

Тогда в строке просто есть эти два плюс символ кавычки (удвоенный, как в строке).

Попробуй APL онлайн!

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 байт благодаря @ Джереми

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

анонимная лямбда-функция, принимает строку, возвращает набор

старая версия:

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

Perl 6 , 56, 55 байтов

" Французский " / 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-golfed:

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\\")

Брахилог , 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 20 байт

Удаляет символы, отсутствующие в исходном коде, а затем удаляет повторяющиеся символы.

[^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>выход).

Vim, 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, где вместо перемещения в конец файла он завершается удалением ввода

Баш , 45 50 41 39 37 34 29 байт

-9 байт благодаря Джеффу Риди
-4 байт благодаря Деннису
-5 байт благодаря Науэлю Фуйе

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

Попробуйте онлайн!

PowerShell v4 +, 122 104 байта

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

Тьфу. Quines или подобный quine код в PowerShell - отстой, потому что форматирование с заменой строк настолько неуклюже.

Строка ace...{2}в середине - это каждый символ, присутствующий в остальной части кода. {0}{1}{2}Используется в сочетании с -fоператором Ormat тянуть '{}символов в строке.

Это объединяется как массив символов с входом $args, а затем подается в конвейер. Первая остановка - это то, Group-Objectчто (по сути) создает хеш-таблицу входных объектов и сколько раз они встречаются во входных данных. Это относится к |?{...}тому, Where-Objectчтобы выбрать только те элементы, которые имеют .countбольше, чем 1. Мы инкапсулируем это в паранах и отбираем .Nameчасть хеш-таблицы (именно здесь вступает в действие требование v4 +, в противном случае нам потребуется дополнительная |Select Nameстадия для конвейера).

Эти элементы остаются в конвейере (как массив), и печать неявна.

Python 2, 44 байта

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

Просто для удовольствия, вот полное представление программы, похожее на лебеду. Выводит строковое представление набора 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="")}

Если я уберу его, нужно изменить странные вещи, такие как символ новой строки в строке для b. Во всяком случае, это супер просто - создает вектор со всеми символами в функции. Затем он вытягивает вход в вектор и проверяет членство.

Рубин, 34 + nфлаг = 35 байт

Точно не работает с многострочным вводом, так как -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 лямбда, 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тесты на соответствие регулярному выражению, но это просто буквальное соответствие. Я добавил немного экранирования, чтобы процитировать символы, .но это не было необходимо, но вместо этого все испортило. Теперь без этого выхода мы сохраняем некоторые символы, и теперь это действительно работает :)

Спасибо @NonlinearFruit за напоминание об использовании односимвольных переменных.

SQF , 71 69 64 байта

Использование формата файла как функции:

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

Позвонить как "STRING" call NAME_OF_COMPILED_FUNCTION