작업을 수락하려면 바이너리 UTF-8 표현 으로 자체 소스 코드를 출력하는 프로그램을 작성해야합니다 .

규칙

• 소스의 길이는 1 바이트 이상이어야합니다.

• 프로그램은 입력을 받지 않아야합니다 (또는 사용되지 않은 빈 입력이 없어야합니다 ).

• 출력은 모든 형식이 될 수 있습니다.

• 선택적 후행 줄 바꿈이 허용됩니다.

• 1 바이트는 8 비트이며 이진 UTF-8 표현의 길이는 8의 배수 여야합니다.

• 이것은 코드 골프 이므로 모든 일반적인 골프 규칙이 적용되며 가장 짧은 코드 (바이트)가 이깁니다.

• 표준 허점 은 금지되어 있습니다.

예

소스 코드가 Aä$$€h해당 UTF-8 이진 표현 이라고 가정 해 봅시다 010000011100001110100100001001000010010011100010100000101010110001101000.

내가 실행 Aä$$€h하면 출력은이어야합니다 010000011100001110100100001001000010010011100010100000101010110001101000.

A      --> 01000001
ä      --> 1100001110100100
$      --> 00100100
$      --> 00100100
€      --> 111000101000001010101100
h      --> 01101000
Aä$$€h --> 010000011100001110100100001001000010010011100010100000101010110001101000

문자열을 이진 UTF-8 변환기로

• 온라인으로 사용해보십시오!

• utf8 변환

V , 28 (또는 16?) 라틴어 1 바이트 (35 UTF-8 바이트)

ñéÑ~"qpx!!xxd -b
ÎdW54|D
Íßó

온라인으로 사용해보십시오!

16 진수 덤프 (라틴어 1) :

00000000: f1e9 d17e 2271 7078 2121 7878 6420 2d62  ...~"qpx!!xxd -b
00000010: 0ace 6457 3534 7c44 0acd dff3            ..dW54|D....

출력 (라틴어 1이 아닌 UTF-8에서 동일한 코드의 이진 표현) :

110000111011000111000011101010011100001110010001011111100010001001110001011100000111100000100001001000010111100001111000011001000010000000101101011000100000110111000011100011100110010001010111001101010011010001111100010001000000110111000011100011011100001110011111110000111011001100001010

설명:

ñéÑ~"qpx            " Standard quine. Anything after this doesn't affect the
                    " program's 'quine-ness' unless it modifies text in the buffer
        !!xxd -b    " Run xxd in binary mode on the text
Î                   " On every line...
 dW                 "   delete a WORD
   54|              "   Go to the 54'th character on this line
      D             "   And delete everything after the cursor
Í                   " Remove on every line...
  ó                 "   Any whitespace
 ß                  "   Including newlines

또는...

V , 16 바이트

ñéÑ~"qpx!!xxd -b

온라인으로 사용해보십시오!

산출:

00000000: 11000011 10110001 11000011 10101001 11000011 10010001  ......
00000006: 01111110 00100010 01110001 01110000 01111000 00100001  ~"qpx!
0000000c: 00100001 01111000 01111000 01100100 00100000 00101101  !xxd -
00000012: 01100010 00001010                                      b.

OP는 말했다 :

출력은 편리한 형식 일 수 있습니다.

이것은 V : P에 대해 훨씬 편리한 형식으로 출력됩니다 (그러나 규칙을 확장하는지 확실하지 않습니다)

CJam , 20 바이트

{s"_~"+{i2b8Te[}%}_~

온라인으로 사용해보십시오!

CJam이 우승하는 것을보고 놀랐습니다! _{우리는 그것이 얼마나 오래 지속되는지 볼 것입니다 ...}

05AB1E , 105 바이트

0"D34çýÇbεDg•Xó•18в@ƶà©i7j0ìëR6ôRíć7®-jšTìJ1®<×ì]ð0:J"D34çýÇbεDg•Xó•18в@ƶà©i7j0ìëR6ôRíć7®-jšTìJ1®<×ì]ð0:J

05AB1E에는 UTF-8 변환 내장 기능이 없으므로 모든 작업을 수동으로 수행 해야합니다 .

온라인으로 시도 하거나 quine 인지 확인 하십시오 .

설명:

quine- part :

최단 quine : 05AB1E 대한이 하나 0"D34çý"D34çý( 14 바이트 ) 에 의해 제공 @OliverNi . 내 대답은 ...여기에 다음 을 추가하여 해당 quine의 수정 된 버전을 사용합니다 0"D34çý..."D34çý.... 이 quine에 대한 간단한 설명 :

