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'de UTF-8 dönüşüm yerleşikleri yoktur, bu yüzden her şeyi manuel olarak yapmak zorundayım ..
Çevrimiçi deneyin veya bunun bir quine olduğunu doğrulayın .
Açıklama:
quine -part:
Kısa quine : 05AB1E için bu bir 0"D34çý"D34çý( 14 bayt ) tarafından sağlanan @OliverNi . Benim cevabım de ekleyerek o Quine'ın değiştirilmiş bir sürümünü kullanır ...burada: 0"D34çý..."D34çý.... Bu kinin kısa bir açıklaması:
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)
Zorluk bölümü:
Şimdi kodun meydan okuma kısmı için. Yukarıda da bahsettiğim gibi, 05AB1E'nin UTF-8 dönüşüm yerleşikleri yoktur, bu yüzden bunları elle yapmak zorundayım. Bu kaynağı nasıl yapılacağı konusunda referans olarak kullandım: Unicode kod noktalarını elle UTF-8 ve UTF-16'ya dönüştürme . Unicode karakterlerin UTF-8'e dönüştürülmesiyle ilgili kısa bir özet:
- Unicode karakterleri unicode değerlerine dönüştürün (yani
"dЖ丽"olur [100,1046,20029])
- Bu unicode değerlerini ikili biçime dönüştürün (yani
[100,1046,20029]olur ["1100100","10000010110","100111000111101"])
- Aşağıdaki aralıklardan hangilerinin karakter olduğunu kontrol edin:
0x00000000 - 0x0000007F (0-127) 0xxxxxxx0x00000080 - 0x000007FF (128-2047): 110xxxxx 10xxxxxx0x00000800 - 0x0000FFFF (2.048-65.535): 1110xxxx 10xxxxxx 10xxxxxx0x00010000 - 0x001FFFFF (65536-2097151): 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
5 veya 6 baytlık aralıklar da var, ancak şimdilik onları dışarıda bırakalım.
Karakter dilk aralıkta olacak, bu yüzden UTF-8'de 1 bayt; karakter Жikinci aralıktadır, dolayısıyla UTF-8'de 2 bayt; ve karakter 丽üçüncü aralıktadır, yani UTF-8'de 3 bayt.
xSola desende o sağdan, bu karakterlerin ikili ile doldurulur arkasında. Böylece desenli d( 1100100) 0xxxxxxxolur 01100100; Ж( 10000010110) paterni ile 110xxxxx 10xxxxxxolur 11010000 10010110; ve 丽( 100111000111101desenli) 1110xxxx 10xxxxxx 10xxxxxxolur 1110x100 10111000 10111101, bundan sonra geriye kalan, xile değiştirilir 0: 11100100 10111000 10111101.
Bu yaklaşımı kodumda da kullandım. Gerçek aralıkları kontrol etmek yerine, sadece ikilinin uzunluğuna bakarım ve bunu xdesenlerin miktarıyla karşılaştırırım , çünkü bu birkaç bayt kazandırır.
Ç # 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)
Bu 05AB1E cevabımın neden •Xó•18вolduğunu anlamak için ( Büyük tamsayılar nasıl sıkıştırılır ? Ve Tamsayı listeleri nasıl sıkıştırılır? ) Bölümlerine bakın[1,8,12,17] .