Wprowadzenie

Wyzwanie polega na utworzeniu programu / funkcji, która wypisze przecięcie własnego kodu źródłowego i danych wejściowych z ciągu. To jest kod golfowy, a ściślej:

• Niech Ibędzie zestawem wejściowym
  • {"a","b","c"}
• Niech Sbędzie ustawiony kod źródłowy
  • {"b","f"}
• Następnie przecięcie jest tym, co dzielą
  • I ∩ S = {"b"}

Wejście

Dane wejściowe są elastyczne. Powinien być w stanie obsłużyć kodowanie znaków użyte w kodzie źródłowym.

Wynik

Dane wyjściowe są elastyczne. Powinien to być zestaw znaków współdzielonych przez kod wejściowy i kod źródłowy. Również zestawy są nieuporządkowane kolekcje różnych obiektów. W podsumowaniu:

• Dane wyjściowe są elastyczne:
  • Może to być dowolna struktura danych (łańcuchowa lub inna)
  • Może nieuporządkowane
  • Może mieć końcowy \n
  • Powinien być wyraźny

Ograniczenie

Podobnie jak w przypadku quine wyzwania, program / funkcja może nie odczytać własnego kodu źródłowego, a rozwiązania 0-bajtowe są niedozwolone.

Przykłady

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

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

Przypadki testowe

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.

Aktualizacja

• [16-08-10]: zestawy są nieuporządkowanymi zbiorami różnych obiektów
• [16-08-10]: końcowy znak nowej linii jest dopuszczalny

Galaretka , 10 6 bajtów

“Ṿf”Ṿf

Wypróbuj online!

Jak to działa

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

Dzięki Karl za uratowanie mi jednego bajtu :-) Dzięki Dada za uratowanie mi dwóch bajtów!

Myślę, że to działa, ale to moje pierwsze wyzwanie quine, więc nie jestem w 100% pewien. : \

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

Wersja Lambda z 43 bajtami: lambda a:set(" lambdaset()&'"+':+"')&set(a)

Dyalog APL , 8 bajtów

'∩''⊢'∩⊢

