Output the Arecibo Message
$begingroup$
The Arecibo message is a 1974 interstellar radio message carrying basic information about humanity and Earth sent to globular star cluster M13 in the hope that extraterrestrial intelligence might receive and decipher it... The message consisted of 1,679 binary digits, approximately 210 bytes...
The number 1,679 was chosen because it is a semiprime (the product of two prime numbers), to be arranged rectangularly as 73 rows by 23 columns. The alternative arrangement, 23 rows by 73 columns, produces an unintelligible set of characters (as do all other X/Y formats).
This is the message with color added to highlight its separate parts. The actual binary transmission carried no color information.
Source: Wikipedia
Your task is to output the Arecibo Message in the exact 23x73 arrangement shown in the image. Any of these output formats is acceptable:
- Text, using one character for ones and another for zeros (using the usual rules for row separation)
- A 2D array of two distinct values
- A 23x73 image with two distinct colors
- Aan uninterrupted stream of 1679 distinct values (i.e. any of the above formats, but flat.)
- A 1679-bit integer. Indicate bit and byte order in your solution.
For your convenience, here is a copy-pastable version (also an example output in text format):
00000010101010000000000
00101000001010000000100
10001000100010010110010
10101010101010100100100
00000000000000000000000
00000000000011000000000
00000000001101000000000
00000000001101000000000
00000000010101000000000
00000000011111000000000
00000000000000000000000
11000011100011000011000
10000000000000110010000
11010001100011000011010
11111011111011111011111
00000000000000000000000
00010000000000000000010
00000000000000000000000
00001000000000000000001
11111000000000000011111
00000000000000000000000
11000011000011100011000
10000000100000000010000
11010000110001110011010
11111011111011111011111
00000000000000000000000
00010000001100000000010
00000000001100000000000
00001000001100000000001
11111000001100000011111
00000000001100000000000
00100000000100000000100
00010000001100000001000
00001100001100000010000
00000011000100001100000
00000000001100110000000
00000011000100001100000
00001100001100000010000
00010000001000000001000
00100000001100000000100
01000000001100000000100
01000000000100000001000
00100000001000000010000
00010000000000001100000
00001100000000110000000
00100011101011000000000
00100000001000000000000
00100000111110000000000
00100001011101001011011
00000010011100100111111
10111000011100000110111
00000000010100000111011
00100000010100000111111
00100000010100000110000
00100000110110000000000
00000000000000000000000
00111000001000000000000
00111010100010101010101
00111000000000101010100
00000000000000101000000
00000000111110000000000
00000011111111100000000
00001110000000111000000
00011000000000001100000
00110100000000010110000
01100110000000110011000
01000101000001010001000
01000100100010010001000
00000100010100010000000
00000100001000010000000
00000100000000010000000
00000001001010000000000
01111001111101001111000
If your language, for some reason, has a builtin for the Arecibo Message, you may not use that builtin.
Good Luck!
code-golf kolmogorov-complexity
$endgroup$
add a comment |
$begingroup$
The Arecibo message is a 1974 interstellar radio message carrying basic information about humanity and Earth sent to globular star cluster M13 in the hope that extraterrestrial intelligence might receive and decipher it... The message consisted of 1,679 binary digits, approximately 210 bytes...
The number 1,679 was chosen because it is a semiprime (the product of two prime numbers), to be arranged rectangularly as 73 rows by 23 columns. The alternative arrangement, 23 rows by 73 columns, produces an unintelligible set of characters (as do all other X/Y formats).
This is the message with color added to highlight its separate parts. The actual binary transmission carried no color information.
Source: Wikipedia
Your task is to output the Arecibo Message in the exact 23x73 arrangement shown in the image. Any of these output formats is acceptable:
- Text, using one character for ones and another for zeros (using the usual rules for row separation)
- A 2D array of two distinct values
- A 23x73 image with two distinct colors
- Aan uninterrupted stream of 1679 distinct values (i.e. any of the above formats, but flat.)
- A 1679-bit integer. Indicate bit and byte order in your solution.
For your convenience, here is a copy-pastable version (also an example output in text format):
00000010101010000000000
00101000001010000000100
10001000100010010110010
10101010101010100100100
00000000000000000000000
00000000000011000000000
00000000001101000000000
00000000001101000000000
00000000010101000000000
00000000011111000000000
00000000000000000000000
11000011100011000011000
10000000000000110010000
11010001100011000011010
11111011111011111011111
00000000000000000000000
00010000000000000000010
00000000000000000000000
00001000000000000000001
11111000000000000011111
00000000000000000000000
11000011000011100011000
10000000100000000010000
11010000110001110011010
11111011111011111011111
00000000000000000000000
00010000001100000000010
00000000001100000000000
00001000001100000000001
11111000001100000011111
00000000001100000000000
00100000000100000000100
00010000001100000001000
00001100001100000010000
00000011000100001100000
00000000001100110000000
00000011000100001100000
00001100001100000010000
00010000001000000001000
00100000001100000000100
01000000001100000000100
01000000000100000001000
00100000001000000010000
00010000000000001100000
00001100000000110000000
00100011101011000000000
00100000001000000000000
00100000111110000000000
00100001011101001011011
00000010011100100111111
10111000011100000110111
00000000010100000111011
00100000010100000111111
00100000010100000110000
00100000110110000000000
00000000000000000000000
00111000001000000000000
00111010100010101010101
00111000000000101010100
00000000000000101000000
00000000111110000000000
00000011111111100000000
00001110000000111000000
00011000000000001100000
00110100000000010110000
01100110000000110011000
01000101000001010001000
01000100100010010001000
00000100010100010000000
00000100001000010000000
00000100000000010000000
00000001001010000000000
01111001111101001111000
If your language, for some reason, has a builtin for the Arecibo Message, you may not use that builtin.
Good Luck!
code-golf kolmogorov-complexity
$endgroup$
3
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
2
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
2
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago
add a comment |
$begingroup$
The Arecibo message is a 1974 interstellar radio message carrying basic information about humanity and Earth sent to globular star cluster M13 in the hope that extraterrestrial intelligence might receive and decipher it... The message consisted of 1,679 binary digits, approximately 210 bytes...
The number 1,679 was chosen because it is a semiprime (the product of two prime numbers), to be arranged rectangularly as 73 rows by 23 columns. The alternative arrangement, 23 rows by 73 columns, produces an unintelligible set of characters (as do all other X/Y formats).
This is the message with color added to highlight its separate parts. The actual binary transmission carried no color information.
Source: Wikipedia
Your task is to output the Arecibo Message in the exact 23x73 arrangement shown in the image. Any of these output formats is acceptable:
- Text, using one character for ones and another for zeros (using the usual rules for row separation)
- A 2D array of two distinct values
- A 23x73 image with two distinct colors
- Aan uninterrupted stream of 1679 distinct values (i.e. any of the above formats, but flat.)
- A 1679-bit integer. Indicate bit and byte order in your solution.
For your convenience, here is a copy-pastable version (also an example output in text format):
00000010101010000000000
00101000001010000000100
10001000100010010110010
10101010101010100100100
00000000000000000000000
00000000000011000000000
00000000001101000000000
00000000001101000000000
00000000010101000000000
00000000011111000000000
00000000000000000000000
11000011100011000011000
10000000000000110010000
11010001100011000011010
11111011111011111011111
00000000000000000000000
00010000000000000000010
00000000000000000000000
00001000000000000000001
11111000000000000011111
00000000000000000000000
11000011000011100011000
10000000100000000010000
11010000110001110011010
11111011111011111011111
00000000000000000000000
00010000001100000000010
00000000001100000000000
00001000001100000000001
11111000001100000011111
00000000001100000000000
00100000000100000000100
00010000001100000001000
00001100001100000010000
00000011000100001100000
00000000001100110000000
00000011000100001100000
00001100001100000010000
00010000001000000001000
00100000001100000000100
01000000001100000000100
01000000000100000001000
00100000001000000010000
00010000000000001100000
00001100000000110000000
00100011101011000000000
00100000001000000000000
00100000111110000000000
00100001011101001011011
00000010011100100111111
10111000011100000110111
00000000010100000111011
00100000010100000111111
00100000010100000110000
00100000110110000000000
00000000000000000000000
00111000001000000000000
00111010100010101010101
00111000000000101010100
00000000000000101000000
00000000111110000000000
00000011111111100000000
00001110000000111000000
00011000000000001100000
00110100000000010110000
01100110000000110011000
01000101000001010001000
01000100100010010001000
00000100010100010000000
00000100001000010000000
00000100000000010000000
00000001001010000000000
01111001111101001111000
If your language, for some reason, has a builtin for the Arecibo Message, you may not use that builtin.
Good Luck!
code-golf kolmogorov-complexity
$endgroup$
The Arecibo message is a 1974 interstellar radio message carrying basic information about humanity and Earth sent to globular star cluster M13 in the hope that extraterrestrial intelligence might receive and decipher it... The message consisted of 1,679 binary digits, approximately 210 bytes...
The number 1,679 was chosen because it is a semiprime (the product of two prime numbers), to be arranged rectangularly as 73 rows by 23 columns. The alternative arrangement, 23 rows by 73 columns, produces an unintelligible set of characters (as do all other X/Y formats).
This is the message with color added to highlight its separate parts. The actual binary transmission carried no color information.
Source: Wikipedia
Your task is to output the Arecibo Message in the exact 23x73 arrangement shown in the image. Any of these output formats is acceptable:
- Text, using one character for ones and another for zeros (using the usual rules for row separation)
- A 2D array of two distinct values
- A 23x73 image with two distinct colors
- Aan uninterrupted stream of 1679 distinct values (i.e. any of the above formats, but flat.)
- A 1679-bit integer. Indicate bit and byte order in your solution.
For your convenience, here is a copy-pastable version (also an example output in text format):
00000010101010000000000
00101000001010000000100
10001000100010010110010
10101010101010100100100
00000000000000000000000
00000000000011000000000
00000000001101000000000
00000000001101000000000
00000000010101000000000
00000000011111000000000
00000000000000000000000
11000011100011000011000
10000000000000110010000
11010001100011000011010
11111011111011111011111
00000000000000000000000
00010000000000000000010
00000000000000000000000
00001000000000000000001
11111000000000000011111
00000000000000000000000
11000011000011100011000
10000000100000000010000
11010000110001110011010
11111011111011111011111
00000000000000000000000
00010000001100000000010
00000000001100000000000
00001000001100000000001
11111000001100000011111
00000000001100000000000
00100000000100000000100
00010000001100000001000
00001100001100000010000
00000011000100001100000
00000000001100110000000
00000011000100001100000
00001100001100000010000
00010000001000000001000
00100000001100000000100
01000000001100000000100
01000000000100000001000
00100000001000000010000
00010000000000001100000
00001100000000110000000
00100011101011000000000
00100000001000000000000
00100000111110000000000
00100001011101001011011
00000010011100100111111
10111000011100000110111
00000000010100000111011
00100000010100000111111
00100000010100000110000
00100000110110000000000
00000000000000000000000
00111000001000000000000
00111010100010101010101
00111000000000101010100
00000000000000101000000
00000000111110000000000
00000011111111100000000
00001110000000111000000
00011000000000001100000
00110100000000010110000
01100110000000110011000
01000101000001010001000
01000100100010010001000
00000100010100010000000
00000100001000010000000
00000100000000010000000
00000001001010000000000
01111001111101001111000
If your language, for some reason, has a builtin for the Arecibo Message, you may not use that builtin.
Good Luck!
code-golf kolmogorov-complexity
code-golf kolmogorov-complexity
edited 8 hours ago
Beefster
asked 10 hours ago
BeefsterBeefster
2,5371142
2,5371142
3
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
2
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
2
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago
add a comment |
3
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
2
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
2
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago
3
3
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
2
2
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
2
2
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago
add a comment |
11 Answers
11
active
oldest
votes
$begingroup$
Jelly, 213 bytes
“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’
Try it online!
I played around with Huffman coding, but the improvements in data size were outweighed by the extra code. As such, this is simply a base-250 encoded version of the desired output. Output consists of an integer that when decoded as bijective base 2 will yield the 1D list of 1s and 2s. Thanks @Emigna for pointing out the change in rules.
Try it online - with further decoding to demonstrate output!
If a more conventional binary encoding is preferred, here is one that encodes an integer representation of the inverted binary message. The most significant bit of the integer represents the beginning of the message.
$endgroup$
add a comment |
$begingroup$
05AB1E, 215 bytes
•1cDÕχ´ã.RÓñîι1¼Ć®r₁Àā&ëÕβ₁œÑ|γy^;J}½ƶ³øy2ƒÑÐÆ›]Y4(ûXéÅrλ∞½X?Nô“jÒG‰"Œ»ZΘζÚ¢£,Ť.Q4ǝ&èOO1¶o!øт‰Γ>Já
‹”¤ó¹¬q¤ζ₄ômm»₃}Hx±÷+₄SHÇcGƵ~Ω˜Ô/i1Σ$8ÖÀ"ÉE›u.ZÐŒ·>λïU7ÏδÓxƶÂΓ¡†āNÔû×ÒŽ(3}IÃhÄÿ*À}„§—4Ô¬¸ʒ¦ü€”{ÒDÐ[É7ûõöεŠÐî*$•b¦
Try it online!
or with Additional formatting
Base-255 encoded binary string with a prepended 1.
Hoping there's a better way of doing this but haven't found it yet.
$endgroup$
add a comment |
$begingroup$
Perl 6, 368 bytes
.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)
Try it online!
The long string is the message as a single base-36 number (with a single prefixed 1 bit to preserve the leading zeroes) which is then converted back to binary and printed 23 bits at a time.
$endgroup$
$begingroup$
You can use>>.say
and&{S/.//}
to save bytes. Have you thought about using a different base instead?
$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
add a comment |
$begingroup$
Java, 688 678 590 bytes
I'm pretty sure this can be golfed more. Returns a stream of String objects.
v->java.util.Arrays.asList(87040,1315844,4474034,5592356,0,1536,6656,6656,10752,15872,0,6407704,4194704,6866458,8255455,0,524290,0,262145,8126495,0,6391576,4210704,6841242,8255455,0,530434,6144,268289,8132639,6144,1050628,530440,399376,100448,6528,100448,399376,528392,1054724,2103300,2099208,1052688,524384,393600,1168896,1052672,1080320,1096283,80191,6043703,10299,1058879,1058864,1076224,0,1839104,1918293,1835348,320,31744,130816,459200,786528,1704112,3342744,2261640,2245768,141440,135296,131200,37888,3996280).stream().map(s->"".format("%23s",Long.toBinaryString(s)).replace(" ","0"))
-10 bytes by returning the raw stream
-88 bytes by using base 10 numerics (thanks @ceilingcat!)
Try it online!
Explanation:
v->
java.util.Arrays.asList(...) // Create a list of the rows of the message in base 16 (hex)
.stream() // Stream/iterate over the elements of the list
.map(s->"".format("%23s",Long.toBinaryString(s)) // Convert to binary and pad the result
.replace(" ","0")) // Replace padding with "0"
// Implicit return
$endgroup$
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
add a comment |
$begingroup$
Bubblegum, 275 bytes
00000000: e006 d601 0b5d 0018 6988 6507 9cf6 752c .....]..i.e...u,
00000010: 9e9a 501a 87a7 98b4 844f 9fcf daaf 8773 ..P......O.....s
00000020: 3b9d 8239 48c8 16d8 60a9 3876 7f6c b812 ;..9H...`.8v.l..
00000030: 99f3 e8a6 38ef fe30 68c0 e096 a894 9c81 ....8..0h.......
00000040: d706 7dff 3ec4 4e5d f185 b3a4 8e5b 5857 ..}.>.N].....[XW
00000050: 7243 86e8 c37c fbd5 c856 b126 14ee 78ec rC...|...V.&..x.
00000060: c41d f4db 3b04 c0c1 9ec6 2f83 14e3 8315 ....;...../.....
00000070: 85ac d55c 1c86 8066 b518 6ec1 3dff 5db6 ......f..n.=.].
00000080: 435a 6cec e6f9 cbbd 1475 ab7c 710f 0f63 CZl......u.|q..c
00000090: f97a e5ae 3b56 a8c0 f3e5 5000 5503 698a .z..;V....P.U.i.
000000a0: eaf3 f8c3 015d 741f 3fa0 8919 5407 d4c8 .....]t.?...T...
000000b0: 77c3 dd4e 2ca9 a7ea da07 0f53 99ce e73c w..N,......S...<
000000c0: 71e6 fc67 2e31 44f7 b80f a923 ba44 87de q..g.1D....#.D..
000000d0: b29c f8ef 1dc2 288e 131a 0d26 68bb 572e ......(....&h.W.
000000e0: d743 5e63 9d50 83be 986f 74b6 33ff 2060 .C^c.P...ot.3. `
000000f0: 33d7 e3a2 bb1f 4331 33af e12d 2f10 e459 3.....C13..-/..Y
00000100: 9091 9aa4 7e0a ab1d 00b4 1cfb 2c73 7d33 ....~.......,s}3
00000110: 7e3a 00 ~:.
Try it online!
$endgroup$
add a comment |
$begingroup$
Perl 5, 460 bytes
printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/
Try it online!
$endgroup$
add a comment |
$begingroup$
Deadfish~, 1115 bytes
ooooooiodoiodoiodoiod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{d}iodoooiodoooiodoooiodooiodoioodooiodo{i}c{d}iodoiodoiodoiodoiodoiodoiodoiodooiodooiodoo{i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo
Try it online!
If someone has the patience to golf this further, I salute you ahead of time. :P
$endgroup$
add a comment |
$begingroup$
Brainfuck, 2360 2008 bytes
-[>+<-----]>---......+.-.+.-.+.-.+.-............+.-.+.-.....+.-.+.-.......+.-..+.-...+.-...+.-...+.-..+.-.+..-.<+++++++++[->.+.-<]>..+.-..+.-<++++++[->......<]>.+.<++[->.-...................+..-.+<]>.-..................+.-.+.-.+.-..................+.....-................................+..-....+...-...+..-....+..-...+.-.............+..-..+.-....+..-.+.-...+..-...+..-....+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-<++[->.................+.-...........<]>......+......-.............+.....-.......................+..-....+..-....+...-...+..-...+.-.......+.-.........+.-....+..-.+.-....+..-...+...-..+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-......+..-.........+.-...........+..-...............+.-.....+..-..........+......-.....+..-......+.....-..........+..-.............+.-........+.-........+.-.....+.-......+..-.......+.-.......+..-....+..-......+.-..........+..-...+.-....+..-...............+..-..+..-.............+..-...+.-....+..-.........+..-....+..-......+.-.......+.-......+.-........+.-.....+.-<++[->.......+..-........+.-...+.-.<]>........+.-.......+.-<++++[->.....+.-..<]>..........+..-.........+..-........+..-.........+.-...+...-.+.-.+..-...........+.-.......+.-..............+.-.....+.....-............+.-....+.-.+...-.+.-..+.-.+..-.+..-......+.-..+...-..+.-..+.......-.+...-....+...-.....+..-.+...-.........+.-.+.-.....+...-.+..-..+.-......+.-.+.-.....+......-..+.-......+.-.+.-.....+..-......+.-.....+..-.+..-<+++++++[->.....<]>+...-.....+.-..............+...-.+.-.+.-...+.-.+.-.+.-.+.-.+.-.+.-..+...-.........+.-.+.-.+.-.+.-................+.-.+.-..............+.....-................+.........-............+...-.......+...-.........+..-...........+..-.......+..-.+.-.........+.-.+..-.....+..-..+..-.......+..-..+..-....+.-...+.-.+.-.....+.-.+.-...+.-....+.-...+.-..+.-...+.-..+.-...+.-........+.-...+.-.+.-...+.-............+.-....+.-....+.-............+.-.........+.-..............+.-..+.-.+.-...........+....-..+.....-.+.-..+....-...
Try it online!
I will probably golf this further soon.
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 383 bytes
StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]
Try it online!
$endgroup$
add a comment |
$begingroup$
Node.js, 333 bytes
Returns a binary string of 1,679 characters.
_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s
Try it online! (with formatted output)
JavaScript (ES8), 413 bytes
Returns a binary string of 1,679 characters.
_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[sS]/g,c=>c.charCodeAt().toString(2).padStart(8,0))
Try it online! (with formatted output)
$endgroup$
add a comment |
$begingroup$
C# (Visual C# Interactive Compiler), 366 332 329 bytes
int i;foreach(var g in@"RШʪЬࢰӚՌ(((ب+Ȩ+Ȩ-Ȩ/ب((ౠـࠨƸീقࠇ((Ĩ*((¨)ྨG((ౘ݀࠰8ഴςࠇ((ī*+(«)ྫG+(ȩ,ī0ë8Y+ƨYë8Ī0ȫ,Ы,Щ0Ȫ8ĨèƨɢبȪ(ȷШȿʃOŧய_-cȭgȭXȵШ((Ϊ(ϐսΨż(Ũ7ШgܨĈǨƨͨØڈǀѸʰѰҰm¨j¨h¨:Ш߇ʠ")Write(Convert.ToString(g-40,2).PadLeft(12-i++%2,'0'));
Can be 3 bytes less if my device supported rendering unprinatable characters.
Try it online!
$endgroup$
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
});
});
}, "mathjax-editing");
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "200"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f182924%2foutput-the-arecibo-message%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
11 Answers
11
active
oldest
votes
11 Answers
11
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
Jelly, 213 bytes
“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’
Try it online!
I played around with Huffman coding, but the improvements in data size were outweighed by the extra code. As such, this is simply a base-250 encoded version of the desired output. Output consists of an integer that when decoded as bijective base 2 will yield the 1D list of 1s and 2s. Thanks @Emigna for pointing out the change in rules.
Try it online - with further decoding to demonstrate output!
If a more conventional binary encoding is preferred, here is one that encodes an integer representation of the inverted binary message. The most significant bit of the integer represents the beginning of the message.
$endgroup$
add a comment |
$begingroup$
Jelly, 213 bytes
“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’
Try it online!
I played around with Huffman coding, but the improvements in data size were outweighed by the extra code. As such, this is simply a base-250 encoded version of the desired output. Output consists of an integer that when decoded as bijective base 2 will yield the 1D list of 1s and 2s. Thanks @Emigna for pointing out the change in rules.
Try it online - with further decoding to demonstrate output!
If a more conventional binary encoding is preferred, here is one that encodes an integer representation of the inverted binary message. The most significant bit of the integer represents the beginning of the message.
$endgroup$
add a comment |
$begingroup$
Jelly, 213 bytes
“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’
Try it online!
I played around with Huffman coding, but the improvements in data size were outweighed by the extra code. As such, this is simply a base-250 encoded version of the desired output. Output consists of an integer that when decoded as bijective base 2 will yield the 1D list of 1s and 2s. Thanks @Emigna for pointing out the change in rules.
Try it online - with further decoding to demonstrate output!
If a more conventional binary encoding is preferred, here is one that encodes an integer representation of the inverted binary message. The most significant bit of the integer represents the beginning of the message.
$endgroup$
Jelly, 213 bytes
“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’
Try it online!
I played around with Huffman coding, but the improvements in data size were outweighed by the extra code. As such, this is simply a base-250 encoded version of the desired output. Output consists of an integer that when decoded as bijective base 2 will yield the 1D list of 1s and 2s. Thanks @Emigna for pointing out the change in rules.
Try it online - with further decoding to demonstrate output!
If a more conventional binary encoding is preferred, here is one that encodes an integer representation of the inverted binary message. The most significant bit of the integer represents the beginning of the message.
edited 7 hours ago
answered 8 hours ago
Nick KennedyNick Kennedy
1,46649
1,46649
add a comment |
add a comment |
$begingroup$
05AB1E, 215 bytes
•1cDÕχ´ã.RÓñîι1¼Ć®r₁Àā&ëÕβ₁œÑ|γy^;J}½ƶ³øy2ƒÑÐÆ›]Y4(ûXéÅrλ∞½X?Nô“jÒG‰"Œ»ZΘζÚ¢£,Ť.Q4ǝ&èOO1¶o!øт‰Γ>Já
‹”¤ó¹¬q¤ζ₄ômm»₃}Hx±÷+₄SHÇcGƵ~Ω˜Ô/i1Σ$8ÖÀ"ÉE›u.ZÐŒ·>λïU7ÏδÓxƶÂΓ¡†āNÔû×ÒŽ(3}IÃhÄÿ*À}„§—4Ô¬¸ʒ¦ü€”{ÒDÐ[É7ûõöεŠÐî*$•b¦
Try it online!
or with Additional formatting
Base-255 encoded binary string with a prepended 1.
Hoping there's a better way of doing this but haven't found it yet.
$endgroup$
add a comment |
$begingroup$
05AB1E, 215 bytes
•1cDÕχ´ã.RÓñîι1¼Ć®r₁Àā&ëÕβ₁œÑ|γy^;J}½ƶ³øy2ƒÑÐÆ›]Y4(ûXéÅrλ∞½X?Nô“jÒG‰"Œ»ZΘζÚ¢£,Ť.Q4ǝ&èOO1¶o!øт‰Γ>Já
‹”¤ó¹¬q¤ζ₄ômm»₃}Hx±÷+₄SHÇcGƵ~Ω˜Ô/i1Σ$8ÖÀ"ÉE›u.ZÐŒ·>λïU7ÏδÓxƶÂΓ¡†āNÔû×ÒŽ(3}IÃhÄÿ*À}„§—4Ô¬¸ʒ¦ü€”{ÒDÐ[É7ûõöεŠÐî*$•b¦
Try it online!
or with Additional formatting
Base-255 encoded binary string with a prepended 1.
Hoping there's a better way of doing this but haven't found it yet.
$endgroup$
add a comment |
$begingroup$
05AB1E, 215 bytes
•1cDÕχ´ã.RÓñîι1¼Ć®r₁Àā&ëÕβ₁œÑ|γy^;J}½ƶ³øy2ƒÑÐÆ›]Y4(ûXéÅrλ∞½X?Nô“jÒG‰"Œ»ZΘζÚ¢£,Ť.Q4ǝ&èOO1¶o!øт‰Γ>Já
‹”¤ó¹¬q¤ζ₄ômm»₃}Hx±÷+₄SHÇcGƵ~Ω˜Ô/i1Σ$8ÖÀ"ÉE›u.ZÐŒ·>λïU7ÏδÓxƶÂΓ¡†āNÔû×ÒŽ(3}IÃhÄÿ*À}„§—4Ô¬¸ʒ¦ü€”{ÒDÐ[É7ûõöεŠÐî*$•b¦
Try it online!
or with Additional formatting
Base-255 encoded binary string with a prepended 1.
Hoping there's a better way of doing this but haven't found it yet.
$endgroup$
05AB1E, 215 bytes
•1cDÕχ´ã.RÓñîι1¼Ć®r₁Àā&ëÕβ₁œÑ|γy^;J}½ƶ³øy2ƒÑÐÆ›]Y4(ûXéÅrλ∞½X?Nô“jÒG‰"Œ»ZΘζÚ¢£,Ť.Q4ǝ&èOO1¶o!øт‰Γ>Já
‹”¤ó¹¬q¤ζ₄ômm»₃}Hx±÷+₄SHÇcGƵ~Ω˜Ô/i1Σ$8ÖÀ"ÉE›u.ZÐŒ·>λïU7ÏδÓxƶÂΓ¡†āNÔû×ÒŽ(3}IÃhÄÿ*À}„§—4Ô¬¸ʒ¦ü€”{ÒDÐ[É7ûõöεŠÐî*$•b¦
Try it online!
or with Additional formatting
Base-255 encoded binary string with a prepended 1.
Hoping there's a better way of doing this but haven't found it yet.
edited 7 hours ago
answered 8 hours ago
EmignaEmigna
47.8k433145
47.8k433145
add a comment |
add a comment |
$begingroup$
Perl 6, 368 bytes
.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)
Try it online!
The long string is the message as a single base-36 number (with a single prefixed 1 bit to preserve the leading zeroes) which is then converted back to binary and printed 23 bits at a time.
$endgroup$
$begingroup$
You can use>>.say
and&{S/.//}
to save bytes. Have you thought about using a different base instead?
$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
add a comment |
$begingroup$
Perl 6, 368 bytes
.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)
Try it online!
The long string is the message as a single base-36 number (with a single prefixed 1 bit to preserve the leading zeroes) which is then converted back to binary and printed 23 bits at a time.
$endgroup$
$begingroup$
You can use>>.say
and&{S/.//}
to save bytes. Have you thought about using a different base instead?
$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
add a comment |
$begingroup$
Perl 6, 368 bytes
.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)
Try it online!
The long string is the message as a single base-36 number (with a single prefixed 1 bit to preserve the leading zeroes) which is then converted back to binary and printed 23 bits at a time.
$endgroup$
Perl 6, 368 bytes
.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)
Try it online!
The long string is the message as a single base-36 number (with a single prefixed 1 bit to preserve the leading zeroes) which is then converted back to binary and printed 23 bits at a time.
answered 7 hours ago
SeanSean
3,54637
3,54637
$begingroup$
You can use>>.say
and&{S/.//}
to save bytes. Have you thought about using a different base instead?
$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
add a comment |
$begingroup$
You can use>>.say
and&{S/.//}
to save bytes. Have you thought about using a different base instead?
$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
$begingroup$
You can use
>>.say
and &{S/.//}
to save bytes. Have you thought about using a different base instead?$endgroup$
– Jo King
6 hours ago
$begingroup$
You can use
>>.say
and &{S/.//}
to save bytes. Have you thought about using a different base instead?$endgroup$
– Jo King
6 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
Yes, I tried using base 65536/Unicode, but the message runs into some forbidden surrogate codepoints. I was able to avoid that by adding a fixed offset to each codepoint, but astonishingly, some of the generated strings crashed Emacs a few times. Resolving the issues started taking more time than I could afford to commit. I'll probably revisit the problem later.
$endgroup$
– Sean
5 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
$begingroup$
There's no point going into multiple byte characters, since that increases your byte count. 289 bytes by implementing my tips from above and using base 122 (to avoid carriage returns)
$endgroup$
– Jo King
3 hours ago
add a comment |
$begingroup$
Java, 688 678 590 bytes
I'm pretty sure this can be golfed more. Returns a stream of String objects.
v->java.util.Arrays.asList(87040,1315844,4474034,5592356,0,1536,6656,6656,10752,15872,0,6407704,4194704,6866458,8255455,0,524290,0,262145,8126495,0,6391576,4210704,6841242,8255455,0,530434,6144,268289,8132639,6144,1050628,530440,399376,100448,6528,100448,399376,528392,1054724,2103300,2099208,1052688,524384,393600,1168896,1052672,1080320,1096283,80191,6043703,10299,1058879,1058864,1076224,0,1839104,1918293,1835348,320,31744,130816,459200,786528,1704112,3342744,2261640,2245768,141440,135296,131200,37888,3996280).stream().map(s->"".format("%23s",Long.toBinaryString(s)).replace(" ","0"))
-10 bytes by returning the raw stream
-88 bytes by using base 10 numerics (thanks @ceilingcat!)
Try it online!
Explanation:
v->
java.util.Arrays.asList(...) // Create a list of the rows of the message in base 16 (hex)
.stream() // Stream/iterate over the elements of the list
.map(s->"".format("%23s",Long.toBinaryString(s)) // Convert to binary and pad the result
.replace(" ","0")) // Replace padding with "0"
// Implicit return
$endgroup$
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
add a comment |
$begingroup$
Java, 688 678 590 bytes
I'm pretty sure this can be golfed more. Returns a stream of String objects.
v->java.util.Arrays.asList(87040,1315844,4474034,5592356,0,1536,6656,6656,10752,15872,0,6407704,4194704,6866458,8255455,0,524290,0,262145,8126495,0,6391576,4210704,6841242,8255455,0,530434,6144,268289,8132639,6144,1050628,530440,399376,100448,6528,100448,399376,528392,1054724,2103300,2099208,1052688,524384,393600,1168896,1052672,1080320,1096283,80191,6043703,10299,1058879,1058864,1076224,0,1839104,1918293,1835348,320,31744,130816,459200,786528,1704112,3342744,2261640,2245768,141440,135296,131200,37888,3996280).stream().map(s->"".format("%23s",Long.toBinaryString(s)).replace(" ","0"))
-10 bytes by returning the raw stream
-88 bytes by using base 10 numerics (thanks @ceilingcat!)
Try it online!
Explanation:
v->
java.util.Arrays.asList(...) // Create a list of the rows of the message in base 16 (hex)
.stream() // Stream/iterate over the elements of the list
.map(s->"".format("%23s",Long.toBinaryString(s)) // Convert to binary and pad the result
.replace(" ","0")) // Replace padding with "0"
// Implicit return
$endgroup$
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
add a comment |
$begingroup$
Java, 688 678 590 bytes
I'm pretty sure this can be golfed more. Returns a stream of String objects.
v->java.util.Arrays.asList(87040,1315844,4474034,5592356,0,1536,6656,6656,10752,15872,0,6407704,4194704,6866458,8255455,0,524290,0,262145,8126495,0,6391576,4210704,6841242,8255455,0,530434,6144,268289,8132639,6144,1050628,530440,399376,100448,6528,100448,399376,528392,1054724,2103300,2099208,1052688,524384,393600,1168896,1052672,1080320,1096283,80191,6043703,10299,1058879,1058864,1076224,0,1839104,1918293,1835348,320,31744,130816,459200,786528,1704112,3342744,2261640,2245768,141440,135296,131200,37888,3996280).stream().map(s->"".format("%23s",Long.toBinaryString(s)).replace(" ","0"))
-10 bytes by returning the raw stream
-88 bytes by using base 10 numerics (thanks @ceilingcat!)
Try it online!
Explanation:
v->
java.util.Arrays.asList(...) // Create a list of the rows of the message in base 16 (hex)
.stream() // Stream/iterate over the elements of the list
.map(s->"".format("%23s",Long.toBinaryString(s)) // Convert to binary and pad the result
.replace(" ","0")) // Replace padding with "0"
// Implicit return
$endgroup$
Java, 688 678 590 bytes
I'm pretty sure this can be golfed more. Returns a stream of String objects.
v->java.util.Arrays.asList(87040,1315844,4474034,5592356,0,1536,6656,6656,10752,15872,0,6407704,4194704,6866458,8255455,0,524290,0,262145,8126495,0,6391576,4210704,6841242,8255455,0,530434,6144,268289,8132639,6144,1050628,530440,399376,100448,6528,100448,399376,528392,1054724,2103300,2099208,1052688,524384,393600,1168896,1052672,1080320,1096283,80191,6043703,10299,1058879,1058864,1076224,0,1839104,1918293,1835348,320,31744,130816,459200,786528,1704112,3342744,2261640,2245768,141440,135296,131200,37888,3996280).stream().map(s->"".format("%23s",Long.toBinaryString(s)).replace(" ","0"))
-10 bytes by returning the raw stream
-88 bytes by using base 10 numerics (thanks @ceilingcat!)
Try it online!
Explanation:
v->
java.util.Arrays.asList(...) // Create a list of the rows of the message in base 16 (hex)
.stream() // Stream/iterate over the elements of the list
.map(s->"".format("%23s",Long.toBinaryString(s)) // Convert to binary and pad the result
.replace(" ","0")) // Replace padding with "0"
// Implicit return
edited 4 hours ago
answered 9 hours ago
Benjamin UrquhartBenjamin Urquhart
40017
40017
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
add a comment |
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
$begingroup$
@ceilingcat I went back and forth on using decimals. Looks like they are shorter.
$endgroup$
– Benjamin Urquhart
4 hours ago
add a comment |
$begingroup$
Bubblegum, 275 bytes
00000000: e006 d601 0b5d 0018 6988 6507 9cf6 752c .....]..i.e...u,
00000010: 9e9a 501a 87a7 98b4 844f 9fcf daaf 8773 ..P......O.....s
00000020: 3b9d 8239 48c8 16d8 60a9 3876 7f6c b812 ;..9H...`.8v.l..
00000030: 99f3 e8a6 38ef fe30 68c0 e096 a894 9c81 ....8..0h.......
00000040: d706 7dff 3ec4 4e5d f185 b3a4 8e5b 5857 ..}.>.N].....[XW
00000050: 7243 86e8 c37c fbd5 c856 b126 14ee 78ec rC...|...V.&..x.
00000060: c41d f4db 3b04 c0c1 9ec6 2f83 14e3 8315 ....;...../.....
00000070: 85ac d55c 1c86 8066 b518 6ec1 3dff 5db6 ......f..n.=.].
00000080: 435a 6cec e6f9 cbbd 1475 ab7c 710f 0f63 CZl......u.|q..c
00000090: f97a e5ae 3b56 a8c0 f3e5 5000 5503 698a .z..;V....P.U.i.
000000a0: eaf3 f8c3 015d 741f 3fa0 8919 5407 d4c8 .....]t.?...T...
000000b0: 77c3 dd4e 2ca9 a7ea da07 0f53 99ce e73c w..N,......S...<
000000c0: 71e6 fc67 2e31 44f7 b80f a923 ba44 87de q..g.1D....#.D..
000000d0: b29c f8ef 1dc2 288e 131a 0d26 68bb 572e ......(....&h.W.
000000e0: d743 5e63 9d50 83be 986f 74b6 33ff 2060 .C^c.P...ot.3. `
000000f0: 33d7 e3a2 bb1f 4331 33af e12d 2f10 e459 3.....C13..-/..Y
00000100: 9091 9aa4 7e0a ab1d 00b4 1cfb 2c73 7d33 ....~.......,s}3
00000110: 7e3a 00 ~:.
Try it online!
$endgroup$
add a comment |
$begingroup$
Bubblegum, 275 bytes
00000000: e006 d601 0b5d 0018 6988 6507 9cf6 752c .....]..i.e...u,
00000010: 9e9a 501a 87a7 98b4 844f 9fcf daaf 8773 ..P......O.....s
00000020: 3b9d 8239 48c8 16d8 60a9 3876 7f6c b812 ;..9H...`.8v.l..
00000030: 99f3 e8a6 38ef fe30 68c0 e096 a894 9c81 ....8..0h.......
00000040: d706 7dff 3ec4 4e5d f185 b3a4 8e5b 5857 ..}.>.N].....[XW
00000050: 7243 86e8 c37c fbd5 c856 b126 14ee 78ec rC...|...V.&..x.
00000060: c41d f4db 3b04 c0c1 9ec6 2f83 14e3 8315 ....;...../.....
00000070: 85ac d55c 1c86 8066 b518 6ec1 3dff 5db6 ......f..n.=.].
00000080: 435a 6cec e6f9 cbbd 1475 ab7c 710f 0f63 CZl......u.|q..c
00000090: f97a e5ae 3b56 a8c0 f3e5 5000 5503 698a .z..;V....P.U.i.
000000a0: eaf3 f8c3 015d 741f 3fa0 8919 5407 d4c8 .....]t.?...T...
000000b0: 77c3 dd4e 2ca9 a7ea da07 0f53 99ce e73c w..N,......S...<
000000c0: 71e6 fc67 2e31 44f7 b80f a923 ba44 87de q..g.1D....#.D..
000000d0: b29c f8ef 1dc2 288e 131a 0d26 68bb 572e ......(....&h.W.
000000e0: d743 5e63 9d50 83be 986f 74b6 33ff 2060 .C^c.P...ot.3. `
000000f0: 33d7 e3a2 bb1f 4331 33af e12d 2f10 e459 3.....C13..-/..Y
00000100: 9091 9aa4 7e0a ab1d 00b4 1cfb 2c73 7d33 ....~.......,s}3
00000110: 7e3a 00 ~:.
Try it online!
$endgroup$
add a comment |
$begingroup$
Bubblegum, 275 bytes
00000000: e006 d601 0b5d 0018 6988 6507 9cf6 752c .....]..i.e...u,
00000010: 9e9a 501a 87a7 98b4 844f 9fcf daaf 8773 ..P......O.....s
00000020: 3b9d 8239 48c8 16d8 60a9 3876 7f6c b812 ;..9H...`.8v.l..
00000030: 99f3 e8a6 38ef fe30 68c0 e096 a894 9c81 ....8..0h.......
00000040: d706 7dff 3ec4 4e5d f185 b3a4 8e5b 5857 ..}.>.N].....[XW
00000050: 7243 86e8 c37c fbd5 c856 b126 14ee 78ec rC...|...V.&..x.
00000060: c41d f4db 3b04 c0c1 9ec6 2f83 14e3 8315 ....;...../.....
00000070: 85ac d55c 1c86 8066 b518 6ec1 3dff 5db6 ......f..n.=.].
00000080: 435a 6cec e6f9 cbbd 1475 ab7c 710f 0f63 CZl......u.|q..c
00000090: f97a e5ae 3b56 a8c0 f3e5 5000 5503 698a .z..;V....P.U.i.
000000a0: eaf3 f8c3 015d 741f 3fa0 8919 5407 d4c8 .....]t.?...T...
000000b0: 77c3 dd4e 2ca9 a7ea da07 0f53 99ce e73c w..N,......S...<
000000c0: 71e6 fc67 2e31 44f7 b80f a923 ba44 87de q..g.1D....#.D..
000000d0: b29c f8ef 1dc2 288e 131a 0d26 68bb 572e ......(....&h.W.
000000e0: d743 5e63 9d50 83be 986f 74b6 33ff 2060 .C^c.P...ot.3. `
000000f0: 33d7 e3a2 bb1f 4331 33af e12d 2f10 e459 3.....C13..-/..Y
00000100: 9091 9aa4 7e0a ab1d 00b4 1cfb 2c73 7d33 ....~.......,s}3
00000110: 7e3a 00 ~:.
Try it online!
$endgroup$
Bubblegum, 275 bytes
00000000: e006 d601 0b5d 0018 6988 6507 9cf6 752c .....]..i.e...u,
00000010: 9e9a 501a 87a7 98b4 844f 9fcf daaf 8773 ..P......O.....s
00000020: 3b9d 8239 48c8 16d8 60a9 3876 7f6c b812 ;..9H...`.8v.l..
00000030: 99f3 e8a6 38ef fe30 68c0 e096 a894 9c81 ....8..0h.......
00000040: d706 7dff 3ec4 4e5d f185 b3a4 8e5b 5857 ..}.>.N].....[XW
00000050: 7243 86e8 c37c fbd5 c856 b126 14ee 78ec rC...|...V.&..x.
00000060: c41d f4db 3b04 c0c1 9ec6 2f83 14e3 8315 ....;...../.....
00000070: 85ac d55c 1c86 8066 b518 6ec1 3dff 5db6 ......f..n.=.].
00000080: 435a 6cec e6f9 cbbd 1475 ab7c 710f 0f63 CZl......u.|q..c
00000090: f97a e5ae 3b56 a8c0 f3e5 5000 5503 698a .z..;V....P.U.i.
000000a0: eaf3 f8c3 015d 741f 3fa0 8919 5407 d4c8 .....]t.?...T...
000000b0: 77c3 dd4e 2ca9 a7ea da07 0f53 99ce e73c w..N,......S...<
000000c0: 71e6 fc67 2e31 44f7 b80f a923 ba44 87de q..g.1D....#.D..
000000d0: b29c f8ef 1dc2 288e 131a 0d26 68bb 572e ......(....&h.W.
000000e0: d743 5e63 9d50 83be 986f 74b6 33ff 2060 .C^c.P...ot.3. `
000000f0: 33d7 e3a2 bb1f 4331 33af e12d 2f10 e459 3.....C13..-/..Y
00000100: 9091 9aa4 7e0a ab1d 00b4 1cfb 2c73 7d33 ....~.......,s}3
00000110: 7e3a 00 ~:.
Try it online!
answered 8 hours ago
orthoplexorthoplex
1014
1014
add a comment |
add a comment |
$begingroup$
Perl 5, 460 bytes
printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/
Try it online!
$endgroup$
add a comment |
$begingroup$
Perl 5, 460 bytes
printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/
Try it online!
$endgroup$
add a comment |
$begingroup$
Perl 5, 460 bytes
printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/
Try it online!
$endgroup$
Perl 5, 460 bytes
printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/
Try it online!
answered 7 hours ago
XcaliXcali
5,475520
5,475520
add a comment |
add a comment |
$begingroup$
Deadfish~, 1115 bytes
ooooooiodoiodoiodoiod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{d}iodoooiodoooiodoooiodooiodoioodooiodo{i}c{d}iodoiodoiodoiodoiodoiodoiodoiodooiodooiodoo{i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo
Try it online!
If someone has the patience to golf this further, I salute you ahead of time. :P
$endgroup$
add a comment |
$begingroup$
Deadfish~, 1115 bytes
ooooooiodoiodoiodoiod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{d}iodoooiodoooiodoooiodooiodoioodooiodo{i}c{d}iodoiodoiodoiodoiodoiodoiodoiodooiodooiodoo{i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo
Try it online!
If someone has the patience to golf this further, I salute you ahead of time. :P
$endgroup$
add a comment |
$begingroup$
Deadfish~, 1115 bytes
ooooooiodoiodoiodoiod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{d}iodoooiodoooiodoooiodooiodoioodooiodo{i}c{d}iodoiodoiodoiodoiodoiodoiodoiodooiodooiodoo{i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo
Try it online!
If someone has the patience to golf this further, I salute you ahead of time. :P
$endgroup$
Deadfish~, 1115 bytes
ooooooiodoiodoiodoiod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{d}iodoooiodoooiodoooiodooiodoioodooiodo{i}c{d}iodoiodoiodoiodoiodoiodoiodoiodooiodooiodoo{i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo
Try it online!
If someone has the patience to golf this further, I salute you ahead of time. :P
answered 7 hours ago
squidsquid
1114
1114
add a comment |
add a comment |
$begingroup$
Brainfuck, 2360 2008 bytes
-[>+<-----]>---......+.-.+.-.+.-.+.-............+.-.+.-.....+.-.+.-.......+.-..+.-...+.-...+.-...+.-..+.-.+..-.<+++++++++[->.+.-<]>..+.-..+.-<++++++[->......<]>.+.<++[->.-...................+..-.+<]>.-..................+.-.+.-.+.-..................+.....-................................+..-....+...-...+..-....+..-...+.-.............+..-..+.-....+..-.+.-...+..-...+..-....+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-<++[->.................+.-...........<]>......+......-.............+.....-.......................+..-....+..-....+...-...+..-...+.-.......+.-.........+.-....+..-.+.-....+..-...+...-..+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-......+..-.........+.-...........+..-...............+.-.....+..-..........+......-.....+..-......+.....-..........+..-.............+.-........+.-........+.-.....+.-......+..-.......+.-.......+..-....+..-......+.-..........+..-...+.-....+..-...............+..-..+..-.............+..-...+.-....+..-.........+..-....+..-......+.-.......+.-......+.-........+.-.....+.-<++[->.......+..-........+.-...+.-.<]>........+.-.......+.-<++++[->.....+.-..<]>..........+..-.........+..-........+..-.........+.-...+...-.+.-.+..-...........+.-.......+.-..............+.-.....+.....-............+.-....+.-.+...-.+.-..+.-.+..-.+..-......+.-..+...-..+.-..+.......-.+...-....+...-.....+..-.+...-.........+.-.+.-.....+...-.+..-..+.-......+.-.+.-.....+......-..+.-......+.-.+.-.....+..-......+.-.....+..-.+..-<+++++++[->.....<]>+...-.....+.-..............+...-.+.-.+.-...+.-.+.-.+.-.+.-.+.-.+.-..+...-.........+.-.+.-.+.-.+.-................+.-.+.-..............+.....-................+.........-............+...-.......+...-.........+..-...........+..-.......+..-.+.-.........+.-.+..-.....+..-..+..-.......+..-..+..-....+.-...+.-.+.-.....+.-.+.-...+.-....+.-...+.-..+.-...+.-..+.-...+.-........+.-...+.-.+.-...+.-............+.-....+.-....+.-............+.-.........+.-..............+.-..+.-.+.-...........+....-..+.....-.+.-..+....-...
Try it online!
I will probably golf this further soon.
$endgroup$
add a comment |
$begingroup$
Brainfuck, 2360 2008 bytes
-[>+<-----]>---......+.-.+.-.+.-.+.-............+.-.+.-.....+.-.+.-.......+.-..+.-...+.-...+.-...+.-..+.-.+..-.<+++++++++[->.+.-<]>..+.-..+.-<++++++[->......<]>.+.<++[->.-...................+..-.+<]>.-..................+.-.+.-.+.-..................+.....-................................+..-....+...-...+..-....+..-...+.-.............+..-..+.-....+..-.+.-...+..-...+..-....+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-<++[->.................+.-...........<]>......+......-.............+.....-.......................+..-....+..-....+...-...+..-...+.-.......+.-.........+.-....+..-.+.-....+..-...+...-..+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-......+..-.........+.-...........+..-...............+.-.....+..-..........+......-.....+..-......+.....-..........+..-.............+.-........+.-........+.-.....+.-......+..-.......+.-.......+..-....+..-......+.-..........+..-...+.-....+..-...............+..-..+..-.............+..-...+.-....+..-.........+..-....+..-......+.-.......+.-......+.-........+.-.....+.-<++[->.......+..-........+.-...+.-.<]>........+.-.......+.-<++++[->.....+.-..<]>..........+..-.........+..-........+..-.........+.-...+...-.+.-.+..-...........+.-.......+.-..............+.-.....+.....-............+.-....+.-.+...-.+.-..+.-.+..-.+..-......+.-..+...-..+.-..+.......-.+...-....+...-.....+..-.+...-.........+.-.+.-.....+...-.+..-..+.-......+.-.+.-.....+......-..+.-......+.-.+.-.....+..-......+.-.....+..-.+..-<+++++++[->.....<]>+...-.....+.-..............+...-.+.-.+.-...+.-.+.-.+.-.+.-.+.-.+.-..+...-.........+.-.+.-.+.-.+.-................+.-.+.-..............+.....-................+.........-............+...-.......+...-.........+..-...........+..-.......+..-.+.-.........+.-.+..-.....+..-..+..-.......+..-..+..-....+.-...+.-.+.-.....+.-.+.-...+.-....+.-...+.-..+.-...+.-..+.-...+.-........+.-...+.-.+.-...+.-............+.-....+.-....+.-............+.-.........+.-..............+.-..+.-.+.-...........+....-..+.....-.+.-..+....-...
Try it online!
I will probably golf this further soon.
$endgroup$
add a comment |
$begingroup$
Brainfuck, 2360 2008 bytes
-[>+<-----]>---......+.-.+.-.+.-.+.-............+.-.+.-.....+.-.+.-.......+.-..+.-...+.-...+.-...+.-..+.-.+..-.<+++++++++[->.+.-<]>..+.-..+.-<++++++[->......<]>.+.<++[->.-...................+..-.+<]>.-..................+.-.+.-.+.-..................+.....-................................+..-....+...-...+..-....+..-...+.-.............+..-..+.-....+..-.+.-...+..-...+..-....+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-<++[->.................+.-...........<]>......+......-.............+.....-.......................+..-....+..-....+...-...+..-...+.-.......+.-.........+.-....+..-.+.-....+..-...+...-..+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-......+..-.........+.-...........+..-...............+.-.....+..-..........+......-.....+..-......+.....-..........+..-.............+.-........+.-........+.-.....+.-......+..-.......+.-.......+..-....+..-......+.-..........+..-...+.-....+..-...............+..-..+..-.............+..-...+.-....+..-.........+..-....+..-......+.-.......+.-......+.-........+.-.....+.-<++[->.......+..-........+.-...+.-.<]>........+.-.......+.-<++++[->.....+.-..<]>..........+..-.........+..-........+..-.........+.-...+...-.+.-.+..-...........+.-.......+.-..............+.-.....+.....-............+.-....+.-.+...-.+.-..+.-.+..-.+..-......+.-..+...-..+.-..+.......-.+...-....+...-.....+..-.+...-.........+.-.+.-.....+...-.+..-..+.-......+.-.+.-.....+......-..+.-......+.-.+.-.....+..-......+.-.....+..-.+..-<+++++++[->.....<]>+...-.....+.-..............+...-.+.-.+.-...+.-.+.-.+.-.+.-.+.-.+.-..+...-.........+.-.+.-.+.-.+.-................+.-.+.-..............+.....-................+.........-............+...-.......+...-.........+..-...........+..-.......+..-.+.-.........+.-.+..-.....+..-..+..-.......+..-..+..-....+.-...+.-.+.-.....+.-.+.-...+.-....+.-...+.-..+.-...+.-..+.-...+.-........+.-...+.-.+.-...+.-............+.-....+.-....+.-............+.-.........+.-..............+.-..+.-.+.-...........+....-..+.....-.+.-..+....-...
Try it online!
I will probably golf this further soon.
$endgroup$
Brainfuck, 2360 2008 bytes
-[>+<-----]>---......+.-.+.-.+.-.+.-............+.-.+.-.....+.-.+.-.......+.-..+.-...+.-...+.-...+.-..+.-.+..-.<+++++++++[->.+.-<]>..+.-..+.-<++++++[->......<]>.+.<++[->.-...................+..-.+<]>.-..................+.-.+.-.+.-..................+.....-................................+..-....+...-...+..-....+..-...+.-.............+..-..+.-....+..-.+.-...+..-...+..-....+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-<++[->.................+.-...........<]>......+......-.............+.....-.......................+..-....+..-....+...-...+..-...+.-.......+.-.........+.-....+..-.+.-....+..-...+...-..+..-.+.-.+.....-.+.....-.+.....-.+.....-..........................+.-......+..-.........+.-...........+..-...............+.-.....+..-..........+......-.....+..-......+.....-..........+..-.............+.-........+.-........+.-.....+.-......+..-.......+.-.......+..-....+..-......+.-..........+..-...+.-....+..-...............+..-..+..-.............+..-...+.-....+..-.........+..-....+..-......+.-.......+.-......+.-........+.-.....+.-<++[->.......+..-........+.-...+.-.<]>........+.-.......+.-<++++[->.....+.-..<]>..........+..-.........+..-........+..-.........+.-...+...-.+.-.+..-...........+.-.......+.-..............+.-.....+.....-............+.-....+.-.+...-.+.-..+.-.+..-.+..-......+.-..+...-..+.-..+.......-.+...-....+...-.....+..-.+...-.........+.-.+.-.....+...-.+..-..+.-......+.-.+.-.....+......-..+.-......+.-.+.-.....+..-......+.-.....+..-.+..-<+++++++[->.....<]>+...-.....+.-..............+...-.+.-.+.-...+.-.+.-.+.-.+.-.+.-.+.-..+...-.........+.-.+.-.+.-.+.-................+.-.+.-..............+.....-................+.........-............+...-.......+...-.........+..-...........+..-.......+..-.+.-.........+.-.+..-.....+..-..+..-.......+..-..+..-....+.-...+.-.+.-.....+.-.+.-...+.-....+.-...+.-..+.-...+.-..+.-...+.-........+.-...+.-.+.-...+.-............+.-....+.-....+.-............+.-.........+.-..............+.-..+.-.+.-...........+....-..+.....-.+.-..+....-...
Try it online!
I will probably golf this further soon.
edited 6 hours ago
answered 7 hours ago
orthoplexorthoplex
1014
1014
add a comment |
add a comment |
$begingroup$
Wolfram Language (Mathematica), 383 bytes
StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]
Try it online!
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 383 bytes
StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]
Try it online!
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 383 bytes
StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]
Try it online!
$endgroup$
Wolfram Language (Mathematica), 383 bytes
StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]
Try it online!
answered 6 hours ago
J42161217J42161217
13.9k21353
13.9k21353
add a comment |
add a comment |
$begingroup$
Node.js, 333 bytes
Returns a binary string of 1,679 characters.
_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s
Try it online! (with formatted output)
JavaScript (ES8), 413 bytes
Returns a binary string of 1,679 characters.
_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[sS]/g,c=>c.charCodeAt().toString(2).padStart(8,0))
Try it online! (with formatted output)
$endgroup$
add a comment |
$begingroup$
Node.js, 333 bytes
Returns a binary string of 1,679 characters.
_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s
Try it online! (with formatted output)
JavaScript (ES8), 413 bytes
Returns a binary string of 1,679 characters.
_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[sS]/g,c=>c.charCodeAt().toString(2).padStart(8,0))
Try it online! (with formatted output)
$endgroup$
add a comment |
$begingroup$
Node.js, 333 bytes
Returns a binary string of 1,679 characters.
_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s
Try it online! (with formatted output)
JavaScript (ES8), 413 bytes
Returns a binary string of 1,679 characters.
_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[sS]/g,c=>c.charCodeAt().toString(2).padStart(8,0))
Try it online! (with formatted output)
$endgroup$
Node.js, 333 bytes
Returns a binary string of 1,679 characters.
_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s
Try it online! (with formatted output)
JavaScript (ES8), 413 bytes
Returns a binary string of 1,679 characters.
_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[sS]/g,c=>c.charCodeAt().toString(2).padStart(8,0))
Try it online! (with formatted output)
edited 6 hours ago
answered 7 hours ago
ArnauldArnauld
80.7k797334
80.7k797334
add a comment |
add a comment |
$begingroup$
C# (Visual C# Interactive Compiler), 366 332 329 bytes
int i;foreach(var g in@"RШʪЬࢰӚՌ(((ب+Ȩ+Ȩ-Ȩ/ب((ౠـࠨƸീقࠇ((Ĩ*((¨)ྨG((ౘ݀࠰8ഴςࠇ((ī*+(«)ྫG+(ȩ,ī0ë8Y+ƨYë8Ī0ȫ,Ы,Щ0Ȫ8ĨèƨɢبȪ(ȷШȿʃOŧய_-cȭgȭXȵШ((Ϊ(ϐսΨż(Ũ7ШgܨĈǨƨͨØڈǀѸʰѰҰm¨j¨h¨:Ш߇ʠ")Write(Convert.ToString(g-40,2).PadLeft(12-i++%2,'0'));
Can be 3 bytes less if my device supported rendering unprinatable characters.
Try it online!
$endgroup$
add a comment |
$begingroup$
C# (Visual C# Interactive Compiler), 366 332 329 bytes
int i;foreach(var g in@"RШʪЬࢰӚՌ(((ب+Ȩ+Ȩ-Ȩ/ب((ౠـࠨƸീقࠇ((Ĩ*((¨)ྨG((ౘ݀࠰8ഴςࠇ((ī*+(«)ྫG+(ȩ,ī0ë8Y+ƨYë8Ī0ȫ,Ы,Щ0Ȫ8ĨèƨɢبȪ(ȷШȿʃOŧய_-cȭgȭXȵШ((Ϊ(ϐսΨż(Ũ7ШgܨĈǨƨͨØڈǀѸʰѰҰm¨j¨h¨:Ш߇ʠ")Write(Convert.ToString(g-40,2).PadLeft(12-i++%2,'0'));
Can be 3 bytes less if my device supported rendering unprinatable characters.
Try it online!
$endgroup$
add a comment |
$begingroup$
C# (Visual C# Interactive Compiler), 366 332 329 bytes
int i;foreach(var g in@"RШʪЬࢰӚՌ(((ب+Ȩ+Ȩ-Ȩ/ب((ౠـࠨƸീقࠇ((Ĩ*((¨)ྨG((ౘ݀࠰8ഴςࠇ((ī*+(«)ྫG+(ȩ,ī0ë8Y+ƨYë8Ī0ȫ,Ы,Щ0Ȫ8ĨèƨɢبȪ(ȷШȿʃOŧய_-cȭgȭXȵШ((Ϊ(ϐսΨż(Ũ7ШgܨĈǨƨͨØڈǀѸʰѰҰm¨j¨h¨:Ш߇ʠ")Write(Convert.ToString(g-40,2).PadLeft(12-i++%2,'0'));
Can be 3 bytes less if my device supported rendering unprinatable characters.
Try it online!
$endgroup$
C# (Visual C# Interactive Compiler), 366 332 329 bytes
int i;foreach(var g in@"RШʪЬࢰӚՌ(((ب+Ȩ+Ȩ-Ȩ/ب((ౠـࠨƸീقࠇ((Ĩ*((¨)ྨG((ౘ݀࠰8ഴςࠇ((ī*+(«)ྫG+(ȩ,ī0ë8Y+ƨYë8Ī0ȫ,Ы,Щ0Ȫ8ĨèƨɢبȪ(ȷШȿʃOŧய_-cȭgȭXȵШ((Ϊ(ϐսΨż(Ũ7ШgܨĈǨƨͨØڈǀѸʰѰҰm¨j¨h¨:Ш߇ʠ")Write(Convert.ToString(g-40,2).PadLeft(12-i++%2,'0'));
Can be 3 bytes less if my device supported rendering unprinatable characters.
Try it online!
edited 6 hours ago
answered 7 hours ago
Embodiment of IgnoranceEmbodiment of Ignorance
2,886127
2,886127
add a comment |
add a comment |
If this is an answer to a challenge…
…Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.
…Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one.
Explanations of your answer make it more interesting to read and are very much encouraged.…Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.
More generally…
…Please make sure to answer the question and provide sufficient detail.
…Avoid asking for help, clarification or responding to other answers (use comments instead).
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f182924%2foutput-the-arecibo-message%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
3
$begingroup$
If a language has a built in for Arecibo message, I can tell, with all certainty, that I've seen everything in this world c:
$endgroup$
– Luis felipe De jesus Munoz
10 hours ago
2
$begingroup$
Mathematica (IIRC) has an image builtin for Lena, so it wouldn't surprise me if it also has an Aricebo message as well.
$endgroup$
– Beefster
10 hours ago
$begingroup$
@RobertS. no because there are other valid formats besides text.
$endgroup$
– Beefster
9 hours ago
2
$begingroup$
In the spirit of the original format, a flat result/output should be allowed. The whole point of 1679 bits is exactly that the proper number of rows and columns can be inferred from the signal length.
$endgroup$
– Adám
8 hours ago
$begingroup$
Are we allowed go return an array of strings, that do not represent lines?
$endgroup$
– Embodiment of Ignorance
6 hours ago