ที่เห็นได้ชัดrip-offของrip-off ลงคะแนนโหวตเหล่านั้น!

งานของคุณถ้าคุณต้องการที่จะยอมรับมันคือการเขียนโปรแกรม / ฟังก์ชั่นที่เอาท์พุท / ส่งกลับจำนวนเต็ม / อาร์กิวเมนต์ของมัน ส่วนที่ยุ่งยากคือถ้าฉันย้อนกลับซอร์สโค้ดของคุณผลลัพธ์จะต้องเป็นจำนวนเต็มต้นฉบับเมื่อตะกี้

ตัวอย่าง

สมมติว่ารหัสที่มาของคุณและใส่ของมันคือABC 4ถ้าผมเขียนแทนและเรียกใช้การส่งออกจะต้องมีCBA-4

สมมติว่ารหัสที่มาของคุณและใส่ของมันคือABC -2ถ้าผมเขียนแทนและเรียกใช้การส่งออกจะต้องมีCBA2

การป้อนข้อมูลของ0อาจจะให้0หรือ-0อย่างไรถ้าคุณทำลงนามการสนับสนุนศูนย์ควรให้-00

PowerShell , 18 14 ไบต์

$args#"sgra$"-

ลองออนไลน์! ! enilno ti yrT

ครั้งแรกของคำตอบการละเมิดความคิดเห็นเล็กน้อย

J , 3 ไบต์

-&0

ลองออนไลน์!

-&0 คือ "อาร์กิวเมนต์ลบ 0"

0&- คือ "0 ลบอาร์กิวเมนต์"

JavaScript ขนาด 11 ไบต์

n=>n//n->=n

ลองออนไลน์! | ย้อนกลับ

รหัสเครื่อง x86, 3 ไบต์

C3 D8 F7

ไบต์ของโค้ดด้านบนจะกำหนดฟังก์ชั่นที่เป็น no-op: มันแค่คืนค่าการควบคุมไปยังผู้เรียก ฟังก์ชั่นนั้นตามมาด้วยสองไบต์ขยะที่จะไม่ถูกประหารเพราะพวกเขากลับมาหลังจากที่พวกเขากลับมา - พวกเขาอยู่ใน "ไม่มีดินแดนของมนุษย์" ในตัวช่วยจำแอสเซมเบลอร์:

ret                     ; C3    
fdiv  st(0), st(7)      ; D8 F7

ตกลงดังนั้นตอนนี้โทรลล์มาด้วยและย้อนกลับคำสั่งของไบต์:

F7 D8 C3

ไบต์เหล่านี้กำหนดฟังก์ชันที่รับอาร์กิวเมนต์จำนวนเต็มในการEAXลงทะเบียนคัดค้านและส่งคืนการควบคุมไปยังผู้เรียก ในตัวช่วยจำแอสเซมเบลอร์:

neg  eax     ; F7 D8
ret          ; C3

ดังนั้น…มันง่าย :-)

โปรดทราบว่าเราสามารถทำให้คำสั่ง "การปฏิเสธ" เป็นสิ่งที่เราต้องการได้เนื่องจากจะไม่ถูกดำเนินการในการวางแนว "ไปข้างหน้า" และดำเนินการในการวางแนว "ย้อนกลับ" เท่านั้น ดังนั้นเราสามารถทำตามรูปแบบเดียวกันเพื่อทำสิ่งที่ซับซ้อนกว่าโดยพลการ ตัวอย่างเช่นที่นี่เรารับอาร์กิวเมนต์จำนวนเต็มในการลงทะเบียนที่แตกต่างกัน (เช่นEDI, เพื่อทำตามแบบแผนการเรียกของ System V ที่ใช้กันทั่วไปในระบบ * nix), ปฏิเสธมันและส่งคืนในEAXรีจิสเตอร์ทั่วไป:

C3      ret
D8 F7   fdiv  st(0), st(7)      ;  \ garbage bytes that
F8      clc                     ;  | never get executed,
89      .byte 0x89              ;  / so nobody cares

  ↓↓

89 F8   mov  eax, edi
F7 D8   neg  eax
C3      ret

เยลลี่ 2 ไบต์

oN

ลองออนไลน์! และมันตรงกันข้าม

oN - (input) OR ((input) negated)

No - ((input) negated) OR (input)

Haskellขนาด 8 ไบต์

ฟังก์ชั่นเอกลักษณ์ที่ไม่ระบุชื่อกลายเป็นการลบจาก0เมื่อกลับด้าน

