PPCG Prime'ı çıktılayın

69

Bu PPCG Başbakanı

624 basamak uzunluğunda

777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777111111111111111111111111111111111111111111111111111111111111111111111111111111188888888118888888811188888811188888811188111118818811111881881111881881111881188111118818811111881881111111881111111188888888118888888811881111111881118888188111111118811111111881111111881111881188111111118811111111881111881881111881188111111118811111111188888811188888811111111111111111111111111111111111111111111111111111111111111111111111111111111333333333333333333333333333333333333333



Her 39 basamağı bölersek,

777777777777777777777777777777777777777
777777777777777777777777777777777777777
777777777777777777777777777777777777777
777777777777777777777777777777777777777
111111111111111111111111111111111111111
111111111111111111111111111111111111111
188888888118888888811188888811188888811
188111118818811111881881111881881111881
188111118818811111881881111111881111111
188888888118888888811881111111881118888
188111111118811111111881111111881111881
188111111118811111111881111881881111881
188111111118811111111188888811188888811
111111111111111111111111111111111111111
111111111111111111111111111111111111111
333333333333333333333333333333333333333

Senin görevin PPCG-Prime çıktısını almak

Bu codegolf . Bayt cinsinden en kısa kod kazanır.

Aşağıdaki Mathematica işlevinde PPCG-Prime'ı girerseniz, bu sonucu elde edersiniz 

