10 x 10 yıldız işareti yazdır


83

Arka fon

Bu, döngüler için gösterilecek standart bir ders kitabı örneğidir.

Bu, ~ 10 yıl önce programlama öğrenmeye başladığımda öğrendiğim ilk programlardan biri.

Görev

Bu tam metni basacaksınız:

**********
**********
**********
**********
**********
**********
**********
**********
**********
**********

gözlük

  • Ekstra takip eden yeni hatlarınız olabilir.
  • Her satırın sonunda, sondaki yeni satırlar dahil olmak üzere ekstra sonda boşlukları (U + 0020) olabilir.

puanlama

Bu . Bayt cinsinden en kısa cevap kazanır.

Liderler Sıralaması

Burada hem düzenli bir lider tablosu hem de kazananların dile göre genel bir bakış oluşturması için bir Stack Snippet'i var.


2
@DylanMeeus "Bu tam metni basacaksınız :"
Leaky Nun

13
@DylanMeeus Bu, tekrarlanan konsol çıktılarını gizleyen ve araçların bir bütün olarak JavaScript konsollarına özgü olmadığı ve JavaScript spesifikasyonunda olmadığı ve bu özelliğin kapatılabileceği gerçeğiyle - sanırım, kabul edilebilir olmalı. Tüm tarayıcılar bu şekilde çökmeyecektir.
Trotski94

6
@LeakyNun Lider Tablosu pasajı lütfen!
dkudriavtsev

2
Bu meydan okuma ile ilgili en ilginç şeylerden biri, dilinize bağlı olarak ********** bir döngüden daha kısa olabilir. Belirli bir dilin 1 veya 2 döngü arasında geçiş yapmasının ne zaman daha iyi olacağını merak ettim.
dwana,

1
takip eden yeni satırların kabul edilebilir olduğunu söylüyorsunuz. Önde gelen yeni hatlar da kabul edilebilir mi?
Albert Renshaw

Yanıtlar:




65

Bash + coreutils, 19 bayt

Bash'deki şeyleri 'evet' kullanarak tekrar etmeyi tercih ederim.

yes **********|head

Neil'in önerisi ile 2 bayt kurtardım. Ancak, bu komutu çalıştırdığınız dizin yalnızca '.' İle başlayan dosyaları içermiyorsa Yıldızları içine gerekir dot *ile ".

Bash + coreutils, 21 bayt

yes "**********"|head

2
Kullanmak için harika bir fikir yes. Genellikle "Bash + coreutils" gibi çözümleri etiketleriz.
Manat çalışması

8
Neyse ki, 10 satır rastlantısal bir şekilde varsayılan olacak head.
Dijital Travma,

3
Geçerli dizindeki herhangi bir dosyanın bir ile başlamasını gerektiren iki bayt kaydedebilir misiniz .?
Neil

@Neil, yorumunuz cevabım için mi? Öyleyse, anlamıyorum :)
KuzenCocaine

1
Ayrıca yes \**********|headdosya kısıtlaması olmadan da yazabilirsiniz .
Florian F

50

Vim, 13 8 bayt

@Lynn sayesinde 5 bayt kaydedildi

qqi*␛9.o␛q9@q 

10i*␛Y9p

10i*␛10 kez yerleştirin *ve Y9pçizgiyi kopyalayıp 9 kez yapıştırın.


8
10i*♥Y9pEserleri.
Lynn

1
Bu delilik vi.
nbubis

Sanırım metin editörleri için bayt yerine tuş vuruşlarını sayabilirsiniz, yani <ESC> daha kısa olur.
addison

1
Neden ♥ ve ␛ değil?
CL.

1
Kullanmış olurdu yy9pkendime, ama güzel iş bir karakteri kurtarmak için başkentlerini kullanarak!
Joe Z.

49

Pyth, 6 bayt

VT*T\*

TPyth'de 10, Vabdeyim b azamanlarını çalıştırır \*, yıldız karakteri sabittir ve *bir dize ile çarpılır ( ) ve bir tamsayı o dizeyi n kere tekrarlar. Pyth'in örtülü baskısı, V10 satır yazdırıldığı anlamına gelir.