id--)-0(

ลองออนไลน์!

ย้อนกลับ

(0-)--di

ลองออนไลน์!

ช่องว่างขนาด 48 ไบต์

S S S N
S N
S T N
T   T   T   T   T   T   N
S T N
N
N
T   S N
T   N
S S T   N
T   T   S S T   T   T   T   T   N
T   S N
S N
S S S 

เพิ่มตัวอักษรS(ช่องว่าง), T(แท็บ) และN(บรรทัดใหม่) เป็นการเน้นเท่านั้น

การแก้ไขเล็กน้อยของคำตอบของช่องว่างของฉันสำหรับฉันกลับซอร์สโค้ดคุณลบล้างผลลัพธ์! ท้าทาย

ลองออนไลน์หรือลองย้อนกลับทางออนไลน์ (ด้วยพื้นที่ว่างเปล่าแท็บและบรรทัดใหม่เท่านั้น)

คำอธิบาย:

ใช้ออกจากโปรแกรม builtin เป็น NNNpalindrome
โปรแกรมปกติจะ:

SSSN   # Push 0 to the stack
SNS    # Duplicate it
TNTT   # Read STDIN as integer, and store it at heap address 0
TTT    # Retrieve the input from heap address 0, and push it to the stack
TNST   # Pop and print the top of the stack as number
NNN    # Exit the program, making everything after it no-ops

โปรแกรมย้อนกลับจะ:

SSSN   # Push 0 to the stack
SNS    # Duplicate it
TNTT   # Read STDIN as integer, and store it at heap address 0
TTT    # Retrieve the input from heap address 0, and push it to the stack
SSTTN  # Push -1 to the stack
TSSN   # Multiply the top two values on the stack together
TNST   # Pop and print the top of the stack as number
NNN    # Exit the program, making everything after it no-ops

คำอธิบายเพิ่มเติมเล็กน้อยเกี่ยวกับการกดตัวเลข:

• ครั้งแรกS: เปิดใช้งานการจัดการกองซ้อน
• ที่สองS: กดตัวเลขไปที่สแต็ก
• SหรือT: บวก / ลบตามลำดับ
• บางส่วนS/ Tตามด้วย trailing N: number ใน binary, ที่ไหนS=0และT=1

เช่นดันSSTTSTSN -10สำหรับ0เราไม่จำเป็นต้องมีความชัดเจนS=0ดังนั้นก็เพียงพอSSSNหรือSSTNไม่

Perl 6 / Raku, 3 ไบต์

*-0

ลองออนไลน์!

สร้างบล็อกรหัสอะไรก็ตาม อ่านในบล็อกปกติเทียบเท่ามาตรฐานคือแต่ในกลับมันจะกลายเป็น -> \x {x - 0}-> \x {0 - x}

C (เสียงดังกราว) 23 ไบต์

f(*x){}//};x*-=x*{)x*(g

ลองออนไลน์!

Brain-Flakขนาด 7 ไบต์

#)]}{[(

ลองออนไลน์!

ย้อนกลับ

([{}])#

ลองออนไลน์!

หมายเหตุ: ใช้งานได้เฉพาะกับล่ามที่รองรับความคิดเห็น (เช่นทำงานใน Rain-Flak แต่ไม่ใช่ใน BrainHack)

หากเราสลับการเปิด / ปิดวงเล็บแทนการย้อนกลับไบต์เราสามารถทำได้ใน 8 ไบต์โดยไม่ต้องใช้ความคิดเห็น:

({}[{}])

ลองออนไลน์!
ลองย้อนกลับ!

เขาวงกต / Hexagony , 6 ไบต์

เขาวงกต:

?!@!`?

ลองออนไลน์! และมันตรงกันข้าม

Hexagony:

?!@!~?

ลองออนไลน์! และมันตรงกันข้าม

อย่างไร?

?       - take a signed integer
(` / ~) - negate
!       - output top-of-stack / current-memory-edge
@       - exit

Python 3 , 22 ไบต์

lambda x:x#x-:x adbmal

ลองออนไลน์!

แลมบ์ดาซึ่งใช้ฟังก์ชันตัวตน (หรือการปฏิเสธ)

MarioLANGขนาด 22 ไบต์