ArrayPlot@Partition[IntegerDigits@#,39]&

görüntü tanımını buraya girin

code-golf  kolmogorov-complexity  primes 
37
Bunu nasıl buldunuz?
— Stewie Griffin
5
@StewieGriffin Bir sayının nasal olma olasılığı 1/log(n), zaten çok küçük olmayanla orantılıdır . Asal olana kadar sayıları kontrol et.
— user202729
2
Yorumlar genişletilmiş tartışmalar için değildir; bu konuşma sohbete taşındı .
— Dennis,
1
@ user202729 bu durumda log(n)yaklaşık 1436.6.
— Jeppe Stig Nielsen
3
@Fabian Bu yöntemin etkili olacağını sanmıyorum ... Bu kadar büyük bir Başbakan için (624 hane), sorduğun sayı 621 hane (ve golf oynamak için daha zor), bu 10 ^ 621 asal!!! Numaranızı bulmak istiyorsanız, burada x/logxGauss tarafından basit bir yaklaşım

Yanıtlar:

22

Jelly , 55 54 52 47 46 bayt

“=÷¡v⁺ʋiṂYR¤"bİɲ}Ñ1Ṇ⁴ẠV⁹yȥGẇ’“¿mŻ“p’Dx39jBo88V

Revizyon tarihinde daha karmaşık yaklaşımlar var, ama bu basit olan hepsini yeniyor.

Çevrimiçi deneyin!

Nasıl çalışır

“=÷¡v⁺ʋiṂYR¤"bİɲ}Ñ1Ṇ⁴ẠV⁹yȥGẇ’

Bu, rakamların Jelly kod sayfasından alındığı 250 numaralı bibazı tabanına kodlanmış sayısal bir bilgidir. Zincirin (solda) argümanı ve dönüş değeri kodlanmış tamsayıya ayarlanır,
n: = 0x21871c77d7d7af6fafafeff0c37f72ff7fbfbdbfdfef5edfeff8e3 .

“¿mŻ“p’

Yukarıdakiyle benzer bir hazır bilgi, ancak ikincisi “iki kodlanmış tam sayıyı ayırır. Dönüş değeri kodlanmış dizi ile değiştirilir, [777711, 113] .

Dx39

Ddönüş değerini ondalık değere dönüştürür ( [[7, 7, 7, 7, 1, 1], [1, 1, 3]] ), ardından x39sonuçtaki her bir tam sayı / basamağı 39 kez tekrar eder. Bu, sırasıyla 7 karakterlik yüksek metinden önce ve sonra basamakları içeren bir çift dizi verir. Bu diziye A diyelim .

jB

İlk olarak, B(left) argümanını n , ikiliye dönüştürür . Bu, her 88'in 0 ile değiştirildiği 7 karakterlik yüksek metni oluşturan rakamları verir .

Ardından, ikili diziyi ayırıcı olarak kullanarak Aj dizisine katılır .

o88

Bu , her biri 0 ile 88 arasında değişen , 88 ile mantıksal OR gerçekleştirir .

V

Şimdi doğru rakamlara sahibiz, ancak 7 , 1 , 88 ve 3 ' lerden oluşan bir dizide . Vdolaylı olarak bu diziyi bir dizgeye dönüştürür ve daha sonra tek bir tamsayı vererek onu değiştirir.

— Dennis
kaynak
6

Bubblegum , 51 bayt

00000000: 331f c4c0 90ba c002 0a90 5986 d818 50d5  3.........Y...P.
00000010: 282c 3406 6e65 5036 1e4b 9195 8109 649d  (,4.neP6.K....d.
00000020: 5858 1896 4279 68b2 f895 61fa 94ca c098  XX..Byh...a.....
00000030: 3800 00                                  8..

Çevrimiçi deneyin!

— ovs
kaynak
6

SOGL V0.12 , 52 51 bayt

≡=vā⁷H↕↕jΥ_Ν↑∆∫▲pΖo	‘θδžΟwd╬2n?q[‘²Κ7n⌡"α¼■╤ģ⅞¹‘¹H∑

bubblegum bağları!
bu cevabın bir sekme içerdiğini unutmayın.

Burada dene!

Her ikisi için de aynı dizeyi yeniden kullanarak baytları kaydetmeye çalışır P.

Açıklama:

...‘...‘²Κ7n⌡"..‘¹H∑  compressed strings replaced with ellipses to shorten the width
...‘                  pushes "1111111188888188888888111118811111881111188111118881118818111811111111188888188888888111118811111881111188118118888818818881811118111" - CG
    ...‘              pushes "1111111888888888888881118118111811811181181118118111811811188881111881" - P
        ²             join with itself - double the P
         Κ            reverse add - prepend the PP to CG
          7n          split to line lengths of 7
            ⌡         for each
             "..‘       push "311ŗ117777" with ŗ replaced with the ToS - current item looping over
                 ¹    wrap the results tn an array
                  H   rotate it counter-clockwise
                   ∑  join to a single string

Buradaki sayılar orijinalin sol altından başlayarak, yukarı, sonra 1 sağa ve aşağı, sonra yukarı vb.

52 bayt düz sıkıştırma sürümü:

#⅓→9E■Ν►1&⅝θ⅞%øøμ←N═]y)u⅝↓$A○░(ZF16Φ⅓Mč▓d⅛Hι‼∑υnη▲Z‘

Burada dene!

— dzaima
kaynak
— Gönderdiğiniz şeyin
1
...‘bu sayıları nasıl alır ?
— Pureferret
1
@Pureferret Dize sıkıştırma.
— tamamen insan
@totallyhuman öyleyse dizeleri nasıl kodlar / sıkıştırır ...‘?
— Pureferret
@dzaima Maalesef bunun anlamama yardımcı olduğunu sanmıyorum. CGBu alete kodlayan ilk bölüme girmek, bu alette ...‘hiçbir şey vermez .
— Pureferret
4

Mathematica, 107 bayt

Uncompress@"1:eJxTTMoP8ixgYmAwH8TAkLrAAgqQWYbYGFDVGCxkBh5lCDNwWIqqDCyGrAGDhWEpFmXY3IaiDItPqQqMiQMA+yaAoA=="


Çevrimiçi deneyin!

— J42161217
kaynak
Yanılıyorsam düzelt, ancak bu yalnızca bir REPL çözümü mi? Bu bir işlev olarak gözükmüyor ( &sonunda bir bekarla çözebileceğini tahmin ediyorum ).
— numbermaniac
bunun bir fonksiyon olması gerekmiyor. bu kod sadece OP'nin sorduğu gibi PPCG üssünün çıktısını aldı
— J42161217
4

CJam, ASCII, 61

Hs78f*~_@"'hfv;HH`>O4RU(_o^.U)9q&-1iadr`4tk"90b2b88fe|1$'339*

Çevrimiçi deneyin

]s39/N*Güzel sarma için ekleyin .

Açıklama:

Hs         generate "17" (H=17)
78f*       repeat each character 78 times, getting an array of 2 strings
~_         dump the 2 strings on the stack, and duplicate the '7's
@          move the '1's to the top of the stack (first 6 lines done so far)
"…"90b     convert that string from base 90 (treating characters as numbers)
2b         convert the resulting number to base 2,
            obtaining a bit map for the "PPCG" part, with 1 for "1" and 0 for "88"
88fe|      replace (boolean OR) all the zeros with 88
1$         copy the string of 78 '1's
'339*      repeat '3' 39 times
— aditsu
kaynak
4

C, 519 427 414 396 377 bayt

Tas, Felix Palmen ve Lynn sayesinde.

#define p(n,l)for(i=40*l;i;)putchar(--i%40?n+48:10);
f(i){p(7,4)p(1,2)puts("188888888118888888811188888811188888811\n188111118818811111881881111881881111881\n188111118818811111881881111111881111111\n188888888118888888811881111111881118888\n188111111118811111111881111111881111881\n188111111118811111111881111881881111881\n188111111118811111111188888811188888811");p(1,2)p(3,1)}

İlginiz için, işte daha uzun ve okunması kolay bir sürüm:

#define p(n,l) for(i=40*l;i;) putchar(--i%40?n+48:10);
f(i) {
    p(7,4)
    p(1,2)
    puts("188888888118888888811188888811188888811\n\
       188111118818811111881881111881881111881\n\
       188111118818811111881881111111881111111\n\
       188888888118888888811881111111881118888\n\
       188111111118811111111881111111881111881\n\
       188111111118811111111881111881881111881\n\
       188111111118811111111188888811188888811");
    p(1,2)
    p(3,1)
}
— xanoetux
kaynak
1
Sen olabilir çok daha düşük olsun sadece oldukları gibi 1'ler ve 8s baskı ve 7, 3 ve 1 için tanımlamak suretiyle (~ 450ish)
— Tas
@Keyu Gan: Birkaç yıl boyunca buna izin veren GCC'nin (7.2.0-debian11) bir versiyonunu derliyorum. Sözdiziminin belki de yeni C standartlarından birinde olup olmadığından emin değilim.
— xanoetux
2
@Keyu Gan: C99 ve C11’de izin verilir.
— xanoetux
1
— Felix Palmen
Bu sürüm çok zor. En azından anlıyorum; Teşekkürler.
— xanoetux
4

Java (OpenJDK 8) , 165 bayt

n->{for(int i=0;++i<566;)System.out.print(i<157?7:i>526?3:i<236|i>446||new java.math.BigInteger("vnku5g6l0zenpa1kydel5rxw162k4fk4xapa154o",36).testBit(446-i)?1:88);}

Çevrimiçi deneyin!

Kredi

  • -10 Aditsu sayesinde bayt!
— Olivier Grégoire
kaynak
165:n->{for(int i=0;++i<566;)System.out.print(i<157?7:i>526?3:i<236|i>446||new java.math.BigInteger("vnku5g6l0zenpa1kydel5rxw162k4fk4xapa154o",36).testBit(446-i)?1:88);}
— aditsu
Güzel yakalayış, çift 88, teşekkürler!
— Olivier Grégoire
2

Retina , 129 bayt


h155b78i7b1i7b2i5b2i5b2!4!!4!""1!4!!4!!6#i7b1i7b1!6!2i3b##!6"1##""1#!8i5b2i5b79d38
#
!7
"
!3!
!
i1b
\d+
$*
+`(\D)1
$1$1
1

T`l`d

Çevrimiçi deneyin!

— ovs
kaynak
2

Toplu İş, 364 335 333 bayt

@set a=888888&set b=1111111111111&set e=1881111&set d=1%e%&set f=333333333&for /L %%x in (1,1,156) do @cd|set/p=7
@echo %b%%b%%b%%b%%b%%b%1%a%8811%a%88111%a%111%a%1%d%188%e%188%e%88%e%88%d%188%e%188%e%1%d%1111%a%8811%a%88%d%111881118888%e%11%d%11%d%1%d%88%d%11%d%11%d%88%e%88%d%11%d%11111%a%111%a%%b%%b%%b%%b%%b%%b%11%f%%f%%f%%f%333
— schnaader
kaynak
1
echo|cd|
— Şuna
Teşekkürler, daha kısa bir şey olduğunu biliyordum ama hatırlayamadım
— schnaader
Ayrıca, (1,1,156) dokısaltılabilir(1,1,156)do
— stevefestl
2

Javascript (ES6), 187 181 bayt

@JustinMariner sayesinde -6 bayt

r=s=>s[0].repeat(39),a=r`7`,b=r`1`,i="8888881",c=188+i,d=11+i,j="188111",e=j+1188,f=j+188,g=j+111,h=g+1,k=r`3`
z=>"aaaabbccdd1eeff1eeghccgj8888hhgf1hhff1hhdd1bbk".replace(/./g,eval)

Süper basit yaklaşım; Muhtemelen biraz daha golf oynayabilirdi.

açıklama

r=s=>s[0].repeat(39),                               // helper function to repeat character
a=r`7`,b=r`1`,i="8888881",c=188+i,d=11+i,j="188111",// Set the variables (a-k) to different
e=j+1188,f=j+188,g=j+111,h=g+1,k=r`3`               // parts of the prime       

_=>"aaaabbccdd1eeff1eeghccgj8888hhgf1hhff1hhdd1bbk" // Replace all letters in the string
    .replace(/./g,eval)                             // with the value of the variable

Örnek kod pasajı (çıktıya satır sonu eklemek için bazı yardımcı kodlarla)

Kod pasajını göster

— Herman L
kaynak
Eğer bir yardım edicinin eğer bazı bayt kaydedebilirsiniz rolarak r=s=>s[0].repeat(39)ve daha sonra değiştirmek a, bve kile r`7` vb çevrimiçi deneyin! .
— Justin Mariner
2

C (gcc) , 269 267 bayt

işlevi, basit RLE kullanır.

x[]={39,79,80,156};k;f(i){for(char*c="d7b1882188316831683128512811285128112841281128412821285128112851281128712881882188212871283148112881288128712841282128812881284128112841282128812891683168c1a3";i=*c++;++c)for(i=i<97?i-48:x[i-97];i--;++k%39||puts(""))putchar(*c);}

Çevrimiçi deneyin!

— Felix Palmen
kaynak
Öner L"'OP\x9c"yerinex
— ceilingcat
2

C (gcc) , 224 bayt

f(i,j,c){for(i=0;c="wwdfFdfFDfFDfFDFDDFFDDFFDddDDFdDDddDDddDDDdDDDDffDffDFDDDFDfdDDDDFDDDdDDDdDDFdDDDDFDDDdDDFFDdDFDDDdDDDDdfDdfD"[i/2]>>i++%2*4&15;c-6?putchar(c-4?c+48:49):printf("88"))for(j=0;j++<c%2*38;)putchar(c+48);}

Çevrimiçi deneyin!

Bazı yazdırılamaz içerir, dize değişmez "ww\x11dfFdfFDfFDfFDFDDFFDDFFDddDDFdDDddDDddDDDdDDDDffDffDFDDDFDfdDDDDFDDDdDDDdDDFdDDDDFDDDdDDFFDdDFDDDdDDDDdfDdfD\x11\x03".

— Lynn
kaynak
1

Jöle , 86 bayt

Lẋ@1,8żḣLẋ/€F
7ẋ156;1ẋ78¤©;“½Ẹ^o“2FẒ⁶ġbȥ“¡E⁷£cṿ“t¡ɗḋ“£F¢Xȥ“¡McṾbȥ“¬3Ṭo’DÇ€F¤;®;3rẋ39¤Ḍ

Çevrimiçi deneyin!

User202729 sayesinde -12 bayt

— HyperNeutrino
kaynak
88 bayt: TIO ( “can separates a list of strings inside a string literal)
— user202729
Senin ülkende saat kaç? Neden şimdi uyanıksın?
— user202729
@ user202729 Oh doğru, teşekkürler. Ve ben UTC-4'tayım. Aptal bir şey yaptım ve geç kalmak zorunda kaldım, bu yüzden yeniden açıldığından beri uyumadan önce bir meydan okuma yapmak gibi hissettim. İsterseniz sohbeti
— açıklayabilirim
1

Python 2 , 309 158 155 136 135 bayt

x='1'*78
s='7'*156+x
a=1
for c in str(int('109PDKEZ3U32K97KJQVELW8GKXCD42EGEYK715B6HPMPL0H8RU',36)):s+=`a`*int(c);a^=9
print s+x+'3'*39

Çevrimiçi deneyin!

Python 2 , 137 bayt

s='7'*156
a=1
for c in'90'*8+str(int('PL6PU5TXIC24LCKIQY50C2LPAIC9TVZEVQGTMM63IHGBBUV1XSA6',36))+'09'*8:s+=`a`*int(c);a^=9
print s+'3'*39

Çevrimiçi deneyin!

— TFeld
kaynak
1

Jöle , 85 bayt

”7ẋ“ɓ’80“¡Ȯ⁶LÑɓĠ⁶-€Øġ°$¤ṛọḳƓƒṭ⁽@^ḥ⁷Ofạ<e½Ṇż;,RṘ¶ṀḊ+`⁸ⱮḃĿþṛ9.wƑ¡kḟUẎgLLµ’ḃĖŒṙị⁾1839”3ẋ

Çevrimiçi deneyin!

Dennis'in Trinity Hall yarışmasına yaklaşımına dayanarak, simetriyi, artı liderleri 7ve takip edenleri 3s.

— Outgolfer Erik
kaynak
3
Dennis, bu zorluğa farklı bir yaklaşımla yaklaşıyor çünkü farklı bir durum. Bence sen aşıldı!
@JoseZaman Jelly BTW'yi yaptı.
— Outgolfer Erik,
1

PowerShell , 164 bayt

$a='136361616151315131531532513151315215436365213213315454521532545453153254541616';6..2|%{$a=$a-replace$_,(11,88,22,34,3332)[$_-2]};'7'*156+'1'*78+$a+'1'*78+'3'*39

Çevrimiçi deneyin!

Dize çarpma, birleştirme ve değiştirmeler. PowerShell baz 36 ya da benzeri bir özelliği bulunmadığından çok sayıda sıkıştırma seçeneği sınırlıdır. Orta kısmı "sıkıştırmanın" daha iyi bir yolu olabilir - Ben hala kontrol ediyorum.

— AdmBorkBork
kaynak
1

Wolfram Dili (Mathematica) , 89 (17 + 71 + 1) bayt

İlk önce numarayı bir GZIP dosyasına verin. Uzantı olmayan "o" adlı bu dosya, toplamda önemli olan 71 bayt olacaktır. Varsayılan olarak, size gider $TemporaryDirectory. Okunabilirlik için rakam atlamak.

Export["o",777777...,"GZIP"]

Sonra

"o"~Import~"GZIP"

sayıyı yeniden inşa edecek. Dosya adı bir bayttır, yani + 1'in geldiği yer burasıdır.

Çevrimiçi deneyin!

— Kelly Lowder
kaynak
1

Ruby, 109 bayt

Komut Zlib.inflatenumarası açmak için çağırır . En azından Ruby 1.9.3'e ihtiyacı var. Yazdırılamaz baytlar içerdiğinden buraya yapıştıramam.

Çıktısını yapıştırabilirim vis prime-inflate.rb:

require'zlib'
puts Zlib.inflate DATA.read
__END__
x\M-Z37\^_\M-<\M-@\M^P\M-:\M-@\^B
\M^PY\M^F\M-X\^XP\M-U\^X,d\^F\^^e\^H3pX\M^J\M-*\^L,\M^F\M-,\^A\M^C\M^Ea)\^Ve\M-X\M-\\M^F\M-"\^L\M^KO\M-)
\M^L\M^I\^C\^@\^P\M-p~\M-!

Unvis'iniz (1) varsa, unvis prime-inflate.vis > prime-inflate.rb109 baytlık betiği geri yüklemek için çalıştırın . Veya aşağıdaki Base64 kodunun kodunu çözebilirsiniz ruby -e 'print *STDIN.read.unpack(?m)' < prime-inflate.b64 > prime-inflate.rb.

cmVxdWlyZSd6bGliJwpwdXRzIFpsaWIuaW5mbGF0ZSBEQVRBLnJlYWQKX19F
TkRfXwp42jM3H7zAkLrAAgqQWYbYGFDVGCxkBh5lCDNwWIqqDCyGrAGDhWEp
FmXY3IaiDItPqQqMiQMAEPB+oQ==

Diyorum Zlib.inflateki kendi dekompresyon algoritmamı tasarlamam ve golf oynamak zorunda kalmam. Kullandığım DATAile __END__sıkıştırılmış dize geçerli UTF-8 olmadığından. Ruby kodunun ASCII (Ruby 1.9.x'te) veya UTF-8 (Ruby 2.0'dan) geçerli olması veya #coding:binarykodlamayı değiştirmek için sihirli bir yorumu olması gerekir , ancak Ruby kodlamayı sonradan kontrol etmez __END__.

— kernigh
kaynak
1

6502 makine kodu (C64), 142 122 bayt

00 C0 A9 27 85 FB A2 00 86 FC A2 04 CA 10 01 60 BC 70 C0 BD 74 C0 20 D2 FF C6
FB D0 0B 48 A9 27 85 FB A9 0D 20 D2 FF 68 88 D0 EB E0 02 D0 DD 48 A5 FC 4A A8
B9 4A C0 90 04 4A 4A 4A 4A 29 0F F0 08 E6 FC A8 68 49 09 D0 CD 68 D0 C0 28 38
36 36 52 12 52 12 42 12 42 22 52 12 52 12 72 82 28 28 72 32 14 82 82 72 42 22
82 82 42 12 42 22 82 92 36 06 27 50 4F 9C 33 31 31 37

Çevrimiçi demo

Kullanımı: sys49152

  • -20 bayt büyük bloklar için de aynı yöntem ve veri tablolarının daha iyi uygulanması ile.

açıklama

Bu ayrıca orta kısımdaki 1ve 8dizilerinin uzunluklarını da kullanır ; hepsi 16'dan kısa olduğu için, ikisi bayt başına kodlanmıştır.

Yorumlanan sökme listesi:

         00 C0        .WORD $C000       ; load address
.C:c000  A9 27        LDA #$27          ; counter for newlines (39)
.C:c002  85 FB        STA $FB
.C:c004  A2 00        LDX #$00          ; index for run-length data
.C:c006  86 FC        STX $FC
.C:c008  A2 04        LDX #$04          ; index for "blocks" (counting down)
.C:c00a   .blockloop:
.C:c00a  CA           DEX
.C:c00b  10 01        BPL .continue     ; block index underflow -> done
.C:c00d  60           RTS
.C:c00e   .continue:
.C:c00e  BC 70 C0     LDY .lseqlens,X   ; load length of next block to Y
.C:c011  BD 74 C0     LDA .chars,X      ; load character of next block to A
.C:c014   .outloop:
.C:c014  20 D2 FF     JSR $FFD2         ; output character
.C:c017  C6 FB        DEC $FB           ; decrement newline counter
.C:c019  D0 0B        BNE .skipnl
.C:c01b  48           PHA               ; newline needed -> save accu
.C:c01c  A9 27        LDA #$27          ; restore newline counter
.C:c01e  85 FB        STA $FB
.C:c020  A9 0D        LDA #$0D          ; load newline character
.C:c022  20 D2 FF     JSR $FFD2         ; output character
.C:c025  68           PLA               ; restore accu
.C:c026   .skipnl:
.C:c026  88           DEY               ; decrement repeat counter
.C:c027  D0 EB        BNE .outloop      ; repeat until 0
.C:c029  E0 02        CPX #$02          ; check for block index of text part
.C:c02b  D0 DD        BNE .blockloop    ; not in text part -> repeat
.C:c02d   .textpart:
.C:c02d  48           PHA               ; save accu
.C:c02e  A5 FC        LDA $FC           ; load index for run-length data
.C:c030  4A           LSR A             ; and shift right
.C:c031  A8           TAY               ; -> to Y register
.C:c032  B9 4A C0     LDA .seqlens,Y    ; load run-length data
.C:c035  90 04        BCC .lownibble    ; carry clear from shift -> low nibble
.C:c037  4A           LSR A             ; shift high nibble into low nibble
.C:c038  4A           LSR A
.C:c039  4A           LSR A
.C:c03a  4A           LSR A
.C:c03b   .lownibble:
.C:c03b  29 0F        AND #$0F          ; mask low nibble
.C:c03d  F0 08        BEQ .textdone     ; run-length zero? then text block done
.C:c03f  E6 FC        INC $FC           ; increment index for run-length data
.C:c041  A8           TAY               ; run-length to y-register
.C:c042  68           PLA               ; restore accu
.C:c043  49 09        EOR #$09          ; toggle between '8' and '1'
.C:c045  D0 CD        BNE .outloop      ; and back to output loop
.C:c047   .textdone:
.C:c047  68           PLA               ; restore accu
.C:c048  D0 C0        BNE .blockloop    ; back to loop for next block
.C:c04a   .seqlens:
.C:c04a  28 38 36 36  .BYTE $28,$38,$36,$36
.C:c04e  52 12 52 12  .BYTE $52,$12,$52,$12
.C:c052  42 12 42 22  .BYTE $42,$12,$42,$22
.C:c056  52 12 52 12  .BYTE $52,$12,$52,$12
.C:c05a  72 82 28 28  .BYTE $52,$82,$28,$28
.C:c05e  72 32 14 82  .BYTE $72,$32,$14,$82
.C:c062  82 72 42 22  .BYTE $82,$72,$42,$22
.C:c066  82 82 42 12  .BYTE $82,$82,$42,$12
.C:c06a  42 22 82 92  .BYTE $42,$22,$82,$92
.C:c06e  36 06        .BYTE $36,$06
.C:c070   .lseqlens:
.C:c070  27 50 4F 9C  .BYTE $27,$50,$4F,$9C
.C:c074   .chars:
.C:c074  33 31 31 37  .BYTE "3117"
— Felix Palmen
kaynak
1

C (gcc) , 188 187 185 bayt

- Jonathan Frech'e teşekkürler.

-2 ceilingcat sayesinde.

#define F(c,n)for(c=0;c<n;c++)
i,j,k;r(d,n){F(k,n)printf("%d",d);}f(){r(7,156);r(1,79);F(i,45)F(j,6)r("pdpi8pIa7]R>=4gQ>Q2iPoX2=O4a1=QRJ17QR>=4a1i8p"[i]-49>>j&1?8:1,1);r(1,80);r(3,39);}

Çevrimiçi deneyin!

— gastropner
kaynak
2
PPCG'ye hoş geldiniz, ilk cevap güzel!
— ovs
Bir ters eğik çizgiden kaçmaya gerek duymayan bir dizgeye ulaşmak için dizginizi değiştirebilir, bunun sonucunda 187 bayt ile sonuçlanabilir .
— Jonathan Frech
@JonathanFrech Ah, güzel bir!
— gastropner
@ceilingcat İyi yakala!
— gastropner
0

Befunge-93 , 500 bayt

v F         >20g1-20p
>"3"20g10g`#^_>52*"F"20p30g10g`#v_"^!1"21p30p84*2+1p
^                       p03-1g03<
^>"81118888888811888888881>!"30p84*2+1p52*
^^"8888811188888811"*25"188111118"<>">#7"21p30p57*5p
>*"188111188188111188188111118818"^ $>:#,_@
^25"18811111881881111188188111111"<
>"8888811888888881"25*"1111111881"^
^"88811881111111881118888"*25"188"<
>"1188111111188111111118811111111"^
^"11881"*52"188111111118811111111"<
>"11111881"52*"188111188188111188"^
^"1118811111111188888811188888811"<

Çevrimiçi deneyin!

— ItsJ0el
kaynak
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.