0               # Push a 0 to the stack (can be any digit)
 "D34çý"        # Push the string "D34çý" to the stack
        D       # Duplicate this string
         34ç    # Push 34 converted to an ASCII character to the stack: '"'
            ý   # Join everything on the stack (the 0 and both strings) by '"'
                # (output the result implicitly)

도전 과제 :

이제 코드의 챌린지 부분입니다. 위에서 언급했듯이 05AB1E에는 UTF-8 변환 내장 기능이 없으므로 이러한 작업을 수동으로 수행해야합니다. : 그 작업을 수행하는 방법에 대한 참조로이 소스를 사용했습니다 수동으로 UTF-8과 UTF-16으로 유니 코드 코드 포인트로 변환을 . 다음은 유니 코드 문자를 UTF-8로 변환하는 것에 대한 간단한 요약입니다.

1. (즉, 자신의 유니 코드 값을 유니 코드 문자로 변환 "dЖ丽"됩니다 [100,1046,20029])
2. (즉, 이진 이러한 유니 코드 값을 변환 [100,1046,20029]된다 ["1100100","10000010110","100111000111101"])
3. 다음 범위 중 문자 범위를 확인하십시오.
   1. 0x00000000 - 0x0000007F (0-127) : 0xxxxxxx
   2. 0x00000080 - 0x000007FF (128-2047) : 110xxxxx 10xxxxxx
   3. 0x00000800 - 0x0000FFFF (2048-65535) : 1110xxxx 10xxxxxx 10xxxxxx
   4. 0x00010000 - 0x001FFFFF (65536-2097151) : 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx

5 또는 6 바이트의 범위도 있지만 지금은 그대로 두겠습니다.

문자 d는 첫 번째 범위에 있으므로 UTF-8의 1 바이트입니다. 문자 Ж는 두 번째 범위에 있으므로 UTF-8의 경우 2 바이트입니다. 문자 丽는 세 번째 범위에 있으므로 UTF-8의 3 바이트입니다.

x왼쪽에있는 패턴은 오른쪽에서 이러한 문자의 바이너리로 가득 뒤에. 따라서 패턴을 가진 d( 1100100) 0xxxxxxx는 01100100; 패턴 이 있는 Ж( 10000010110) 110xxxxx 10xxxxxx는 11010000 10010110; 및 丽( 100111000111101패턴)을 1110xxxx 10xxxxxx 10xxxxxx하게 1110x100 10111000 10111101한 후, 나머지는 x치환된다 0: 11100100 10111000 10111101.

그래서 그 접근 방식은 코드에서도 사용되었습니다. 실제 범위를 확인하는 대신 바이너리의 길이를보고 x패턴 의 양과 비교 하면 몇 바이트가 절약됩니다.

Ç               # Convert each character in the string to its unicode value
 b              # Convert each value to binary
  ε             # Map over these binary strings:
   Dg           #  Duplicate the string, and get its length
     •Xó•       #  Push compressed integer 8657
         18в    #  Converted to Base-18 as list: [1,8,12,17]
            @   #  Check for each if the length is >= to this value
                #  (1 if truthy; 0 if falsey)
   ƶ            #  Multiply each by their 1-based index
    à           #  Pop and get its maximum
     ©          #  Store it in the register (without popping)
   i            #  If it is exactly 1 (first range):
    7j          #   Add leading spaces to the binary to make it of length 7
      0ì        #   And prepend a "0"
   ë            #  Else (any of the other ranges):
    R           #   Reverse the binary
     6ô         #   Split it into parts of size 6
       Rí       #   Reverse it (and each individual part) back
    ć           #   Pop, and push the remainder and the head separated to the stack
     7®-        #   Calculate 7 minus the value from the register
        j       #   Add leading spaces to the head binary to make it of that length
         š      #   Add it at the start of the remainder-list again
    Tì          #   Prepend "10" before each part
      J         #   Join the list together
    1®<×        #   Repeat "1" the value from the register - 1 amount of times
        ì       #   Prepend that at the front
  ]             # Close both the if-else statement and map
   ð0:          # Replace all spaces with "0"
      J         # And join all modified binary strings together
                # (which is output implicitly - with trailing newline)

내이 05AB1E 대답을 참조하십시오 (섹션 얼마나 큰 정수를 압축하는 방법? 및 압축 정수 목록에 어떻게? ) 이유를 이해하는 •Xó•18в것입니다 [1,8,12,17].