40

Hexagony, 37 35 34 31

10"+}(=${";<$<1}42/.0@_=<>\;>(_

Expanded:

   1 0 " +
  } ( = $ {
 " ; < $ < 1
} 4 2 / . 0 @
 _ = < > \ ;
  > ( _ . .
   . . . .

Çevrimiçi deneyin

Temel olarak, ondan sıfıra kadar geri sayım yapan, iç döngüde bir yıldız işareti basan ve dış döngüde yeni bir çizgi yazan iki tane döngü vardır.

Açıklama:

Bu program üç ana bölümden oluşur: hafızanın başlaması, on yıldız basan bir döngü ve yeni bir satır basan bir döngü. Yeni bir satır basan ilmek ayrıca yıldız işaretlerini basan ilmeği de içerir.

İlk olarak, kod tamamen doğrusal bellek başlatma işlemini çalıştırır. Kod olduğu ortaya çalışır: 10"+}42. Bu, yakındaki kenarların hafızasını şöyle görünecek şekilde ayarlar:

10 \ / 10
    |
   42

Şekil 42, yıldız karakteri için ASCII kodudur ve iki onlar döngü sayıcılarımız olarak kullanılacaktır. Unutulmaması gereken şey, hafıza işaretleyicisinin şu anda iki onlarca uzağa işaret ettiğidir, bu nedenle geriye doğru hareket etmek bizi onlardan birine yerleştirecektir.

Ardından, yıldız işareti yazdırma döngüsünü başlatırız. Doğrusal olarak, kod şöyle görünür: ;".._(. Bu, bir yıldız işaretini basar, bellek işaretleyicisini geriye ve sola hareket ettirir ve sonunda oradaki değeri azaltır. Bir yinelemeden sonra, hafıza şöyle görünür:

10 \ / 9
    |
   42

Sonra döngü durumuna çarptık: en soldaki >. Azalttığımız kenar hala pozitifse, hemen zıplıyoruz ve a'yı {bizi 42'ye $geri götürmek için ;yürütüyoruz <. Eğer değer sıfırsa, diğer döngüye gireriz.

Dış döngü, son zamanlarda sıfırlanan bellek kenarını on'a sıfırlayarak başlar (bu, 10kodun içindeki, güneybatısında olan). Daha sonra, bu on'u yeni bir satır olan bir ASCII karakteri olarak basarız. Sonra, diğer bellek kenarına taşımak ve bunu azaltma {(ve daha sonra noops bir demet ne miktarda yürütün: =${_=. Şimdi, bu döngünün bir yinelemesinden sonra, bellek şöyle görünür:

 9 \ / 10
    |
   42

Bu sefer, hafıza, yukarıdaki diyagramda bir dokuzu depolayan kenardan dışarı doğru bakıyor. Daha <sonra dış döngü için döngü koşulu görevi görüyoruz . Değer sıfır değilse, bazı aynaların etrafında zıplıyoruz, ardından "hareket eden güneybatıdaki altıgenin tepesine girdikten sonra tekrar anlamlı talimatlar vermeye başlıyoruz . Bu, geriye ve sola doğru hareket etmemize, tekrar 42'ye doğru ilerlememize, ancak içeriye bakmamıza neden olur. Sonra =yönümüzü çevirir, durumu tekrar tekrar başlatmak için durumu sıfırlar. Kenar sıfıra ayarlanmışsa, komut gösterici programdan çıkana kadar hiçbir şey yapmayan küçük bir maceraya gider.

Macera, kardinal yönlerin güvenliğini tehlikeli bir şekilde göz ardı ederek, kuzeydoğuya yönelen talimat işaretçisi ile başlar. Cesurca, diretion ( /) ile hizalı olan ve kahramanca trambolinden ($tamamen başka bir, tamamen özdeş trambolinin ölümcül tuzağından kurtulmak. Başlatılmamış altıgen kenarların boşluğundan başlayarak, işaretçi, bir an için titremeden, birlikte karşılaştıkları iki boş kenarı birbirine ekleyerek geçerli kenarı toplamlarına ayarlar: 0 (kenar aslında sıfırdı, ancak işaretçi, bu oldukça önemli olduğuna inanıyoruz). Kenar sıfır olduğundan, işaretçi gizemli bir ormana (altıgenler) doğru yürürken yoldaki çataldan sola dönüş yapar. Orada, kendisini hafızada, aynı hafızaya başladığında aynı yere kadar sarılıncaya kadar ileri ve geri ve ileriye doğru hareket ederken bulur. Sorunun geçen sefer sıfıra ayarlanmış olması gerektiğini düşünerek, işaretçi cesurca1geçerli kenara Sonra, soylu işaretçi, biri tuzağa düşürülmüş, başka bir yolu araştırıyor! Geçerli kenar azaltılır ve tekrar sıfıra ayarlanır! Olayların şok edici dönüşüyle ​​şaşırtan işaretçi, mevcut kenarı negatif olana ayarlayarak tuzağa geri döner. İşaretçi, işaretçi nispeten hoş bir ormana geri dönmeye çalışır, yalnızca mevcut kenar pozitif olmadığından, patikaların yine de kaydığını ve işaretçinin kendisini bir mağarada yürürken bulduklarını fark etmek için çalışır. Ve bir mağarayla, kocaman altıgen bir solucanın ağzını kastediyorum. Çaresiz, işaretçi seksenliği ölen nefesiyle lanetler. Ayrıca, program sona erer.


Golly, umarım solucan imleci yutmakta iyidir. Bu şeyler acıtabilir .
Joffan

3
Şimdiye kadar okuduğum en ilginç olanı - tek olanı - Hexagony açıklaması. Kenar azaldığında çok gergindim!
Joe,

37

Emacs, 10 8 tuş vuruşlarını

F3 C-1 0 * ENTER F4 C-9 F4

açıklama

F3             Starts a macro recording
C-1 0 *        Apply 10 times command '*': prints 10 asterix'
ENTER          Insert new line
F4             Stops the macro record
C-9 F4         Apply 9 times the macro

Yerine düşündüren iki tuş vuruşlarını kaydetmek için Sean sayesinde C-udigitsahip C-digit.


9
+1, her zaman metin düzenleyici yanıtlarını değiştiririm (kendim de bir vim adamdan daha fazla olsam da) :)
DJMcMayhem

1
Eğer C-usadece tek bir tuş olarak sayılır, o zaman yazarak iki vuruş kapalı tıraş edebilirsiniz C-1 C-0(veya M-1 M-0bunun yerine) C-u 1 0ve C-9yerine C-u 9.
Sean,

15
+1 çünkü bunu yazmak için emacs kullanarak acı çekmek zorunda kaldınız.
addison

1
Alternatif olarak (hiçbir şeyden tasarruf edilmez) hat tekrarı makro içinde yapılabilir:F3 C-1 0 * ENTER C-1 0 F4
Jonathan Carroll

@JonathanCarroll evet, 10 satırdan fazla yazdırırsak baytları kurtarır;)
YSC

29

Jöle , 7 bayt

”*x⁵Ṅ9¡

Neler oluyor?

”*x⁵Ṅ9¡  - No arguments
”*       - character literal, *
  x      - multiply (dyadic operation)
   ⁵     - integer literal, 10 (we have now constructed the string '**********')
    Ṅ    - Print & linefeed (monadic operation)
     9   - integer literal, 9
      ¡  - Repeat n times (n is 9 as the first Ṅ is not a repeat)

Tryitonline'da test et


9
Ben gerçekten hoşuma gitti Ṅ9¡.
Dennis,

Liste sürümü: ”*ẋ⁵Wẋ⁵ .
Outgolfer Erik,

@EriktheGolfer Y"bu tam metni yazdırmak" için bir sonda ihtiyacınız olacak
Jonathan Allan

@JonathanAllan Yine de kendi başına bir liste. "Bu tam metni yazdır" demek değildir, ancak üzerinde çalışmak istiyorsanız, onu kullanacaksınız.
Outgolfer'lı Erik,

26

PowerShell, 14 12 bayt

,('*'*10)*10

10Dize çarpımını kullanarak bir yıldız dizesi uzunluğu oluşturur. Parens içindeki ve bir dizi oluşturmak için virgül operatörüne bunu besleyen kapsüller. Bu elemandan oluşan 10 elemanlı bir dizi oluşturmak için dizi çarpımını kullanırız (yani, 10 elemanlı bir yıldız işareti dizisi). Bu, boru hattında bırakılmıştır ve çıktı Write-Outputörtüktür ( bir dizinin varsayılanı newline ile ayrılmış olduğundan, bunu ücretsiz olarak alırız - açıklama için @Joey sayesinde).

Daha eski, 14 bayt

0..9|%{'*'*10}

Tam program Döngüler 0için 9bir geçiş ForEach-Objectdöngü |%{...}. Her yineleme, bir uzunluk 10dizesi oluşturmak için dize çarpımını kullanırız *. Sonuçta ortaya çıkan dizeler boru hattında bırakılır ve sonunda çıktı Write-Outputörtüktür ( bir dizinin varsayılanı newline ile ayrılmış olduğundan, bunu ücretsiz olarak alırız - açıklama için @Joey sayesinde).


5
Sevdim, çünkü powershell çok ayrıntılı olabilir. Oysa bu zarif ve kısa.
dwana

Teknik olarak, dizi asla a ile ToStringgeçilmez, kontrolsüzdür ve eleman tarafından eleman-Yazma-Çıkışına geçirilir. Dizinin dizgeye dönüştürüldüğü bağlamlarda, elemanlarını boşlukla ayırırsınız.
Joey

@Joey Ah, adil, bunu koymak için daha iyi bir yol. İfadeleri düzenleyeceğim (ve cevap şablonum ;-)).
AdmBorkBork,

1
Burada önyargılı olabilirim çünkü bir PowerShell uygulaması ile ilgiliyim, bu yüzden tercüman içinde gerçekte neler olup bittiğini öğrenmek zorunda kaldım;)
Joey

25

V , 7 bayt

10é*10Ä

Çevrimiçi deneyin!

Bir cevap olabileceği kadar basit.

Açıklama:

10      "10 times:
  é*    "insert an asterisk
    10Ä "make 10 copies of the current line

Rekabet etmeyen sürüm (5 bayt):

10O±*

Açıklama:

10O     " Insert the following on the next ten lines:
   ±    "   10 copies of
    *   "   an asterisk

Bu sorun bir hata nedeniyle ilan edildiğinde işe yaramadı.


Sipariş noktası: é ve Ä çok baytlı karakterlerdir (en azından burada olduğu gibi utf-8'de), bu nedenle bu program 9 bayttır.
soymak

6
@ rob Burada utf-8 olarak kodlanmıştır, çünkü tarayıcı tam olarak böyle çalışır. V, sırasıyla E9ve oldukları yerde "Latin1" kodlamasını kullanır C4.
DJMcMayhem

21

Denizanası , 12 10 bayt

2 bayt kaydettiği için Zgarb'a teşekkürler.

P$'*
 &;10

Çevrimiçi deneyin!

açıklama

Daha geleneksel notasyon kullanarak, bu program aşağıdaki ifadeyi temsil eder:

P( $( &;(10), '* ) )

&;Tek bir değer alır ve bu değerin iki katı olan bir çift oluşturur, bu yüzden &;(10)bize verir [10 10]. Sonra $bir 10x10 yıldız işareti oluşturan yeniden şekillendirilir. Son olarak, Pdiziyi her dizeyi kendi satırına basan "matris biçiminde" yazdırır.


20

HTML ve CSS, 104 60 bayt

p::after{content:"**********"
<p><p><p><p><p><p><p><p><p><p>

Bayt sayısının doğru olup olmadığından emin değilim (saymadığım için <style> CSS etiketleri saymadığım için. HTML ön işlemcisi kullandığımda HTML de kısaltılabilir, ancak kurallara uyup emin değilim.

Yapıt ve Business Cat sayesinde.

36 baytlık Jade girişime bak


Kendi kendine kapanmayı bırakabilir /ve tüm etiketleri aynı satıra yazabilirsiniz. Ancak <p>, eklemeniz gerekse bile etiketleri daha kısa olduğundan daha iyi değiştirin p{margin:0}.
Manat çalışması

2
Bu geçerli bir css değil. Kapama dirseğine ihtiyacınız var!
Richard Hamilton

25
@RichardHamilton geçerli css ve çalışma css aynı şey değildir
undergroundmonorail

1
@ClementNerma Neden kimse bundan sonra kod koymalı?
Outgolfer Erik

2
son >inanıyorum ki inanıyorum
12Me21

16

Python 2, 22 21 bayt

print('*'*10+'\n')*10

print(("*"*10+'\n')*10)benim için çalıştı.
piepi

6
@piepi Python 2'de golf oynamaktan genellikle daha iyi olmanızın nedeni budur - çağrı yaparken parantez kullanmanıza gerek yoktur print.
shooqie

@shooqie Python2 çözümünü kullanarak bir Python3 çözümünü yenemezsiniz. Python2 ve Python3 farklı dillerdir. Ayrıca Python2 çözümünü Pyth gibi özel bir golf diliyle karşılaştırmazsınız.
Alfe,

16

MATLAB, 14 bayt

repmat('*',10)

Bunu test etmek için MATLAB yok, bu yüzden *s arasında boşluk olup olmadığından emin değilim .
Outgolfer Erik,

@EriktheGolfer açıkça değil :)
PieCot

matbir matris önerir, bu yüzden sordum.
Outgolfer Erik

2
@EriktheGolfer affedersiniz, kaba davrandım. Mat, aslında bir matrisi ifade eder, ancak bu durumda bir karakter matrisidir, yani bir dizi dizisidir (her satır bir dize gibidir). Böylece, çıkış matrisi aynı satırın elemanları arasında boşluk bırakmadan, satır için bir satır yazdırılır.
PieCot

16

APL , 9 bayt

Şimdiye kadar yapılmış tüm APL'ler üzerinde çalışıyor.

10 10'*'

10 10 on satır ve on sütun

 siklik R epeating

'*' Bir yıldız

TryAPL çevrimiçi!


Bu çözümün Dyalog'a özgü olmadığını belirtmeye değer; aynı zamanda GNU APL ile de çalışır.
Arc676,

3
@ Arc676 Doğru. Aslında, şimdiye kadar yapılmış tüm APL'lerde çalışır.
17:17

argh, sadece bir bayta daha ihtiyacım var ... Neredeyse "format" numarasıyla ∘.⊢⍨⍕⍨,⍨5
sizi yenerim

@ngn Bu çok korkunç!
Ad

14

Java 7, 63 bayt

void f(){for(int i=0;i++<10;)System.out.println("**********");}

Sadece tekmeler için. Bunu kısaltmak için bir numara bulamıyorum. 100 döngü için mantık eklemeye çalışmak veya yazdırmak yerine bir String döndürmek daha da kötüleşiyor.


1
iSınıf değişkeni olarak 0int i;void f(){for(;i++<10;)System.out.println("**********");}
bildirirseniz

1
Yani kıracak yeniden kullanılabilirliği yaptım sürece i=0tasarruf negating işlevinde bir yerde.
Geobits

3
+1 Bu gerçekten en kısa olanı haklı gibi görünüyor. Özyinelemeli 65 bayttır int i=10;void f(){System.out.println("**********");if(i-->0)g();}:; Tek tek özyinelemeli 67 bayttır int i=99;void f(){System.out.print(i%10<1?"*\n":"*");if(i-->0)g();}:; String-yapıcısını char-array ile kullanmak 82 bayttır void g(){System.out.print(new String(new char[10]).replace("\0","**********\n"));}:; ve String.format 81 bayt: void g(){System.out.print(String.format("%010d",0).replace("0","**********\n"));}. Ah iyi, biz denedik. ;)
Kevin Cruijssen

2
Ancak sınıf bildirgesini eklemek zorunda kalmadan sayılır mı? Bunu yapabilen en kısa java7 tam programı nedir?
jsbueno

1
Import ifadesini saymanız gerekir, bu yüzden burada tasarruf için işe yaramaz.
Geobits

14

Yakut, 15 karakter

puts [?**10]*10

Örnek çalışma:

bash-4.3$ ruby -e 'puts [?**10]*10'
**********
**********
**********
**********
**********
**********
**********
**********
**********
**********

Açıklayabilir ?**10misin Gerçekten on yıldızlık bir dizi yaratıyor, ama nasıl yapılacağı belli değil ...
erich2k8

3
?Böylece, karakter değişmezi notasyondur ?* == '*'. 2 *olduğu String.*yöntem yüzden ?**10 == '*'.*(10).
Manat çalışması

Korkarım neden ?hiçbir şeyin gerçek anlamıyla gösterildiğini hala anlamıyorum , ama belki bazı sorular cevapsız kalıyor. ;)
erich2k8

Üzgünüz, bu konuda referans bulamıyorum. Basitçe, çeşitli string değişmez göstergelerine izin veren Ruby'nin sözdizimi olup , dize 1 karakter uzunluğunda ise bir ?tanedir : karakterin ardından gelen ve ?işaretin kapanış çiftini gerektirmeyen bir işaret.
Manatwork

1
Burada referansta buldum: ruby-doc.org/core-2.3.0/doc/syntax/literals_rdoc.html There is also a character literal notation to represent single character strings, which syntax is a question mark (?) followed by a single character or escape sequence that corresponds to a single codepoint in the script encoding:
erich2k8

13

Not Defteri, 34 31 tuş vuruşlarını

**********
^A^C↓^V^A^C↓^V^V^V^V

^, Ctrl- <aşağıdaki karakter> tuşa basılmasını belirtir, ↑ ↓ sırasıyla yukarı ve aşağı tuşlarıdır.

Kaydedilen 3 tuş vuruşunu Kripto'ya atar.


2
Bunu saymak için tuş vuruşlarını kullanmalısınız.
Sızdıran Rahibe,

1
Bu Shift + Up. Ctrl + Up başka bir şey.
Neil

1
31 tuş vuruşları**********↵^A^C↓^V^A^C↓^V^V^V^V
Crypto,

1
26 tuş vuruşları*****^A^C^V^V↵^A^C^V^A^C^V^V^V^V^V
Andy,

5
23 tuş vuruşlarını**^A^C^V^V^V^V^V↵^A^C^V^V^A^C^V^V^V^V^V
Andy,

13

Emojicode , 54 bayt

🏁🍇🔂i⏩0 10🍇😀🔤**********🔤🍉🍉

Açıklama:

🏁🍇                        👴 The beginning of program.
    🔂 i ⏩ 0 10 🍇          👵 This is called a "range".
                          It basically starts with i=0 and increments until i=10, then exits. 👵
        😀 🔤**********🔤    👵 😀 is printing class.
                          The 🔤s make the characters they surround string literals. 👵
    🍉                     👴 End of range
🍉                         👴 End of program

2
54 utf-8 bayt sayıyorum.
Conor O'Brien,

Bu dil WIndows 7'den nefret ediyor ...
John Dvorak


10

R, 27 29 bayt

cat(rep('\r**********\n',10))

Alternatif bir cevap (34 bayt): cat(rep('**********',10),sep='\n')


Bu, ilk satırlar dışındaki tüm satırların başında fazladan boşluk ekler ( buraya bakın ).
plannapus

Teşekkürler, ekleyerek çalışır \r.
Mamie

1
Başka bir alternatif, çok fazla (37) bayt: cat(matrix('*',10,10),fill=10,sep='') r-keman
Jonathan Carroll

Başka bir alternatif de 29 byte:write(rep("*",100),"",10,,"")
Giuseppe

1
Ve write(rep("**",50),1,5,,"")27 bayttır ve ilk satırbaşının geri gelmesini engeller.
J.Doe

9

PHP, 32 bayt

for(;$i++<10;)echo"**********
";

(değişken 32 bayt - ile yazılmıştır echo)

<?=str_repeat("**********
",10);

(değişken 33 bayt)

<?=str_pad("",110,"**********
");

(değişken 33 bayt)

for(;$i++<110;)echo$i%11?"*":"
";

(değişken 35 bayt)

for(;$i++<10;)printf("%'*10s
",'');

(değişken 38 bayt)

<?=($a=str_repeat)($a("*",10)."
",10);

3
İkincisi de 32 byte'a kadar <?=str_repeat("**********↵",10);
golf oynayabilir

1
Zaten alternatiflerin güzel koleksiyona sahip olarak, burada eğlenmek için başka bir şeydir: echo chunk_split(str_repeat("*",100),10);En uzun şimdiye kadar, sadece benim Vizyonda bu olduğunu bunu yapmak için PHP yol.
Manatwork 19

WIN-1252 kodlamasıyla bir bayt daha kısa olabilir: for(;++$i<111;)echo$i%11?~Õ:~õ;veyafor(;++$i<11;)echo~ÕÕÕÕÕÕÕÕÕÕõ;
29:16

33 bayt için bir başka modül varyantı for(;$i++<110;)echo"*↵"[$i%11<1];. Ve bu koleksiyona bir 37 bayt çözümü eklemek için: for(;$i++<110;)echo chr($i%11?42:10);.
Titus


8

Brainfuck, 46 43 bayt

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

Çevrimiçi deneyin! Sol tarafta açık ve 8 bit hücrelere sahip olan bir kaset içeren bir tercüman gerektirir.

Bu programın ilk kısmı +[[---<]+[-->]<]kaseti şöyle ayarlıyor:

[255, 250, 245, ... 15, 10, 5, 0, 250, 240, 230, ..., 40, 30, 20, 10, 0]
                                                                      ^

Bu, yıldızların ( *, ASCII 42) çıktısı için bir 40 , bir döngü sayacı olarak kullanılacak bir 20 ve yeni hatların çıkarılması için kullanılacak bir 10 verir.


7

JavaScript (ES6), 37 bayt

console.log(`**********
`.repeat(10))

Basit bir cevap.


5
Kullanarak 6 kaydedemez misiniz alert?
Kevin L

1
Belki başlığı kaldırarak console.log()ve belirterek 13 bayt kaydedebilirsiniz REPL.
Patrick Roberts

6

Çedar, 21 20 bayt

print('*'*10+'
')*10

Yine basit bir cevap.


4
1 bayt'ı kurtarmak için değişmez bir yeni satır kullanın
Leaky Nun

2
->Belki baskı yerine kullanarak bir işlev yapmak ?
Downgoat

6

Haskell, 29 bayt

putStr$[0..9]>>"**********\n"

<list1> >> <list2>(length <list1>)kopyalarını yapar <list2>.


6

R, 35 33 , 32 bayt

Ô R, bazen çok ayrıntılısın .

for(i in 1:10)cat(rep("*",10),"\n")

İlginç bir şekilde, catfonksiyonun bir değeri yoktur ( NULLSTDOUT'a sağlar), yani rep(cat(rep)))daha komik bir şey yapamazsınız !

EDIT:
@LeakyNun, -2 bayt tarafından önerilen yeni çözüm .

for(i in 1:10)cat("**********\n")

DÜZENLEME: sadece bunu kısaltılması -1 @ user5957401 göre, bayt

for(i in 0:9)cat("**********\n")

3
for(i in 1:10)"**********\n"
Sızdıran Rahibe,

1
@ LeakyNun: Sadelik anahtarıdır! catYine de vardı , aksi halde hiçbir şey üretmez.
Frédéric

cat(rep("**********\n",10))
Sızdıran Rahibe,

@ LeakyNun İstenilen çıktıyı üretmez: buraya bakınız . Varsayılan ayırıcı catbir boşluktur, bu nedenle bu çıktı.
plannapus

5

Retina , 12 bayt

Bayt sayısı, ISO 8859-1 kodlamasını varsayar. Lider hat beslemesi önemlidir.


10$**
.
$_¶

İlk aşamada on yıldız dizesi yazılır, ikinci aşamada her yıldız işareti tüm dizeyle ve bir satır beslemeyle değiştirilir. Bu iki izleyen satır besleme yazdırır.


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.