Thử thách

Trong tác vụ này, bạn phải viết chương trình sẽ nhập đầu vào một số nguyên N (-1e9 <= N <0 && 0 <N <= + 1e9) , sau đó tính T = (abs (N)% M + 1) , nếu N là dương sau đó xuất ký tự T-th từ đầu khác xuất ký tự T-th từ cuối nguồn của bạn.

M là kích thước của nguồn của bạn tính bằng byte.

Ví dụ: Nếu nguồn của bạn là:abcd efg/hi

Đầu vào:

 2

Đầu ra:

 c

Đầu vào :

-3

Đầu ra:

g 

Đầu vào :

-9249678

Đầu ra:

b 

Đầu vào :

-11

Đầu ra:

i 

Những ràng buộc

• Không sử dụng bất kỳ thao tác FILE nào
• Bạn có thể sử dụng bất kỳ ngôn ngữ nào bạn chọn
• Cố gắng tránh hoặc tốt hơn là không sử dụng đệ trình 1 byte, vì nó làm hỏng tất cả niềm vui.
• Giải pháp ngắn nhất sẽ thắng!

EDIT: Báo cáo sự cố đã được sửa đổi để có thể đánh giá các giải pháp bằng cách sử dụng dữ liệu thử nghiệm ngẫu nhiên (và cùng dữ liệu cho tất cả các giải pháp), do đó, vui lòng cập nhật giải pháp của bạn cho phù hợp, xin lỗi vì sự bất tiện (nếu có).

lắp ráp x86 (cú pháp 32-bit Linux, AT & T): 548

Không có dòng mới ở cuối tệp:

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 "

Tôi đã biên dịch nó với gcc -nostartfiles -m32 qc1.S -o qc1

Xác minh, số dương:

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

Xác minh, số âm:

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

Chỉnh sửa đã đúng về sơ đồ đánh số kỳ lạ. Tôi nghĩ. Nó không thay đổi độ dài.

Whaddaya biết, HQ9 + làm cho sự trở lại tuyệt vời của nó!

Q

Không cần bận tâm lập chỉ mục khi chỉ có một nhân vật để lựa chọn!

Ruby 1.9, 66 ký tự

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

Không có nhiều sự khác biệt với một quine bình thường, thực sự.

• Chỉnh sửa: Theo dõi các thông số kỹ thuật mới bây giờ.

GolfScript 26 ký tự

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

Quines đã vui hơn trước khi phát minh ra các ngôn ngữ động.

Chỉnh sửa: Đối với những người hay than vãn, đây là một câu đố GolfScript "thực", không có `và ~ chỉ được sử dụng để phân tích cú pháp đầu vào.

Khuyết tật GolfScript 44 ký tự

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

Lưu ý rằng nó độc đáo như thế nào với cùng một chuỗi được lặp lại hai lần, do đó, chuỗi ký tự chỉ cần một bản 'hack ở phía trước và nó đã sẵn sàng để sử dụng.

Chiều dài, 4 byte

Mã nguồn bao gồm 4 byte rỗng. Bất kể đầu vào, đầu ra do đó phải là một byte null, được thực hiện bằng một .lệnh.

Smalltalk, 94 90 59 52

ví dụ, trong lớp Object, biên dịch:

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

sau đó gửi q: <n> cho bất kỳ đối tượng nào; đây là một số nguyên:

xác minh:

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

hoặc tốt hơn:
(0 đến: 100) thu thập: [: n | 1 q: n] dưới dạng: Chuỗi
->')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 xuống To: -500) thu thập: [: n | 1 q: n] dưới dạng: Chuỗi
->')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('

giải thích cho những người không phải là Smalltalker:
thisContext là khung stack hiện tại, có thể được yêu cầu cho phương thức của nó , có thể được yêu cầu về nguồn của nó .

Bùa mê , 17 byte

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

Hãy thử trực tuyến!

Chỉ cần sử dụng quine tiêu chuẩn để tạo chuỗi chương trình, sau đó sử dụng toán tử modulo dựa trên chuỗi ¹ để lấy ký tự tại một chỉ mục nhất định (vốn hỗ trợ các chỉ thị tiêu cực và tích cực, hành vi bị ảnh hưởng bởi Python).

1. _{Lệnh ,"chia" cắt chuỗi thành nhiều phần (logic đủ nghịch đảo để *nhân đôi số xlần chuỗi ), +nối và -loại bỏ các xký tự từ cuối (một nghịch đảo đủ logic +). Vì vậy, %lệnh này đóng vai trò charAt(x): hoạt động chuỗi cơ bản duy nhất còn lại (sau khi các hoạt động giống như ngăn xếp được xử lý bởi cùng các lệnh liên quan đến ngăn xếp, ví dụ: llà kích thước của ngăn xếp l͍có độ dài của chuỗi).}

JavaScript (ES6), 28 byte

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

Một quine sửa đổi.

Giá trị lớn hơn 28 được xử lý bởi %28, giá trị nhỏ hơn 0 được xử lý bởi .substr().