Zorluk: Mümkün olduğunca az karakter kullanarak aşağıdaki çıktıyı üretin:

 _   _      _ _                             _     _ _
| | | | ___| | | ___    __      _____  _ __| | __| | |
| |_| |/ _ \ | |/ _ \   \ \ /\ / / _ \| '__| |/ _` | |
|  _  |  __/ | | (_) |   \ V  V / (_) | |  | | (_| |_|
|_| |_|\___|_|_|\___( )   \_/\_/ \___/|_|  |_|\__,_(_)
                    |/

Kurallar ve kısıtlamalar:

• FIGLet veya benzeri bir araç kullanamazsınız . (Aksi takdirde, figlet Hello, world!önemsiz ve neredeyse rakipsiz bir çözüm olacaktır.)

• Programınız tamamen yazdırılabilir ASCII karakterlerinden oluşmalıdır - özellikle kod noktaları 9 (SEKME), 10 (LF) ve 32-126. (Diliniz / işletim sisteminiz CRLF satır sonları gerektiriyorsa, düz LF'ler yerine bunları kullanabilirsiniz) Evet , sözdiziminin bir parçası olarak ASCII olmayan karakterler (veya metin olmayan veriler) gerektiren herhangi bir dili üzülerek diskalifiye eder.

• Çıktı tam olarak yukarıdaki örneğe benzemelidir. Bununla birlikte, isterseniz çıktının etrafına fazladan boşluk ekleyebilirsiniz. 8 karakterli sekme aralığı (veya tutarlı bir platform varsa seçtiğiniz platformun yerel varsayılan ayarı) olduğunu varsayabilirsiniz .

Ps. Par'ı ayarlamak için 199 karakterlik bir Perl çözümü buldum. Yine de, birisinin bağımsız olarak ortaya çıkması durumunda henüz göndermem. (Ayrıca, biraz sevimsiz.) Elbette, bu daha uzun da olsa kendi çözümünüzü göndermekten vazgeçirmemelidir.

Güncelleme: Şimdi han bir char tarafından dövüldü , benim sevimsiz 199-char Perl çözümüm:

use Compress'Zlib;say uncompress unpack u,'M>-I]BT$*`S$,`^]YQ=R:0,&_Z<DP?8@?WVQJ]E2J"%E$$@)R(/(/MCJ*\U!OM`Z#=5`4Y>6M=L\L%DMP&DB0V.4GQL&OOGB$4:%`4TT4!R8O-Z(^BTZWNV?>F86K:9+""-35*-LNC:T^D:_$#%^`";"DD0'

DC'nin çözümüne (ve çeşitli dillerde diğer tüm zlib / gzip tabanlı çözümlere) çok benzer , ancak sıkıştırılmış metin ve birkaç küçük golf hilesi için base64 yerine uuencoding kullandım .

Güncelleme 2 : Galibi bir galibi resmi olarak kabul etmenin zamanı geldi. İlk sırada konsolenfreddy'nin PHP koduna gidiyor , çünkü karakterleri saysanız da, şimdiye kadar gönderilen en kısa şey . Aslında, onu 199 karakterlik Perl kodumdan optimize edilmiş DEFLATE akışı ile birleştirmek daha da kısa bir 176 karakterlik çözüm sunuyor:

<?=gzinflate(base64_decode("fYtBCgMxDAPvecXcmkDBv+nJMH2IH99savZUqghZRBICciDyD7Y6ivNQbwOg3VQFOXlrXbPLBZLcBpIkNjlJ8bBr754hFGhQFNNFAcmLzeiPotOt7tn3plq2mSwgjU1SjbLo2tPpGvxAxfgA"));

Bununla birlikte, han'ın önceden yazılmış dekompresyon araçları kullanmadan bu kadar yakınlaşmak için özel bir fahri sözü hak ettiğini düşünüyorum . İkinize de herkese tebrikler, herkese mutlu yıllar!

Stax , 137 bayt

"9&BO]h>&)>3ieuCoKVKVnuOoT'E-^Z(1.3u[);h1[RTOGqTZkoQx?KMy&9ctG&*y~HxR9%GYn.rYMdMcOOq^wXc@%zy*P[*Q"90|E|B"0+1"{%",``_|\/()V'"@]}R.1 |t54/m

Çalıştır ve hata ayıkla

Bu şekilde çalışır.