자바 스크립트 (Node.js) , 60 바이트

@Neil 및 @Shaggy에서 -15 바이트

f=_=>[...Buffer(`f=`+f)].map(x=>x.toString(2).padStart(8,0))

온라인으로 사용해보십시오!

녹 , 187 바이트

fn f(o:u8){for c in b"go!g)n;t9(zgns!b!ho!c#%#/huds)(zhg!b_n <27zqshou )#z;19c|#-b_n(:|dmrdzg)1(:|||go!l`ho)(zg)0(:|".iter(){if c^o!=36{print!("{:08b}",c^o);}else{f(0);}}}fn main(){f(1);}

온라인으로 사용해보십시오!

펄 6 , 46 바이트

<say "<$_>~~.EVAL".ords.fmt("%08b",'')>~~.EVAL

온라인으로 사용해보십시오!

표준 퀴인 .fmt("%08b",'')은 서수 값 목록을 길이 8 이진수로 형식화하고 빈 문자열과 결합합니다.

펄 5, 42 바이트

$_=q(say unpack'B*',"\$_=q($_);eval");eval

TIO

자바 10 339 308 265 227 225 186 184 바이트

v->{var s="v->{var s=%c%s%1$c;return 0+new java.math.BigInteger(s.format(s,34,s).getBytes()).toString(2);}";return 0+new java.math.BigInteger(s.format(s,34,s).getBytes()).toString(2);}

@NahuelFouilleul 덕분에 -8 바이트 덕분에 불필요 함이 제거되었습니다 &255(그리고 도전에 대한 전체 프로그램 사양이 취소되었으며 기능도 허용됨을주의 깊게 설명 하기 위해 -35 추가). @ OlivierGrégoire
덕분에 -41 바이트 .

온라인으로 사용해보십시오.

설명:

quine- part :

• var s 형식화되지 않은 소스 코드를 포함합니다.
• %s 이 문자열을 자체에 넣는 데 사용됩니다. s.format(...)
• %c, %1$c및 34(이중 따옴표를 포맷하는 데 사용됩니다 ")
• s.format(s,34,s) 다 합쳐

도전 과제 :

v->{                         //  Method with empty unused parameter and String return-type
  var s="...";               //   Unformatted source code String
  return 0+                  //   Return, with a leading "0":
   new java.math.BigInteger( //    A BigInteger of:
     s.format(s,34,s)        //     The actual source code String
      .getBytes())           //     Converted to a list of bytes (UTF-8 by default)
   .toString(2);}            //    And convert this BigInteger to a binary-String      

파이썬 2 , 68 67 바이트

_="print''.join(bin(256|ord(i))[3:]for i in'_=%r;exec _'%_)";exec _

온라인으로 사용해보십시오!

이 답변 의 수정

'in'뒤의 공백을 제거하여 -1 바이트 (@mdahmoune 덕분에)

R , 138114 바이트

x=function(){rev(rawToBits(rev(charToRaw(sprintf("x=%s;x()",gsub("\\s","",paste(deparse(x),collapse="")))))))};x()

온라인으로 사용해보십시오!

R의 기능을 사용하여 함수를 문자 표현으로 분리합니다. rev들 때문에 필요 rawToBits풋 최하위 비트 첫번째. as.integer그렇지 않으면 비트가 선행 0으로 표시되므로 필요합니다.

편리한 출력이 가능하다는 것을 알게되면 편집했습니다. 또한 원래 바이트 수에서 1 씩 나갔습니다.

C # (Visual C # 대화식 컴파일러) 221 바이트

var s="var s={0}{1}{0};Write(string.Concat(string.Format(s,(char)34,s).Select(z=>Convert.ToString(z,2).PadLeft(8,'0'))));";Write(string.Concat(string.Format(s,(char)34,s).Select(z=>Convert.ToString(z,2).PadLeft(8,'0'))));

온라인으로 사용해보십시오!

플래그 /u:System.String가 193 바이트 인 C # (Visual C # Interactive Compiler)

var s="var s={0}{1}{0};Write(Concat(Format(s,(char)34,s).Select(z=>Convert.ToString(z,2).PadLeft(8,'0'))));";Write(Concat(Format(s,(char)34,s).Select(z=>Convert.ToString(z,2).PadLeft(8,'0'))));

온라인으로 사용해보십시오!

Bash + GNU 도구, 48 바이트

trap -- 'trap|xxd -b|cut -b9-64|tr -dc 01' EXIT

TIO