강도로서 경찰의 실에서 출력을 가져 와서 프로그램으로 실행할 때 제공된 원래 출력을 출력하는 아나그램을 찾는 것이 문제입니다.
우승자는이 질문에서 가장 유효한 균열이있는 사람이됩니다.
제공된 프로그램으로 안전하다고 표시된 답변을 해독 할 수 없습니다.
경찰이 의도 한 솔루션에 포함 된 언어를 제공하는 경우 해당 언어로 해당 언어를 해독해야합니다. 그렇지 않은 경우 다른 경쟁 언어로 해독 할 수 있습니다.
Quines의 표준 규칙이 적용됩니다.
균열은 완벽한 Quin이 아니어야합니다. 즉, 정확한 원본을 출력하지 말고 순서를 다시 정해야합니다 (순서는 경찰이 제공함).
답변:
0000000: 3235 362c 583e 3130 2d5b 445d 2f41 612a 256,X>10-[D]/Aa*
0000010: 3a63 6523 0102 0304 0506 0708 090b 0c0e :ce#............
0000020: 0f10 1112 1314 1516 1718 191a 1b1c 1d1e ................
0000030: 1f20 2122 2425 2627 2829 2b2e 3334 3738 . !"$%&'()+.3478
0000040: 393b 3c3d 3f40 4243 4546 4748 494a 4b4c 9;<=?@BCEFGHIJKL
0000050: 4d4e 4f50 5152 5354 5556 5759 5a5c 5e5f MNOPQRSTUVWYZ\^_
0000060: 6062 6466 6768 696a 6b6c 6d6e 6f70 7172 `bdfghijklmnopqr
0000070: 7374 7576 7778 797a 7b7c 7d7e 7f80 8182 stuvwxyz{|}~....
0000080: 8384 8586 8788 898a 8b8c 8d8e 8f90 9192 ................
0000090: 9394 9596 9798 999a 9b9c 9d9e 9fa0 a1a2 ................
00000a0: a3a4 a5a6 a7a8 a9aa abac adae afb0 b1b2 ................
00000b0: b3b4 b5b6 b7b8 b9ba bbbc bdbe bfc0 c1c2 ................
00000c0: c3c4 c5c6 c7c8 c9ca cbcc cdce cfd0 d1d2 ................
00000d0: d3d4 d5d6 d7d8 d9da dbdc ddde dfe0 e1e2 ................
00000e0: e3e4 e5e6 e7e8 e9ea ebec edee eff0 f1f2 ................
00000f0: f3f4 f5f6 f7f8 f9fa fbfc fdfe ff0a ..............
256, Push the range [0 ... 255].
X> Remove the first item (0).
10- Remove 10 (0x0a).
[D]/ Split at occurrences of 13 (0x0d).
Aa* Join, separating by 10 (0x0a).
:c Cast all integers to character.
e# Begins a comment, terminated by the linefeed at the very end.
()((((((()()()){}){}){})()){}{}){({}[()][((((((()()()()()){}){}){})()))]{})}{}((()()()){}()){({}[()][((((((()()()){}){}()){({}[()])}{})()()))]{})}{}((((()()()()){}){}()){}){({}[()][((((((((()()()()()){}){}){}())){}{})()()))]{})}{}
이것은 내가 예상했던 것보다 조금 더 쉬웠다.
각 유형의 버팀대를 인쇄하기 위해 3 개의 개별 루프를 작성했습니다.
(((((()()()){}){}){})()){}{}){({}[()][((((((()()()()()){}){}){})()))]{})}{}
((()()()){}()){({}[()][((((((()()()){}){}()){({}[()])}{})()()))]{})}{}
((((()()()()){}){}()){}){({}[()][((((((((()()()()()){}){}){}())){}{})()()))]{})}{}
<...>모나드 사용을 피하고 정직하게 사용하기 위해 표준 Mini-Flak 기술 을 사용했습니다.<> nilad .
내가 할 때 여분의 ()남은 것이 있기 때문에 이것은 Riley가 처음했던 것과 매우 유사했을 것 입니다. ()본질적으로 최상위 수준에서는 작동하지 않기 때문에 문제가되지 않으므로 프로그램 앞에 붙였습니다.
()모든 것을 맞추기 위해 여분의 것이 필요 했습니다. 잘 했어!
main=print$id=<<['|':[d]>>[d|i<-"$$'''',--..:<<<<====>>[[[[]]]]addddddiiiiiimnnprt|||",i==d]|d<-id['$'..]]
후행 줄 바꿈.
온라인으로 사용해보십시오!(모든 유니 코드 문자를 반복하므로 실행하는 데 몇 초가 필요합니다).
이 프로그램은있다 id(오른쪽 전에 ['$'..]프로그램 로직 필요하지 않습니다)하지만, 어떻게 든 난을 지출해야 i하고 d.
f= 'B7ofx)wdr0o{1{6{{r){1x0sD00qF1{{24}wr2wlo)y))xm2'; print''.join([r+chr(ord(r)-9)for r in f])일부 문자가 쌍으로 반복되는 것을 발견하면 문자 사이에 적절한 ASCII 맵을 찾는 것이 문제였습니다.
J+"J+J=JJ 1-2#pTN%"N #%2J=T-1pJJ
나는 Pyth를 잘 모르지만 필요한 출력을 인쇄하는 것으로 시작하여 거기에서 갔다.
+"J+J=JJ 1-2#pTN%"N # Add a '"' to the string in quotes
J # Assign result of above step to J
# # Start an infinite loop
%2J=T-1 # Loops one iteration, then breaks
# (I have no idea why this works)
pJ # Explicitly print J
J # Implicitly print J
93]_:c58]99]95]93]e__:c36]95]95]101]101]e_$_:c
93] # Push [93] onto the stack
_ # Copy
:c # Push ascii char 93 ']'
58 99 95 93 # Push these numbers...
] ] ] ] # Push entire stack as array
e__ # Flatten and copy
:c # Map ascii values to all elements
36]95]95]101]101] # Same as above
e_ # Flatten
$ # Sort
_ # Copy, implicitly print
:c # Map ascii values to all elements
# Implicitly print
a=['111111111123666667eeegggkkknnszEEGn};:;:'];
disp(['a=[''',a,'''];',10,[a-10,']);']]);dd
python 솔루션 과 매우 유사하여 ASCII 값을 남용하여 필요한 문자를 인쇄합니다.