1. Büyük bir dizgi değişmeziyle başlayın.
2. Temel-90 sayısı olarak kod çözerek tam sayıya dönüştürün.
3. Bu sayıyı ikiliye dönüştürün.
4. S'nin 0ardından gelen a dizileri, 1boşluk olmayan karakterlere çevrilir.
5. Geriye kalanların 1tümü boşluklarla değiştirilir.
6. Elde edilen dize 54 karakterlik satırlara bölünür.

Perl 5,10-195 198 202 203 karakter

Temel regexp eşleşmesinin ötesinde herhangi bir kütüphane gerektirmeyen bir giriş. Kodlanmış dize 131 karakterdir ve kodunu çözmek ve yazdırmak için kod 64 karakter alır (kaynağın sonunda satırsonu olmadığı varsayılır). Fikir, ortak 3 karakterli dizeleri küçük harflerle göstermektir.

s!!xfefxxf\t\t\tf efyx
no| cnocfxefxceyxm|xmn
nm|wtnwtgt/uvy \\| 'ym|w`o|
pepyy/o| _ogrr/ _opn (ml
l lbyly|by( )fiihyjm lb,y_
\t\tf |/!;s!\w!substr'(_)\___   \_/|_| |  V \ / _',-95+ord$&,3!eg;say

Kodlayıcı çok daha uzun ve maalesef şu anda okunamıyor. Temel fikir, sabit bir dizi ikame seti verildiğinde, her bir satır için en kısa kodlamayı bulmak için dinamik programlama kullanmaktır. Son satırdaki ikame dizesi deneme yanılma yoluyla oluşturulmuştur ve başka bir ikame dizisinin yukarıdakinden daha kısa bir programa yol açması mümkündür.

Buradaki bir numara, bazı ikamelerin 3 karakterden daha kısa olmasıdır: perl'in substrçalışma şekli nedeniyle x' _' ve y' _' ile değiştirilir. İkincisi gereklidir çünkü \wregex ' _' ile değiştirilen ' ' ile eşleşir (_).

Brainfuck - 862 karakter:

>++++[<++++++++>-]>-----[<---->---]<+++>>--[<+>--]<---<<.>.<...>.<....
..>.<.>.<.............................>.<.....>.<.>.>>++++++++++.<.<<.
>>.<<.>>.<<.>>.<<.>...>.<<.>>.<<.>>.<<.>...<....>..<......>.....<..>.<
.>..>.<<.>>.<<.>..>.<<.>>.<<.>>.>.<.<<.>>.<.>.<<.>>.>>>-[<->+++++]<---
-.<<<<.>.<.>---.+++<.>>.<<.>>.>>.<<<<.>.<.>---.<...>.<.>.<.>>>>.<<<.<.
>>>>.<<<<.>>>>.<<<<.>+++.<.>---.>.<<.>>>>>>---[<+>+++++++]<++.<<<<+++.
.>.<<.>>.>>.<<<<.>.+.-<.>>.<<.>>.>.<.<<..>.<..>>.<<..>..>>>.<<<<.>>.<<
.>>.<<.>>>>>+.<<<<.>>>>+.<<<<<.>>.<<...>---.<.>------.<..>.<.>>>>.<<<<
.>>>>>-.<<<<+++++++++.>>>>+.<<<<<.>>.<<.>>.<<..>>.<<.>>.<<.>>>>>-.<<<<
.>.<<.>>.<.>.>.<.<.>.<<.>>.<.>.<---.+++...>.<.>.<.>.<---.+++...>>>>.<<
<<<.>>>>>+.<<<<<...>---.+++.>>>.<<<---.+++.>>>.<<<<.>---.+++...>>>.<<.
<.>.<<..>>.<.>.<---.+++..>>>>+++.<<<<.>>>>----.<<<<.>>>>+.<<.<<<......
..............>>.>>.<.

Python (2.x), 194 karakter

print'eNo9T8ENxCAMe5cp/DsqVco2fSH5BsnwZ4ccEIhxbAIgAK9KvDRwGBEjsSfJA6r2N7EISbmrpbLNKFRYOABaC6FAEYkPW/Ztm1t7Z1S3ydtHuV4ooolEV6vPyJ2XH8kGE7d9DAVMhFUte6h7xv5rxg8sf0Qc'.decode('base64').decode('zip')

JavaScript, 273 265 264 karakter

" _2_22_ _2222222226_26_ _10 0 3_0 | 3_2 32233_6_ 30 30 |10_0/ _ 4 0/ _ 424 4 /4 / / _ 4| '30/ _` 01|6_6|63/ 0 (_) |24 V6V / (_) 060 (_0_|1|_0_|43_|_543_( )24_/4_/ 43_/56543,_(_)12222226|/".replace(/\d/g,function(a){return'| |,\n,   ,__,\\,|_|,  '.split(',')[a]})

:(

Bu cevap dizeyi yazdırmaktan daha uzun; Ancak, sadece eğlenmek için, işte burada:

Python, 485 karakter ☺

import sys

data= ',C6UBKq.)U^\\ 8[hHl7gfLFyX6,;p\'SlYpN@K-`Kbs#fSU+4o~^_h\\dJDy{o9p?<GnLTgG{?ZM>bJE+"[kHm7EavoGcS#AQ^\\>e_'
table= " _|\\/(\n)V'`,"
key= (0,(1,((((7,5),(6,(8,(11,(9,10))))),(4,3)),2)))

number= 0
for char in data:
    number= number*95 + ord(char) - 32

mask= 1<<655
decoder= key
while mask:
    index= mask & number and 1
    try:
        decoder= decoder[index]
    except TypeError:
        sys.stdout.write(table[decoder])
        decoder= key[index]
    mask>>= 1

Sıkıştırılmış orijinal metnin en kısa ASCII temsillerinden birine sahip olduğum için, kodumdaki en uzun kaydırma çubuğuna sahip olmalıyım! Bu bir kazanç! :)

PHP, 194189 karakter

php -r'=gzinflate(base64_decode("dU/BDcQgDPszhX+lUqVs0xeSb5AMf3ZI+7qDACa2EwABeNXR4M/goxqJPUm+oLinEishKTdbKtuMQsTCC6C1EApUInHIvOlP+9zbO6PaTZ6+ynZDEZ1INFuNRu5z+ZVsMHHax1DAibCqZRdVZ/z6esYX"));'

Temel olarak Python ve Perl cevabı ile aynı, biraz daha kısa

Diğer dillerde: C (orijinal versiyon), 209 karakter ; Perl , 200 karakter .

J, 167160 karakter (47 + 113)

Başka bir yerleşik olmayan sıkıştırma gönderimi. Her karakteri 1 bitlik bir dizi olarak kodlayan ve karakterleri 0 bitle ayıran oldukça basit bir değişken uzunluklu kodlama kullanır. Sıkıştırılmış dize yalnızca 113 karakterdir.

('a _|\/',CR,'()V`,'''){~#;.2,(6$2)#:40-~3&u:'8H1(((((H:f[4ZS4ZP2(RPMAMANf[>CZD[F;I[OVFF;TgfS5aGd[7T9JW4[eG[+Of7ddg?d[.AfT]WUASE=S>bSdgI]cS[RWBYSE?gSeG_X(()WG('

Python (2.7.x), 218 karakter

import base64,zlib;
print zlib.decompress(base64.b64decode("eNo9T8ENxCAMe5cp/DsqVco2fSH5BsnwZ4ccEIhxbAIgAK9KvDRwGBEjsSfJA6r2N7EISbmrpbLNKFRYOABaC6FAEYkPW/Ztm1t7Z1S3ydtHuV4ooolEV6vPyJ2XH8kGE7d9DAVMhFUte6h7xv5rxg8sf0Qc"))

Oldukça açık ... bu girişimden çok memnun değil.

Bash 199 196 193 karakter

base64 -d<<<H4sIAAAAAAAAAz1PQQ6AIAw7S+IfelMTk/3GE0l9CI+3HRPYoHQtAxCAMzduGliMiL0NzElygSz+LiYhLWc1VekzDFU6FoCyIxRIYuBgyd7f5+5eGdnv5OWjbA8UUcRAVbORfBN0v5MFTlw2MhQwEVaV7KYu2tv88IgPjUlb7QoBAAA=|zcat

Yeterince yakın...

EDIT: 193'e kadar!

deneme, 196 192

base64 -d<<<H4sIAO4SqFMCA3VPQQ7AIAi7+4re5pIl/GYnk+4hPH4U0dOmILUUUBCAPEOBn8Wlao65SW6QudWJSYSUM5sqlQlZJAY2QPiAhSEJx8GSPVWm0TppOa3z1DWqboRZEY7K5pzmMw49kgU6TtXRwiDCpCrZxejTvn7u1l5z59MGKQEAAA|zcat

Perl, 230 karakter

use Compress::Zlib;
use MIME::Base64;
print uncompress(decode_base64('eNo9T8ENxCAMe5cp/DsqVco2fSH5BsnwZ4ccEIhxbAIgAK9KvDRwGBEjsSfJA6r2N7EISbmrpbLNKFRYOABaC6FAEYkPW/Ztm1t7Z1S3ydtHuV4ooolEV6vPyJ2XH8kGE7d9DAVMhFUte6h7xv5rxg8sf0Qc'));

Bu temelde Python cevabımla aynı. 199 karakterlik versiyonu görmek istiyorum .. kulağa sihir gibi geliyor.

Perl, 294 290 bayt.

Sadece sıkıştırılmış dize, 151 130 bayt.

Bu kısa değil, ama yazmak gerçekten eğlenceliydi.

@t=split//,"_|\\/\n()V',`";$b.=substr unpack("B8",chr(-48+ord)),2,6 for split//,'Ph?`@Ooooo1l410````0066600?03l0001PP06600HHB1Q064L4D<8h8^::<DLL4@J0032>1D<90h<>00hHI@6QhYllLX3@`hHI@1Q04P@1Q04@002080R001I^80a074001Q07208P0B0X34ooo`ST';$b=~s/(1)|(0.{4})/$1?" ":$t[ord pack"B8","000$2"]/eg;print$b

@t=split//," _|x"x4 ."\\/\n()V',`";$b.=substr unpack("B8",chr(-48+ord)),2,6 for split//,'4100A0000000001017:8R5HR5@1@05E15R5R;:9Ra4`8\\A<0<30a`<C4C2=URa7PRbP@PG4R<g@P<3D=C4cM288S=RK:HV`EVK1G<d0`LL74`EaV2K1Mg=db0000002ab';$b=~s/1(1.{4})|(..)/$t[ord pack"B8","000".($2?"000$2":$1)]/eg;print$b

Perl, 346 bayt

Sadece sıkıştırılmış dize 111 bayttır.

@t = split//, " _|\\/\n()V',`";
$k=[0,[1,[2,[[3,4],[[5,6],[7,[[8,9],[10,11]]]]]]]];

$b .= substr unpack("B8", chr(-48+ord)), 2, 6 for split//,'@P900000PBlc<b[<bX:0ZXUIUIVlcFKZLI^Y`LLMhjjW<oJcMGncNHS5MIW]l`ho3lMNgc<IW]V]i[=KUF]KUG[hL^l^^EMeSFiGmNggP001^Pl';

$d = $k;
$o.=$d=~/^\d/?$t[$s=$d,$d=$$k[$_],$s]:($d=$$d[$_],"")for split//,$b;
print $o

Python'un ne key= (0,(1,((((7,5),(6,(8,(11,(9,10))))),(4,3)),2))) yaptığını anlamaya çalışarak , çok benzer görünümlü bir perl versiyonu yaptım.

PHP 590

Açıkçası, ben kazanmaya çalışmıyorum, sadece başka bir sıkıştırma şemasını denemekle ilgileniyorum, ancak sadece kopyala yapıştırmanın daha basit 302 düz metin PHP çözümünü bile yenemez

10 kanalda bitmap olarak çalışır

"Golfed"

<? $l=['_'=>['l8kqo,ei','9uo6,2fko0','52m0w,5r1c','540lc,5maq','lifeo,19i7ai'],'|'=>[0,'1h39j4,105','1h2k8w,q9x','14l2jk,wlx','1h39j4,wlc','1s,0'],'/'=>[2=>'b9c0,n3kao','pa8,18y68','0,mihog','w,0'],'\\'=>[2=>'pc5,a0zy8','2,0','b9c1,am2kg'],'('=>[3=>'e8,b8lc','1s,4'],')'=>[3=>'3k,2t4w','g,1'],'V'=>[3=>'0,18y680'],'`'=>[2=>'0,g'],"'"=>[2=>'0,6bk'],','=>[4=>'0,g'],];$p=@str_pad;$b=@base_convert;$i=-1;while($i++<5){$h=' ';foreach($l as$c=>$r)if(@$r[$i]){$a=explode(',',$r[$i]);$d=str_split($p($b($a[0],36,2),27,0,0).$p($b($a[1],36,2),27,0,0));foreach($d as$j=>$v)$v&&$h[$j]=$c;}echo"$h\n";}

okunabilir

<?php
$l = ['_'=>['l8kqo,ei','9uo6,2fko0','52m0w,5r1c','540lc,5maq','lifeo,19i7ai'],
      '|'=>[0,'1h39j4,105','1h2k8w,q9x','14l2jk,wlx','1h39j4,wlc','1s,0'],
      '/'=>[2=>'b9c0,n3kao','pa8,18y68','0,mihog','w,0'],
     '\\'=>[2=>'pc5,a0zy8','2,0','b9c1,am2kg'],
      '('=>[3=>'e8,b8lc','1s,4'],
      ')'=>[3=>'3k,2t4w','g,1'],
      'V'=>[3=>'0,18y680'],
      '`'=>[2=>'0,g'],
      "'"=>[2=>'0,6bk'],
      ','=>[4=>'0,g'],
      ];
$p=@str_pad;
$b=@base_convert;
$i=-1;
while($i++<5){
    $h = str_repeat(' ',54);
    foreach($l as $c=>$r)
        if(@$r[$i]){
        $a = explode(',',$r[$i]);
        $d = str_split($p($b($a[0],36,2),27,0,0).$p($b($a[1],36,2),27,0,0));
        foreach($d as$j=>$v)
            if ($v)
                $h[$j]=$c;
        }
    echo "$h\n";
}

Pylongolf2, 300 bayt

" _   _      _ _                             _     _ _
| | | | ___| | | ___    __      _____  _ __| | __| | |
| |_| |/ _ \ | |/ _ \   \ \ /\ / / _ \| '__| |/ _` | |
|  _  |  __/ | | (_) |   \ V  V / (_) | |  | | (_| |_|
|_| |_|\___|_|_|\___( )   \_/\_/ \___/|_|  |_|\__,_(_)
                    |/"~

Herhangi bir klas kodlama yöntemi bulamadım, bu yüzden muhtemelen rekabet etmiyorum .

Golf Temel 84, 325

:"                     "_Str1t` _   _      _ _ "d`Str1d`Str1t`_     _ _"t`| | | | ___| | | ___    __      _____  _ __| | __| | |"t`| |_| |/ _ \ | |/ _ \   \ \ /\ / / _ \| '__| |/ _` | |"t`|  _  |  __/ | | (_) |   \ V  V / (_) | |  | | (_| |_|"t`|_| |_|\___|_|_|\___( )   \_/\_/ \___/|_|  |_|\__,_(_)"t`                    |/"

Bir hesap makinesinin ters çentik, ters eğik çizgi, tekli boru ve alt çizgi yazdırabileceğini varsaymak.

HTML + JS (223 unicode karakter)

Sadece eğlence için:

<body onload=p.innerHTML=unescape(escape("𘁟𘀠𘁟𘀠𘀠𘀠𧰠𧰠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𧰠𘀠𘀠𧰠𧰊𯀠𯀠𯀠𯀠𧱟𧱼𘁼𘁼𘁟𧱟𘀠𘀠𧱟𘀠𘀠𘀠𧱟𧱟𧰠𘁟𘁟𧱼𘁼𘁟𧱼𘁼𘁼𒡼𘁼𧱼𘁼𛰠𧰠𧀠𯀠𯀯𘁟𘁜𘀠𘁜𘁜𘀯𧀠𛰠𛰠𧰠𧁼𘀧𧱟𯀠𯀯𘁟𨀠𯀠𯀊𯀠𘁟𘀠𯀠𘁟𧰯𘁼𘁼𘀨𧰩𘁼𘀠𘁜𘁖𘀠𥠠𛰠𚁟𚐠𯀠𯀠𘁼𘁼𘀨𧱼𘁼𧱼𒡼𧱼𘁼𧱼𧁟𧱟𯁟𯁟𯁜𧱟𧰨𘀩𘀠𘁜𧰯𧁟𛰠𧁟𧱟𛱼𧱼𘀠𯁟𯁜𧱟𛁟𚁟𚐊𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𘀠𯀯").replace(/uD./g,''))><pre id=p>

Not: bir "BOM ile UTF-8" HTML dosyasına kaydetmek zorunda.

PowerShell , 220 byes = kod: 9 + arşiv: 211

tar xOf t

Çevrimiçi deneyin!

Arşivi oluşturmak için Powershell betiği t(bkz. TIO):

(
" _   _      _ _                             _     _ _",
"| | | | ___| | | ___    __      _____  _ __| | __| | |",
"| |_| |/ _ \ | |/ _ \   \ \ /\ / / _ \| '__| |/ _` | |",
"|  _  |  __/ | | (_) |   \ V  V / (_) | |  | | (_| |_|",
"|_| |_|\___|_|_|\___( )   \_/\_/ \___/|_|  |_|\__,_(_)",
"                    |/"
) | Set-Content f -Force
tar zcfo t f
Get-ChildItem t # output info about archive size