Golf kode

Cerita yang benar-benar nyata : Saya seorang kontraktor yang bekerja di situs web www. Sky.Net dan salah satu tugas kami untuk membuat beberapa program sadar diri atau sesuatu, saya tidak tahu saya tidak benar-benar mendengarkan bos. Bagaimanapun juga dalam upaya untuk membuat kode kita lebih sadar diri kita membutuhkan IT untuk dapat mengetahui kode apa yang ada di setiap nomor baris.

Tantangan

Buat program atau fungsi yang mengambil input ndan mengembalikan kode program atau fungsi tersebut secara online n.

Aturan

➊ Panjang program atau fungsi Anda harus minimal 4 baris. Setiap baris harus unik.

➋ Anda dapat berasumsi bahwa input akan selalu berupa bilangan bulat positif lebih besar dari atau sama dengan 1 dan kurang dari atau sama dengan jumlah baris dalam program / fungsi Anda.

➌ Baris pertama dalam program / fungsi Anda adalah baris 1, bukan baris 0.

➍ Anda tidak dapat mengakses file tempat program Anda aktif. (Jika seseorang harus bertanya "Bukankah ini melanggar aturan teknis # 4"; mungkin itu)

➎ Baris tidak boleh kosong (ini termasuk spasi jika spasi tidak melakukan apa pun dalam bahasa Anda)

➏ Baris tidak boleh // komentar (/ * gaya <! - apa saja)

Ini adalah tantangan seperti quine
Ini adalah kode-golf , jadi pengiriman dengan byte paling sedikit akan menang!

Vim, 7 byte

1
2
3
4

Cobalah online!

Sejauh yang saya tahu, ini sesuai dengan semua aturan. Dalam vim secara default, program kosong mencetak semua input. Sejak

<N><CR>

Adalah noop, tidak ada yang mengubah teks input, dan karena setiap input cocok dengan output yang diinginkan, pendekatan yang sama ini bekerja dengan sejumlah baris.

Ruby, 71 70 66 byte

Cobalah online!

->n{
k=["}", "k[-n]%%k.inspect", "k=%s", "->n{"]
k[-n]%k.inspect
}

Mode "Kecurangan": 7 + 1 = 8 byte

Membutuhkan -pflag untuk +1 byte. Secara harfiah copy dari jawaban V . Mencetak nomor yang dimasukkan; seluruh program secara efektif hanya tanpa operasi.

1
2
3
4

Haskell, 69 59 byte

(lines(s++show
 s)
 !!)
s="\n(lines(s++show\n s)\n !!)\ns="

Berdasarkan quine Haskell standar. Ekspresi pertama (tersebar di tiga baris pertama) adalah fungsi tanpa nama yang mengambil garis ke-n dari string kuinifikasi s( s++show s). +2 byte untuk membuat pengindeksan berbasis-1 (seperti aturan yang tidak perlu).

Untuk mencobanya secara online! versi saya harus memberi nama fungsi yang menambahkan 4 byte.

PowerShell , 184 172 byte

$v=0,
'$v=0,',
"'`$v=0',",(($q='"{0}`$v=0{0},",(($q={0}{1}{0})-f([char]39),$q)')-f([char]39),$q),
(($z='(($z={0}{1}{0})-f([char]39),$z;$v[$args]')-f([char]39),$z);$v[$args]

Cobalah online!

Penjelasan

Mulai dengan membuat array $vdi baris pertama. Pada baris yang sama, 0elemen ( th) pertama diatur ke 0, dan koma ,melanjutkan definisinya.

Baris berikutnya mengatur elemen berikutnya ( 1) dari array ke string yang mewakili konten baris pertama skrip, sehingga $v[1]mengembalikan baris pertama.

Baris ke-3 pertama-tama menetapkan elemen ke-3 dari array (indeks 2) ke string yang mewakili baris ke-2 dari skrip, kemudian pada baris yang sama mengatur elemen ke-4 (indeks 3) menggunakan cuplikan quine yang menggunakan operator format ( -f) untuk menggantikan contoh tertentu dari tanda kutip tunggal ( [char]39) dan string templat format, ke dalam dirinya sendiri, untuk mereproduksi keseluruhan baris ke-3.

Baris 4 pada dasarnya melakukan hal yang sama, tetapi juga mengakhiri pembuatan array dan kemudian mengindeksnya menggunakan argumen yang disediakan.

Python 2, 104 73 67 byte

Terima kasih kepada Jonathan Allan karena telah menghemat 6 byte!

s=\
['print s[input()]or s', 's=\\', 0, 'exec s[', '0]']
exec s[
0]

Sunting: Jumlah byte yang sama, tapi saya suka solusi ini lebih baik

Cobalah online!

Versi Ruby dari jawaban Ruby Nilai Tinta .

Jawaban yang lebih lama (67 byte):

1
s=\
['print s[-input()]or s', 0, 's=\\', 1]
print s[-input()]or s

CJam , 19 18 17 byte

1
{'_'~]ri(=}
_
~

Cobalah online!

Berdasarkan standar CJam-quine. The {...}_~menjalankan ...dengan blok itu sendiri di stack (dan dalam hal ini, juga 1di bawah itu). Maka kita lakukan:

'_'~  e# Push the third and fourth line.
]     e# Wrap all four lines in a list.
ri    e# Read input and convert to integer.
(=    e# Use as index into the lines.

PHP, 261 byte

<?php function f($l){
$a="aWYoJGw9PTEpJG09Ijw/cGhwIGZ1bmN0aW9uIGYoXCRsKXsiO2lmKCRsPT0yKSRtPSJcJGE9XCIkYVwiOyI7aWYoJGw9PTMpJG09IlwkYj1cIiR";
$b="iXCI7IjtpZigkbD09NCkkbT0iZXZhbChiYXNlNjRfZGVjb2RlKFwkYS5cJGIpKTt9Pz4iO2VjaG8gJG07";
eval(base64_decode($a.$b));}?>

Cobalah online !!

String yang disandikan adalah:

if($l==1)$m="<?php function f(\$l){";
if($l==2)$m="\$a=\"$a\";
if($l==3)$m="\$b=\"$b\";
if($l==4)$m="eval(base64_decode(\$a.\$b));}?>";
echo $m;

Perl, 52 byte

$_=q{print+(split/
/,"\$_=q{$_};
eval")[<>-1]};
eval

Ini adalah variasi sederhana pada quine klasik

$_=q{print"\$_=q{$_};eval"};eval

"Payload" ada splitdi baris baru dan baris yang benar dipilih dengan mengindeks ke dalam daftar yang dihasilkan.

Perl, 49 48 byte (tidak bersaing)

#!/usr/bin/perl -d:A
sub DB'DB{
print${"_<$0"}[<>]}
1

38 byte untuk kode (tidak termasuk shebang tetapi termasuk -d:A) ditambah 10 byte untuk nama file, yang harus Devel/A.pm. The Develdirektori harus dalam @INC.

Secara teknis, ini melanggar Aturan # 4 karena -d:Amenyebabkan file diurai dua kali, jadi ini solusi yang tidak bersaing.

Ia menggunakan pengait debugger untuk mengakses baris-baris file, yang perl menyimpan dalam @{"_<$filename"}array pada waktu kompilasi.