ถาม: ใช้ROT-47ในโค้ดที่ใช้งานได้ทั้งตัวมันเองและตัว ROT-47

เกณฑ์การให้คะแนน:

คะแนนของคุณจะคำนวณเป็นเปอร์เซ็นต์ของใช้ ROT-47 ไบต์ที่มีสิทธิ์ในการรวมของทั้งสองรุ่นของโปรแกรมโดยแบ่งไบต์รวม (ตัวละครทั้งหมด) ของทั้งสองรุ่น

ใช้ ROT-47 ไบต์มีสิทธิ์เป็นตัวละครใด ๆ ที่จะได้รับการแปลงโดยเน่า-47 ตัวเลขที่ไม่ได้เป็นส่วนหนึ่งของการแสดงความคิดเห็นหรือละเว้นโดยคอมไพเลอร์ / ล่าม ตัวอย่างเช่นอักขระใด ๆ ในโปรแกรม brainfuck ที่+-<>[],.ไม่ถือเป็นไบต์ที่ใช้แล้วและอักขระใด ๆ ในโปรแกรม C รวมถึงและหลังจาก//หรือภายใน/* */จะไม่ถือว่าเป็นไบต์ที่ใช้ สัญลักษณ์พิเศษทั้งหมดใน APL ไม่ได้รับการพิจารณาว่าใช้เช่นเดียวกับตัวละครทั้งหมดในโปรแกรม Whitespace (ขออภัย)

ความสัมพันธ์จะถูกทำลายโดยโปรแกรมที่มี upvotes มากที่สุด หากยังมีการเสมอกันโปรแกรมที่สั้นที่สุดจะชนะ

ตัวอย่างการให้คะแนน:

C: 62/64 = 96.875%

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

main(){printf("Hello World!");}

Ruby, 100% (74 ตัวอักษร)

อินพุตบน STDIN, เอาต์พุตบน STDOUT

Vj=s=gets;puts(s.tr'!-~','P-~!-O');Vj;'lDl86EDjAFEDWD]ECVP\OV[V!\OP\~VXj;'

บรรทัดที่สองคือบรรทัดแรก ROT-47'd ดังนั้นเมื่อ ROT-47ing โปรแกรมทั้งหมดมันจะกลายเป็น:

';lDl86EDjAFEDWD]ECVP\OV[V!\OP\~VXj';jV=s=gets;puts(s.tr'!-~','P-~!-O');jV

กลยุทธ์ของฉันที่นี่ขึ้นอยู่กับข้อเท็จจริงที่ว่า:

• Vคือ'เมื่อ ROT-47 ได้

• jคือ;เมื่อ ROT-47 ได้

• ดังนั้นVj=...Vj;จะกลายเป็น';l...';ซึ่งเป็นหลักไม่มี -op

  • ตอนนี้คุณสามารถสร้างรหัสโดยพลการใด ๆ ที่ทำอะไรได้ตามปกติและไม่มีตัวเลือกเมื่อ ROT-47 ต้องการ นี่เป็นเพราะVj=...Vj;สามารถรองรับการเรียกใช้รหัสใด ๆ ที่คุณสามารถทำได้Vj=0;{INSERT ANY CODE};Vj;และนั่นจะกลายเป็น'...';เมื่อ ROT-47 ต้องการ คุณเพียงแค่ต้องระวังไม่ให้ใช้Vในโค้ดนั้นเพราะมันจะทำลายมัน

• ตรรกะที่คล้ายกันสามารถใช้ในการกลับด้านเพื่อสร้างครึ่งหลัง ( jVแทนVj)

C - 54.6%

Y;BW;XL;jNj;AW(){XL^Y;};main(int i,char**v){char*x=v[1];while(*x){if(*x>32&&*x<128)*x=(*x+15)%94+32;putchar(*x++);}}//Y^Nj>2:?W:?E :[492CYYGXL492CYIlG,`.jH9:=6WYIXL:7WYImbaUUYIk`agXYIlWYIZ`dXThcZbajAFE492CWYIZZXjNN

เมื่อแปล ROT-47 แล้วเราจะได้

*jq(j){j;};jp(WXL){/*jNj>2:?W:?E :[492CYYGXL492CYIlG,`.jH9:=6WYIXL:7WYImbaUUYIk`agXYIlWYIZ`dXThcZbajAFE492CWYIZZXjNN^^*/};main(int i,char**v){char*x=v[1];while(*x){if(*x>32&&*x<128)*x=(*x+15)%94+32;putchar(*x++);}}

ทั้งสองโปรแกรมรวบรวมและ ROT-47- แปลอาร์กิวเมนต์แรก:

$ ./a "hello world"
96==@ H@C=5

GolfScript, 120/120 ไบต์ = 100%

{:&&32>&&+254<*{7+7+94%33+}*}%LiUUbamUUZadckYLfZfZhcTbbZNYNT

หรือใน ROT-47:

LiUUbamUUZadckYLfZfZhcTbbZNYNT{:&&32>&&+254<*{7+7+94%33+}*}%

ไม่มีความคิดเห็นหรือการละเมิดสตริง คำสั่งไม่ได้กำหนดLiUUbamUUZadckYLfZfZhcTbbZNYNT(ซึ่งเท่ากับส่วนที่เหลือของรหัสใน ROT-47) เป็นแบบไม่มี op แต่มันก็ยังคงได้รับการดำเนินการโดยล่ามดังนั้นฉันเชื่อว่ามันนับเป็นใช้

นี่เป็นความท้าทายที่ง่ายมากใน GolfScript ปัญหาหลักคือในการหลีกเลี่ยงหลัก1ซึ่งเป็นแมปโดยเน่า-47 `เข้าไปในคำสั่ง คำสั่ง., -, ,, \, [, /, ]และ^ยังมีการหลีกเลี่ยงได้ แต่ที่ค่อนข้างง่ายในกรณีนี้เนื่องจากงานที่จำเป็นในการสร้างอาร์เรย์ไม่มี

โบนัส:

ต่อไปนี้เป็น GolfScript period-2 quine (เช่นโปรแกรมที่พิมพ์โปรแกรมที่สองที่พิมพ์โปรแกรมแรกอีกครั้ง) โดยที่ทั้งสองโปรแกรมนั้นเป็นการแปลง ROT-47 ของกันและกัน:

{`'0$~'+.{7+7+94%33+}%@!{0$@@;}*}0$~L1V_SOVZ]LfZfZhcTbbZNToPL_SoojNYN_SO

โปรแกรมนี้มีการเข้ารหัส ROT-47 เพื่อให้โปรแกรม GolfScript อื่นทำงาน:

L1V_SOVZ]LfZfZhcTbbZNToPL_SoojNYN_SO{`'0$~'+.{7+7+94%33+}%@!{0$@@;}*}0$~

ซึ่งในทางกลับกันก็เอาท์พุทตัวเองเข้ารหัส ROT-47 ทำให้โปรแกรมก่อนหน้าอีกครั้ง ดังนั้นโปรแกรมนี้ยังเป็นควินหมุน

หลาม, 96.1% (?)

ตามคำจำกัดความของคุณสตริงจะนับเป็นรหัสที่ใช้หรือ

V=input();print("".join([chr(33+(ord(V[i])+14)%94)for i in range(len(V))]));V
'l:?AFEWXjAC:?EWQQ];@:?W,49CWbbZW@C5WD,:.XZ`cXThcX7@C : :? C2?86W=6?WDXX.XXj'