;:
=#
:)!
--
<(
"
[>
;

ลองออนไลน์!

เขาเพียงแค่ป้อนและเอาท์พุทตัวเลขก่อนที่เขาจะตกถึง EOF

ย้อนกลับ

;
>[
"
(<
--
!):
#=
:;

ลองออนไลน์!

เขาวนซ้ำจนกว่าค่าอินพุตจะเป็น 0 และค่าเอาต์พุตคือ -input เขาจะบอกหมายเลข

R , 23 ไบต์

ฉันตัดสินใจที่จะปล่อยมันไปโดยไม่มีเคล็ดลับแสดงความคิดเห็น

ข้างหน้า

`+`=scan;""+-0;nacs=`+`

ลองออนไลน์!

ย้อนกลับ

`+`=scan;0-+"";nacs=`+`

ลองออนไลน์!

ในเวอร์ชั่นไปข้างหน้า+จะทำหน้าที่เป็นตัวดำเนินการไบนารีและ-เป็นตัวดำเนินการเอก

ในสิ่งที่ตรงกันข้าม+จะกลายเป็นเอกภาพและ-เป็นฐานสอง ดังนั้นฟังก์ชั่นสแกนจะใช้อาร์กิวเมนต์: file=""ซึ่งหมายถึง stdin และwhat=0ซึ่งเป็นค่าเริ่มต้น ดังนั้นเมื่อ+ไม่มีเอกภาพอาร์กิวเมนต์แรกอยู่ทางด้านขวาเมื่อเป็นไบนารี่อาร์กิวเมนต์แรกจะอยู่ทางซ้าย

;nacs=`+`

ส่วนหนึ่งของรหัสไม่มีประโยชน์อะไรจริง ๆ ดังนั้นในแง่ที่ว่าโค้ดของฉันไม่ถูกต้องมากกว่าการใช้เคล็ดลับความคิดเห็น

Haskell ขนาด 12 ไบต์

f=id;x-0=x f

ลองออนไลน์! ย้อนกลับ:

f x=0-x;di=f

ลองออนไลน์!

ไม่สั้นเท่ากับคำตอบของØrjan Johansenแต่ไม่มีความคิดเห็น

Perl 5 ( -p), 7 6 ไบต์

-1 ต้องขอบคุณ @primo

$_*=$#

TIO

ความคิดเห็นไม่เปลี่ยนอินพุต

#1-=*_$

ปฏิเสธอินพุต

$_*=-1#

TIO

Gaia 2 ไบต์

_@

ลองออนไลน์!

_	| implicit push input and negate
 @	| push next input OR push last input (when all inputs have been pushed)
	| implicit print TOS

ย้อนกลับ

@	| push input
 _	| negate
	| implicit print TOS

แบ็คแฮนด์ , 6 5 ไบต์

I@-Ov

ลองออนไลน์! ลองสองเท่า!

สร้างความซับซ้อนเล็กน้อยเนื่องจากลักษณะของตัวชี้ในแบ็คแฮนด์ ฉันไม่คิดว่ามันเป็นไปได้ที่จะได้ฮ่าฮ่าสั้นกว่านี้กลับกลายเป็นว่าฉันผิด สิ่งนี้จะไม่ทำซ้ำคำสั่งและนำทั้งคำสั่ง input, output และยุติระหว่างสองโปรแกรม ตอนนี้ฉันคิดว่ามันดีที่สุดเนื่องจากคุณต้องการIO-@คำสั่งทั้งหมดในการทำงานและในโปรแกรมขนาด 4 ไบต์คุณสามารถเรียกใช้คำสั่งสองคำสั่งเหล่านี้ได้เท่านั้น

คำอธิบาย:

ตัวชี้ในแบ็คแฮนด์จะเคลื่อนที่ไปที่ขีดของเซลล์สามเซลล์และทำเครื่องหมายออกจากขอบเขตของเซลล์ซึ่งหมายความว่าตรรกะทั่วไปซ้อนทับกัน อย่างไรก็ตามคุณสามารถควบคุมความเร็วนี้ด้วยคำสั่งvและ^

โปรแกรมต้นฉบับดำเนินการตามคำสั่งIO-@ซึ่งเป็นอินพุตเป็นตัวเลขเอาต์พุตเป็นตัวเลขลบลบออก เห็นได้ชัดว่าการลบนั้นไม่จำเป็น ในรหัสเหล่านี้คือ:

I@-Ov
^  ^    Reflect
  ^     Reflect again
 ^

v-I-vO-@รันโปรแกรมตรงกันข้าม การvลดขั้นตอนของตัวชี้ระหว่างเห็บและการ-ลบออกจากด้านล่างของสแต็กซึ่งเป็นศูนย์โดยปริยาย -คำสั่งพิเศษไม่ทำอะไรเลย โปรแกรมดำเนินการเช่น

vO-@I
v       Reduce pointer speed to 2
  -     Subtract zero from zero
    I   Get input as number and reflect off boundary
  -     Subtract input from zero
v       Reduce pointer speed to 1
 O      Output as number
  -     Subtract zero from zero
   @    Terminate

ภาษา Wolfram (Mathematica)ขนาด 9 ไบต์

1&0+#-0&1

ลองออนไลน์!

ไปข้างหน้า: อ่าน((1)&*0+#-0)&*1=#&

ย้อนกลับ: read ((1)&*0-#+0)&*1=-#&

R , 14 ไบต์

scan()#)(nacs-

ลองออนไลน์!

โปรแกรมเต็มรูปแบบที่อ่านตัวเลขหรืออ่านและปฏิเสธตัวเลข ฟังก์ชั่นย้อนกลับได้รับการคุ้มครองโดยความคิดเห็นแบบอินไลน์

Python 3 , 22 14 ไบต์

int#__bus__. 0

ลองออนไลน์!

ใช้intConstructor ของคลาสและวิธีการหลอกส่วนตัวในตัว

05AB1E , 2 ไบต์

(I

ลองออนไลน์!

ย้อนกลับ

(    negates nothing
  I  pushes input

I    pushes input
  (  negates input

Befunge-98 (FBBI) , 6 ไบต์

&.@.-&

ลองออนไลน์! ลองย้อนกลับ!

APL (Dyalog Unicode) , 13 3 ไบต์

-∘0

ลองออนไลน์!

คำตอบเล็กน้อย ผลตอบแทนหรือarg¯arg

บันทึก 10 ไบต์โดยไม่เป็นใบ้ (ขอบคุณAdám)

แก้ไข 3-byter ที่ได้ให้เป็นฟังก์ชันที่เหมาะสมยิ่งขึ้น

ทัวริงภาษาเครื่อง 39 ไบต์

ในเชิงบวก

1 r - _ 0
0 l * * 0
0 - _ l 0
0 _ _ r 0

เชิงลบ

0 r _ _ 0
0 l _ - 0
0 * * l 0
0 _ - r 1

อันนี้ค่อนข้างยุ่งยากกว่าที่ฉันคิดส่วนใหญ่เป็นเพราะฉันต้องผ่านอคติของฉันที่มีรหัสที่ทำงานด้วยข้อผิดพลาด 'รวบรวม'

> <> , 5 4 ไบต์

n-r0

ใช้การเริ่มต้นสแต็กกับ-vตัวเลือกวางตัวแปรอินพุตของคุณที่นั่น

ลองออนไลน์!

หรือลองกลับรายการ

คำอธิบาย

n       Prints whatever is on the stack as a number
 -      Subtract the top 2 elements on the stack.
        There aren't 2 elements, so it crashes.
  r0    Never gets executed

or reversed:

0       Push a 0 onto the stack
 r      reverse the stack (now 0, -v)
  -     Subtract top 2 elements and push result (0-v, ie negated)
   n    Print as number
        The code wraps around and executes again. 
        It crashes on the - as there is only one
        item on the stack: 0.

Stack Cats -mnขนาด 2 ไบต์

-X

ลองออนไลน์!

ลองย้อนกลับ!

คำอธิบาย

ปรากฎว่าสิ่งนี้ง่ายกว่าการท้าทายครั้งก่อนใน Stack Cats โปรแกรมเต็มรูปแบบ (หลังจากใช้-m) -X-ที่นี่คือ Xใช้ในการสลับสแต็คทางซ้ายและขวาของหัวเทปนั่นคือไม่มีผลกับสแต็กเริ่มต้นเลยเราสามารถข้ามได้ แต่แล้วโปรแกรมก็มีประสิทธิภาพเพียง--(ลบล้างส่วนบนสุดของสแต็กสองครั้ง) ซึ่งไม่ทำอะไรเลย

สำหรับโปรแกรมผกผันใช้ให้-m X-Xอีกครั้งXไม่ทำอะไรเลยดังนั้นโปรแกรมจึงมีประสิทธิภาพเพียง-ซึ่งขัดแย้งกับส่วนบนสุดของสแต็ก

โซลูชัน 2 ไบต์อื่น ๆ เท่านั้น-=แต่ก็เหมือนกันทุกประการ ความแตกต่างเพียงอย่างเดียวคือการ=แลกเปลี่ยนเฉพาะยอดของกองที่อยู่ติดกันไม่ใช่กองทั้งหมด

แต่อีกครั้งการใช้-mรู้สึกเหมือนโกงดังนั้นด้านล่างเป็นโซลูชันที่ใช้โปรแกรมที่มิเรอร์ทั้งหมด

Stack Cats -nขนาด 7 ไบต์

:I<->I:

ลองออนไลน์!

ลองย้อนกลับ!

คำอธิบาย

การพิจารณาจากคำตอบก่อนหน้านี้ยังคงใช้ : ความต้องการใด ๆ Iวิธีการแก้ปัญหาที่ถูกต้องที่จะใช้ตัวละครที่จับคู่และ โซลูชั่นที่เป็นไปได้หกประการ (รวมอยู่ในลิงค์ TIO) เหมือนกันหมด -และ_เทียบเท่าในโปรแกรมนี้และ:สามารถถูกแทนที่ด้วย|หรือT(ซึ่งทำเช่นเดียวกันสำหรับอินพุตที่ไม่เป็นศูนย์ ฉันเพิ่งเลือกอันนี้เพื่ออธิบายเพราะมันง่ายที่สุด

ดังนั้นโปรดจำไว้ว่าสแต็กเริ่มต้นเก็บอินพุตไว้ที่ด้านบนของ-1(ด้านบนของศูนย์จำนวนมากอนันต์) ในขณะที่สแต็คอื่น ๆ ตามเทปจะเก็บค่าศูนย์ไว้เท่านั้น Stack Cats ยังมีคุณสมบัติที่โปรแกรมที่มีความยาวเท่ากันไม่ได้ทำอะไรเลย (หากมันถูกยกเลิก แต่เราไม่สามารถใช้ลูปสำหรับความท้าทายนี้ได้) จากนั้นก็เหมือนกันจริงสำหรับโปรแกรมที่มีความยาวคี่ซึ่งตัวละครศูนย์กลางไม่ได้ทำอะไรเลย ... ลองดู:

:    Swap the input with the -1 below.
I    Move the -1 one stack to the left and turn it into +1.
<    Move another stack left (without taking the value).
-    Negate the zero on top of that stack (i.e. do nothing).

ดังนั้นช่วงครึ่งหลังของโปรแกรมจะเป็นการยกเลิกครึ่งแรกและเราก็จบลงด้วยอินพุตที่ด้านบนของ-1อีกครั้ง

:I>-<I:โปรแกรมที่ตรงกันข้ามคือ มาดูกันว่าการเปลี่ยนแปลงสิ่งต่าง ๆ :

:    Swap the input with the -1 below.
I    Move the -1 one stack to the left and turn it into +1.
>    Move one stack right, i.e. back onto the initial stack which still holds the input.
-    Negate the input.
<    Move back to the left where we've parked the 1.
I    Move that 1 back onto the initial stack and turn it back into a -1.
:    Swap the -1 below the negated input to act as an EOF marker.

แบตช์ 34 ไบต์

@ECHO.%1 2>MER@
@REM>2 1%=-aa/TES@

Echoes ( ECHO.) อินพุต ( %1) ส่วนที่เหลือของบรรทัดแรกเปลี่ยนเส้นทางทางเทคนิคไปSTDERRยังไฟล์ที่เรียกว่าMER@แต่สิ่งนี้ไม่ส่งผลกระทบ
บรรทัดที่สองถูกใส่เครื่องหมาย ( REM...)

ย้อนกลับ

@SET/aa-=%1 2>MER@
@REM>2 1%.OHCE@

ใช้โหมดเลขคณิตของตั้งค่าคำสั่ง ( SET /a) ลบ ( -=) การป้อนข้อมูล ( %1) จากตัวแปรที่ไม่ได้กำหนด ( a) 0 - inputซึ่งเทียบเท่ากับ อีกครั้งส่วนที่เหลือของบรรทัดแรกเปลี่ยนเส้นทางทางเทคนิคไปSTDERRยังไฟล์ที่เรียกว่าMER@แต่สิ่งนี้ไม่ส่งผลกระทบ
บรรทัดที่สองถูกใส่เครื่องหมาย ( REM...)

Brachylogขนาด 2 ไบต์

&ṅ

Brachylog ปริยายอินพุตจากด้านซ้ายและเอาต์พุตจากทางขวา
&ละเว้นสิ่งใดไปทางซ้ายและส่งผ่านอินพุตไปยังฟังก์ชันทางขวา
ṅบังคับให้แต่ละด้านของมันเป็นรุ่นที่ถูกทำให้ไร้ลักษณะของกันและกัน

ลองออนไลน์

สามเหลี่ยม , 8 7 ไบต์

$%%.|.$

ลองออนไลน์!

Ungolfed:

   $           | $: Read an Integer
  % %          | %: Output it
 . | .
$

ย้อนกลับ

$.|.%%$

ลองออนไลน์!

รุ่นก่อนหน้า (8 ไบต์):

$.%..|.$