∩zwraca te znaki z lewego argumentu, które są obecne w prawym argumencie (jeśli lewy argument nie ma duplikatów - jak w tym przypadku - to wynik również nie ma duplikatów

⊢ jest argumentem

Następnie ciąg ma tylko te dwa plus znak cudzysłowu (podwojony, ponieważ znajduje się w ciągu).

Wypróbuj APL online!

GolfScript, 6 bajtów

"`&"`&

Wypróbuj online!

Jak to działa

        # (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 bajtów

-1 bajtów dzięki @Jeremy

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

anonimowa funkcja lambda, pobiera ciąg, zwraca zestaw

stara wersja:

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

Perl 6 , 56, 55 bajtów

Wersja „ francuska ” / Unicode (55 bajtów)

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

Wersje „ Texas ” / ASCII (56 bajtów)

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

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

Nie golfowy:

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

Przykłady:

$ 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 bajtów

'X&'''X&

Wypróbuj online!

Dane wejściowe to ciąg ujęty w pojedyncze cudzysłowy. Jeśli ciąg zawiera symbol pojedynczego cudzysłowu, należy go zduplikować, aby go uniknąć.

Wyjaśnienie

'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

Właściwie 6 bajtów

`∩è`è∩

Wypróbuj online!

Wyjaśnienie:

`∩è`è∩
`∩è`    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 bajtów)

To takie nudne rozwiązanie ... Ale nie mogłem nic lepszego. :(

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

Brachylog , 23 bajty

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

Wypróbuj online!

Wyjaśnienie

:{                 }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 bajtów

Kod:

"'ÃJÙ"'"JÃÙ

Wykorzystuje kodowanie CP-1252 . Wypróbuj online! .

C, 142 bajty

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

Wypróbuj na ideone .

CJam, 8 bajtów

"`q&"`q&

Wypróbuj tutaj.

Wyjaśnienie:

"`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 bajtów

1 bajt dzięki Sp3000

@Q"\Q@\"

Wypróbuj online!

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

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

Siatkówka, 21 20 bajtów

Usuwa znaki spoza kodu źródłowego, a następnie usuwa zduplikowane znaki.

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

Ds`.

Wypróbuj online

Mathematica, 35 bajtów

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

Funkcja anonimowa. Zignoruj ​​wszelkie wygenerowane wiadomości. Pobiera listę znaków jako dane wejściowe i zwraca listę znaków jako dane wyjściowe. Znak Unicode to U + 22C2 dla \[Intersection].

C #, 36 bajtów

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

Zamierzone rzutowanie to Func<string, IEnumerable<char>>( stringwejście, IEnumerable<char>wyjście).

Vim, 78 68 78 79 61 klawiszy

Całkowicie zmieniłem moje podejście:

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

Jak to działa:

Najpierw tworzy wiersz ze wszystkimi znakami programu, a następnie znajduje pierwszą instancję każdego ze znaków programu, która jest albo na wejściu, jeśli wejście i wyjście przecinają się, albo na wyjściu, jeśli nie, usuwa przesuwa się do ostatniego znaku pliku (więc się zawija) i robi to dla każdego unikalnego znaku w źródle, z wyjątkiem d, gdzie zamiast przejścia na koniec pliku, kończy się poprzez usunięcie danych wejściowych

Bash , 45 50 41 39 37 34 29 bajtów

-9 bajtów dzięki Geoffowi Reedy
-4 bajtów dzięki Dennisowi
-5 bajtów dzięki Nahuelowi Fouilleulowi

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

Wypróbuj online!

PowerShell v4 +, 122 104 bajty

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

Ugh. Quines lub kod podobny do quine w PowerShell jest do bani, ponieważ formatowanie zastępowania łańcucha jest tak niezgrabne.

Łańcuch ace...{2}pośrodku to każdy znak obecny w pozostałej części kodu. Jest {0}{1}{2}on używany w połączeniu z -foperatorem ormat do ciągnięcia '{}znaków do łańcucha.

Jest to łączone jako tablica znaków z wejściem $args, a następnie podawane do potoku. Pierwszym przystankiem jest Group-Object(zasadniczo) tworzenie tablicy mieszającej obiektów wejściowych i ile razy występują one na wejściu. To jest skierowane |?{...}do, Where-Objectaby wybrać tylko te przedmioty, które mają .countwięcej niż 1. Zawieramy to w parenach i wyrywamy .Nameczęść tablicy hashtable (czyli tam, gdzie ma zastosowanie wymóg v4 +, w przeciwnym razie potrzebowalibyśmy dodatkowego |Select Nameetapu w przygotowaniu).

Te elementy są pozostawione w potoku (jako tablica), a drukowanie jest niejawne.

Python 2, 44 bajty

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

Dla zabawy, oto pełne przesłanie programu w stylu quine. Wyświetla ciąg znaków reprezentujący zestaw języka Python 2.

JavaScript (ES6), 59 57 bajtów

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

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

Zwraca tablicę znaków obecnych zarówno w oryginalnej tablicy łańcuchów znaków / znaków, jak i w kodzie źródłowym. Edycja: Zapisano 2 bajty dzięki @ user81655.

Matlab, 37 bajtów

Całkiem proste:

Używa wbudowanego intersectdo znalezienia skrzyżowania. Kod źródłowy jest zakodowany na stałe. Dane wejściowe należy podać w cudzysłowie''

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

JavaScript (Chrome 58 w systemie OS X 10), 12654 12426 11992 bajtów

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

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

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

Oryginalny kod:

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

Zostało to następnie przekonwertowane na styl programowania o nazwie jsfk, który używa tylko tych sześciu znaków:

(+)[!] 

za pomocą kompilatora online.

R, 129 bajtów

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

Jeśli go odholfuję, trzeba zmienić dziwne rzeczy, takie jak nowa linia w ciągu b. W każdym razie jest to bardzo proste - buduje wektor ze wszystkimi znakami w funkcji. Następnie pobiera dane wejściowe do wektora i sprawdza członkostwo.

Rubin, nflaga 34 + = 35 bajtów

Nie działa dokładnie z wejściem z wieloma -nliniami , ponieważ powoduje, że program przetwarza STDIN wiersz po wierszu. W tym kodzie nie ma znaków nowego wiersza, ale próba wprowadzenia czegoś takiego spowoduje wyświetlenie wielu tablic zamiast jednego. Jeśli to nie jest zgodne ze specyfikacją, proszę o informację, a ja to naprawię.

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

ListSharp , 222 bajty

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

śmieszne, ale zabawne

sed, 47 znaków

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

Jestem trochę rozczarowany, jak długo to się wydarzyło, szczególnie jeśli chodzi o usuwanie powtarzających się postaci.

Java 8 lambda, 152 142 140 znaków

Dość krótki:

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

Lub nie golfisty tutaj:

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

    }
}

Oczywiście nierozszerzone rozwiązanie jest złe, ponieważ nie pasuje do nawiasów klamrowych i kilku innych znaków, jest to po prostu ich kompletność.

Funkcja przyjmuje dane wejściowe jako a Stringi zwraca java.util.Set<Character>znaki zawierające znaki obecne zarówno na wejściu, jak i źródle.

Aktualizacje

Okazało się, że rozwiązanie nie działa. Myślałem o String#containstestach na dopasowanie do wyrażenia regularnego, ale jest to dosłowne dopasowanie. Dodałem trochę ucieczki, żeby zacytować takie postacie, .ale nie było to konieczne, ale zrujnowałem wszystko. Teraz bez ucieczki zapisujemy niektóre postacie i teraz to faktycznie działa :)

Dzięki @NonlinearFruit za przypomnienie mi o używaniu zmiennych jednoznakowych.

SQF , 71 69 64 bajtów

Używając formatu pliku jako funkcji:

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

Zadzwoń jako "STRING" call NAME_OF_COMPILED_FUNCTION