Tantangan ini cukup sederhana. Sebagai masukan, Anda mengambil ekspresi reguler.

Kemudian, Anda menampilkan kebenaran / kesalahan apakah kode sumber Anda cocok dengan ekspresi reguler atau tidak. Sesederhana itu! Hanya dua hal lagi:

• Tidak ada quine builtin; Anda dapat, bagaimanapun, mengakses kode sumber kode dengan file IO, dll.
• Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

Contoh

Jika kode sumber Anda diucapkan, abcinput dari a\wcakan mengembalikan true dan input dari a\dcakan kembali salah.

Z shell, 12 byte

grep "$@"<$0

Zsh conditional hanya mengerti kode keluar, dan skrip keluar dengan 0 atau 1 sesuai.

Selain itu, ini mencetak string yang tidak kosong (kode sumber) untuk pertandingan dan yang kosong untuk ketidakcocokan, yang bisa berupa nilai kebenaran / falsy dalam kombinasi dengan test/ [.

Program membaca file sendiri, tetapi menurut komentar OP, ini diperbolehkan.

JavaScript (ES6), 39

(f=_=>!!`(f=${f})()`.match(prompt()))()

Python 3, 119 byte

Ini hanya terlihat lebih keren, IMO (dan tidak membaca file).

(lambda i:print(bool(__import__('re').search(input(),i))))("(lambda i:print(bool(__import__('re').search(input(),i))))")

Python 3, 67 byte

print(bool(__import__('re').search(input(),open(__file__).read())))

Ditambahkan setelah membaca komentar ini .

Julia, 64 54 byte

r=readline;show(ismatch(Regex(r()),open(r,@__FILE__)))

Ekspresi reguler Julia menggunakan PCRE. Saat membaca kode sumber file adalah celah standar untuk quines, dalam hal ini telah diizinkan secara eksplisit. Mengambil input tanpa baris baru.

Japt, 22 byte

"+Q ³sAJ fU"+Q ³sAJ fU

Kerangka quine standar dengan beberapa byte ditambahkan agar sesuai dengan tantangan ini. Truthy = match (es), falsy = null. Cobalah online!

         // Implicit: U = input string, A = 10, J = -1, Q = quotation mark
"..."+Q  // Take this string and concatenate a quotation mark.
³        // Repeat three times.
sAJ      // Slice off the first 10 and last 1 chars.
fU       // Match U to the result.

Mathematica, 63 byte

StringMatchQ[ToString[#0, InputForm], RegularExpression[#1]] & 

Perhatikan ruang trailing. Menggunakan mekanisme quine Mma standar, dan menguji apakah cocok dengan regex.

Perl, 21 byte

open 0;$_=<0>=~$_

17 byte plus 4 byte untuk -pl0. Jalankan seperti ini:

echo open | perl -pl0 quinean

File sumber harus berisi hanya kode di atas (no shebang, no trailing newline). Keluaran 1jika regex cocok dan string kosong jika tidak (string kosong adalah falsey di Perl).

Empat byte dapat disimpan jika input dijamin tidak berakhir pada baris baru:

open 0;say<0>=~<>

Jalankan seperti ini:

echo -n open | perl -M5.010 quinean

saymembutuhkan Perl 5.10+ dan harus diaktifkan dengan -M5.010. Menurut Meta , "itu-M5.010 jika diperlukan, gratis," memberikan skor 17 byte.

Bagaimana itu bekerja

Ini adalah variasi sederhana pada quine "kecurangan" standar:

open 0;print<0>

Ini membuka file dengan nama $0dan membaca isinya <0>.

$_=<0>=~$_membaca satu baris dari file sumber, melakukan pencocokan regex terhadap konten $_(yang dibaca oleh -pflag), dan memberikan hasilnya kepada $_. -pmencetak $_secara otomatis di akhir.

Jolf, 18 15 byte

Mendukung rasa JS dari RegEx, saya harap tidak apa-apa. Coba di sini! .

 h$code.value#i

Berkomentar:

  $code.value#      the document's element "code" (the program container)
_h            i     and output if it has (matches) the input string (i.e. regex)

𝔼𝕊𝕄𝕚𝕟, 14 karakter / 26 byte (tidak kompetitif)

⟮‼(ⒸⅩ222+ᶈ0)đï

Try it here (Firefox only).

Menggunakan versi dengan perbaikan bug yang ditulis setelah tantangan.

Penjelasan

⟮‼(ⒸⅩ222+ᶈ0)đï // implicit: ï=input
⟮               // copy block: copy following code for later use
 (ⒸⅩ222+ᶈ0)   // take convert 10222 to char, add stuff inside copy block
‼           đï // check if input matches resulting string
               // implicit output

CATATAN: Salin blok BUKAN operator quine. Mereka dimaksudkan untuk menjadi alternatif yang lebih fleksibel untuk deklarasi variabel.