Tantangan

Dalam tugas ini Anda harus menulis sebuah program yang akan mengambil input bilangan bulat N (-1e9 <= N <0 && 0 <N <= + 1e9) , lalu menghitung T = (abs (N)% M +1) , jika N bernilai positif, lalu mengeluarkan karakter T-th dari awal yang lain, mengeluarkan karakter T-th dari akhir sumber Anda.

M adalah ukuran sumber Anda dalam byte.

Contoh: Jika sumber Anda adalah:abcd efg/hi

Memasukkan:

 2

Keluaran:

 c

Masukan :

-3

Keluaran:

g 

Masukan :

-9249678

Keluaran:

b 

Masukan :

-11

Keluaran:

i 

Kendala

• Jangan gunakan operasi FILE
• Anda dapat menggunakan bahasa pilihan Anda
• Cobalah untuk menghindari atau lebih tepatnya tidak menggunakan pengiriman 1 byte, karena itu merusak semua kesenangan.
• Solusi terpendek menang!

EDIT: Pernyataan masalah telah dimodifikasi sehingga solusi dapat dinilai menggunakan data uji acak (dan data yang sama untuk semua solusi) maka silakan perbarui solusi Anda, mohon maaf atas ketidaknyamanan (jika ada).

rakitan x86 (Linux 32-bit, sintaks AT&T): 548

Tidak ada baris baru di akhir file:

pushl 8(%esp)
call atoi
mov $274,%ebx
cmp $0,%eax
jg a
dec %eax
a:cdq
idiv %ebx
cmp $0,%edx
jge p
add %ebx,%edx
p:add $s,%edx
cmp $s+273,%edx
jl l
push $34
mov %esp,%edx
l:mov $4,%eax
mov $1,%ebx
mov %edx,%ecx
mov $1,%edx
int $128
mov $0,%ebx
mov $1,%eax
int $128
s:.ascii "pushl 8(%esp)
call atoi
mov $274,%ebx
cmp $0,%eax
jg a
dec %eax
a:cdq
idiv %ebx
cmp $0,%edx
jge p
add %ebx,%edx
p:add $s,%edx
cmp $s+273,%edx
jl l
push $34
mov %esp,%edx
l:mov $4,%eax
mov $1,%ebx
mov %edx,%ecx
mov $1,%edx
int $128
mov $0,%ebx
mov $1,%eax
int $128
s:.ascii "

Saya kompilasi dengan gcc -nostartfiles -m32 qc1.S -o qc1

Verifikasi, angka positif:

$ for i in $(seq 548 1095); do ./qc1 $i; done | cmp - qc1.S && echo Good
Good

Verifikasi, angka negatif:

$ for i in $(seq -1095 -548); do ./qc1 $i; done | cmp - qc1.S && echo Good
Good

Edit sudah benar tentang skema penomoran yang aneh. Kupikir. Itu tidak mengubah panjangnya.

Whaddaya tahu, HQ9 + menghasilkan keuntungan besar!

Q

Tidak perlu repot-repot mengindeks ketika hanya ada satu karakter untuk dipilih!

Ruby 1.9, 66 karakter

z=gets.to_i;s="z=gets.to_i;s=%p;$><<(s%%s)[z%%66]";$><<(s%s)[z%66]

Sebenarnya tidak banyak perbedaan dengan quine normal.

• Sunting: Mengikuti spesifikasi baru sekarang.

GolfScript 26 karakter

{':f`f'+1/\~.1<- 26%=}:f`f

Quines lebih menyenangkan sebelum ditemukannya bahasa yang dinamis.

Sunting: Untuk pengeluh, ini adalah quine GolfScript "asli", tidak `dan ~ hanya digunakan untuk mem-parsing input.

Cacat GolfScript 44 karakter

'"\x27"\+1/\~.1<- 22%='"\x27"\+1/\~.1<- 22%=

Perhatikan betapa baiknya itu adalah string yang sama diulang dua kali, jadi string literal hanya perlu 'diretas di depannya dan siap digunakan.

Bahasa, 4 byte

Kode sumber terdiri dari 4 byte nol. Terlepas dari input, output harus menjadi byte nol, yang dilakukan oleh satu .instruksi.

Smalltalk, 94 90 59 52

misalnya, di kelas Object, kompilasi:

q:n|s|s:=thisContext method source.^s at:n\\s size+1

lalu kirim q: <n> ke objek apa pun; di sini bilangan bulat:

verifikasi:

1 q: 0 -> q
1 q: 1 ->:
1 q: 2 -> n
...
1 q: -1 ->)
1 q: -2 ->)
1 q: -3 -> 1

atau lebih baik:
(0 hingga: 100) kumpulkan: [: n | 1 q: n] sebagai: String
->')q:n|s m|s:=thisContext method source.m:=s size.^s at:(n>=0ifTrue:n-1\\m+1ifFalse:m-(0-n\\m))q:n|s m|'

(-1 downTo: -500) kumpulkan: [: n | 1 q: n] sebagai: String
->')m\\n-0(-m:eslaFfi1+m\\1-n:eurTfi0=>n(:ta s^.ezis s=:m.ecruos dohtem txetnoCsiht=:s|m s|n:q))m\\n-0('

penjelasan untuk non-Smalltalkers:
konteks ini adalah kerangka tumpukan saat ini, yang dapat diminta untuk metode ini , yang dapat ditanyakan sumbernya .

Pesona Rise , 17 byte

"3X4+kSq:l͍iS%%@

Cobalah online!

Hanya menggunakan standar quine untuk menghasilkan string program, kemudian menggunakan operator modulo berbasis string ¹ untuk mendapatkan karakter pada indeks yang diberikan (yang secara alami mendukung indeks negatif dan positif, perilaku yang dipengaruhi oleh Python).

1. _{Perintah ,"bagi" memotong string menjadi potongan-potongan (kebalikan yang cukup logis dari *menduplikasi waktu string x), +menggabungkan, dan -menghapus xkarakter dari akhir (kebalikan yang cukup logis dari +). Jadi %perintah mengambil peran charAt(x): satu-satunya operasi string dasar yang tersisa (setelah operasi stack-like ditangani oleh perintah yang sama yang berhubungan dengan stack; mis. lAdalah ukuran stack sehingga l͍panjang string).}

JavaScript (ES6), 28 byte

f=n=>("f="+f).substr(n%28,1)

Sebuah quine yang dimodifikasi.

Nilai yang lebih besar dari 28 ditangani oleh %28, nilai yang kurang dari 0 ditangani oleh .substr().