Perl 5、54バイト/ 71印刷可能なASCII文字
注:これは、この回答の2番目のバージョンです。PHPとgzinflate()を使用した元の64バイト/ 95文字バージョンについては、この回答の履歴を参照してください。
71文字の印刷可能なASCIIバージョンは次のとおりです。
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
54バイトバージョンには印刷できない文字が含まれているため、16進ダンプとして提供しています。Unixishシステムではxxd -r
、16進ダンプを実行可能なPerlスクリプトに戻すために使用できます。
0000000: 792f 3031 2f20 232f 2c73 6179 2066 6f72 y/01/ #/,say for
0000010: 2075 6e70 6163 6b27 2842 3430 2934 272c unpack'(B40)4',
0000020: 27a4 a011 008a aaa4 1126 9aec aad5 54a8 '........&....T.
0000030: a6a4 0a24 9a27 ...$.'
perl -M5.010
Perl 5.10+ say
機能を有効にするには、両方を実行する必要があります。次の出力が生成されます。
(スクリーンショットとして表示されるのは、SEの行の高さが大きいためASCIIアートが見づらく読みづらいためです。
追伸 上記のソリューションの出力があまりにもミニマルすぎると感じた場合、Tomasのソリューションに似た出力を生成する92文字のバリアントを次に示します。
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
スクリーンショットは次のとおりです。
Pps。私はかなり確信しているこの(GolfScript、51個の文字を:あなたは他の方法でそれだけでコールバナー/ Figletによるまたはそのチートものをカウントしていない場合)、最短印刷可能な-ASCIIソリューションです
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
出力は、上記の71文字のPerlソリューションと同じです。
bash
:33文字– pastebin.com/HZ1w8z8gこれは受け入れられますか?