Wyzwanie: Zaimplementuj ROT-47 w kodzie, który działa zarówno jako on sam, jak i jako jego wersja ROT-47.

Punktacja:

Twój wynik jest obliczany jako odsetek wykorzystanych bajtów ROT-47 ogółem obu wersji programu podzielony przez całkowitą liczbę bajtów (wszystkich znaków) obu wersji .

Używany, ROT-47 kwalifikuje bajt jest dowolny znak, który będzie przekształcony przez ROT-47 szyfru, który nie jest częścią komentarzu lub ignorowane przez kompilator / interpreter. Na przykład, dowolny znak w programie typu „pieprzenie mózgu”, który nie +-<>[],.jest uważany za używany bajt, a jakikolwiek znak w programie C, w tym i po nim //lub wewnątrz, /* */nie jest uważany za używany bajt. Wszystkie specjalne symbole w APL nie są uważane za używane, podobnie jak wszystkie znaki w programie Whitespace (przepraszam).

Więzi zostaną zerwane przez program z największą popularnością. Jeśli nadal jest remis, wygrywa najkrótszy program.

Przykład punktacji:

C: 62/64 = 96,875%

Zauważ, że w tym programie jest miejsce. Oczywiście ten program nie jest prawidłowym wpisem, ponieważ nawet się nie kompiluje, ale chciałem pokazać, jak działa ocenianie.

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

Rubinowy, 100% (74 znaków)

Wejście na STDIN, wyjście na STDOUT.

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

Druga linia to pierwsza linia ROT-47'd. Dlatego gdy ROT-47ing całego programu, staje się:

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

Moja strategia tutaj opiera się na tym, że:

• Vjest 'kiedy ROT-47'd

• jjest ;kiedy ROT-47'd

• Dlatego Vj=...Vj;zamienia się w ';l...';, co w zasadzie jest zakazem

  • Teraz możesz utworzyć dowolny dowolny kod, który robi wszystko normalnie i nie ma żadnych operacji po ROT-47. Wynika to z faktu, że Vj=...Vj;można obsługiwać dowolny kod tak, jak można to zrobić Vj=0;{INSERT ANY CODE};Vj;, i stanie się to, '...';gdy ROT-47'd. Musisz tylko uważać, aby nie używać Vtego kodu, ponieważ spowoduje to jego uszkodzenie.

• Podobną logikę można zastosować odwrotnie, aby uzyskać drugą połowę ( jVzamiast 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

Po przetłumaczeniu ROT-47 otrzymujemy

*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++);}}

Oba programy się kompilują, a ROT-47-tłumaczy pierwszy argument:

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

GolfScript, 120/120 bajtów = 100%

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

lub w ROT-47:

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

Brak komentarzy lub nadużyć ze względu na ciąg Niezdefiniowane polecenie LiUUbamUUZadckYLfZfZhcTbbZNYNT(które równa się reszcie kodu w ROT-47) nie działa, ale nadal jest wykonywane przez interpreter, więc uważam, że liczy się jako używane.

To było w rzeczywistości dość łatwe wyzwanie w GolfScript. Główną trudnością było uniknięcie cyfry 1, która jest odwzorowywana przez ROT-47 na polecenie GolfScript `. Polecenia ., -, ,, \, [, /, ]a ^także należało unikać, ale to było dość łatwo w tym przypadku, ponieważ zadanie nie wymagało budowy tablicy.

Premia:

Oto quine z okresu 2 w języku GolfScript (tj. Program, który drukuje drugi program, który drukuje ponownie pierwszy program), w którym oba programy są wzajemnie transformacjami ROT-47:

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

Ten program sam wysyła kodowanie ROT-47, uzyskując inny program GolfScript:

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

który z kolei sam również wysyła kodowanie ROT-47, co ponownie daje poprzedni program. Tak więc ten program jest również obrotowym quine .

python, 96,1% (?)

Zgodnie z Twoją definicją ciągi liczą się jako użyty kod?

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'