Ubur-ubur , 12 11 9 byte

\P$'*
  i

Cobalah online!

Penjelasan

Program di atas setara dengan pseudocode fungsional berikut:

\            P      $       i        '*
map_prefixes(print, reshape(input(), '*'))

The $(membentuk kembali) menciptakan string Ntanda bintang. \Pmembuat fungsi yang mengambil daftar (atau string) dan melewati masing-masing awalannya ke P(cetak). Karenanya, ini berturut-turut mencetak string 1ke Ntanda bintang.

R, 45 byte

Untuk pendekatan loop:

for(i in 1:scan())cat(rep("*",i),"\n",sep="")

Brachylog , 12 byte

yke:"*"rj@w\

Cobalah online!

Ini mengasumsikan bahwa garis baru yang tertinggal dapat diterima

Penjelasan

yk                The range [0, …, Input - 1]
  e               Take one element I of that range
   :"*"rj         Juxtapose "*" I times to itself
         @w       Write that string followed by a new line
           \      False: backtrack to another element of the range

Tidak ada garis baru, 15 byte

-:"*"rj:@[f~@nw

Cobalah online!

Ini bekerja dengan mengambil semua awalan "*" × Input.

Haskell, 35 38 byte

Daftar pemahaman berkat nimi:

f x=unlines[[1..n]>>"*"|n<-[1..x]]

Versi lama:

f 0=""
f n=f(n-1)++([1..n]>>"*")++"\n"

Versi alternatif:

g n=([1..n]>>"*")++"\n"
f n=[1..n]>>=g

Pyth, 7 Bytes

VQ*\*hN

Merobohkan byte berkat @ETHproduk Coba online

menggunakan Teknik @ PIetu1998

6, byte

j*L*\*S

2sable , 24 11 byte

>G')Ç>çJN×,

Cobalah online!

Dan tidak ada tanda-tanda bintang! Bermain golf mulai 24 hingga 11 berkat @Emigna .

Penjelasan:

>G')Ç>çJN×,
>            Push input+1
 G           For N in range (1,input+1)
  ')Ç>çJ     Push '*' by getting ascii code for ')' and adding 1
        Nx,  Print '*' repeated N times

Brain-Flak 75 Bytes

Termasuk +3 untuk -A

{(({})[()]<{({}[()]<(((((()()()){}()){})){}{})>)}{}((()()()()()){})>)}{}

Cobalah online!

Penjelasan:

{(({})[()]<                                                        >)}
#reduce the top element by one until it is 0 after doing the following
#Push this element back on to act as a counter for the next step.
#(counts down from input to 0 we'll call this counter)

           {({}[()]<                          >)}
           #reduce the top element by one until it is 0 after doing the following
           #(counts down from counter to 0)

                    (((((()()()){}()){})){}{})  
                    #push 42 (the ASCII code for *)

                                                 {}
                                                 #pop the counter used to push
                                                 #the right number of *s

                                                   ((()()()()()){})
                                                   #push a 10 (newline)

                                                                      {}
                                                                      #pop the null byte

Dyalog APL , 8 byte

↑'*'⍴⍨¨⍳

↑ matrify daftar yang terdiri dari

'*' string "*"

⍴⍨ dibentuk kembali oleh

¨ setiap

⍳ bilangan bulat 1 melalui argumen.

TryAPL online!

V , 8 byte

Àé*hòlÄx

Cobalah online!

JavaScript (ES6), 34 byte

f=x=>x?f(x-1)+`
`+'*'.repeat(x):''

Perl 6 , 23 byte

{.put for [\~] '*'xx$_}

(Jika output dibolehkan menjadi daftar "baris" tanpa baris baru .put for dapat dihapus)

Penjelasan:

# bare block lambda with implicit parameter ｢$_｣
{
  .put            # print with trailing newline
    for           # for every one of the following
      [\~]        # produce using concatenation operator
        '*' xx $_ # list repeat '*' by the input
}

(Lihat dokumentasi untuk producejika Anda tidak mengerti apa yang [\~] ...sedang dilakukan)

Perl 5, 22 20 byte

say"*"x$_ for 1..pop

Jalankan dengan -Esaklar untuk mendapatkan say.

$ perl -E 'say"*"x$_ for 1..pop' 5
*
**
***
****
*****

Ditulis sebagai program lengkap akan terlihat seperti ini:

use strict;
use feature 'say';

# get the argument
my $limit = pop @ARGV;

foreach my $i (1 .. $limit) { 
    say "*" x $i; 
}

• shiftdan popsecara implisit bekerja pada @ARGV(daftar argumen) di luar subs
• ..adalah operator jangkauan
• say termasuk baris baru
• xadalah operator untuk mengulang string dan dijelaskan dalam perlop

Perl, 19 byte

-4 Bytes berkat @Ton Hospel dan pengerjaan ulang solusinya!

eval"s//*/;say;"x<>

Membutuhkan flag -E(atau -M5.010) gratis untuk dijalankan. Mengambil angka dari input:

perl -E 'eval"s//*/;say;"x<>' <<< "5"

J, 11 8 byte

Disimpan 3 byte berkat mil!

]\@#&'*'

Berikut ini adalah dekomposisi:

(]\@#&'*') x
x (]\@#) '*'
]\ (x # '*')

Sekarang, yang terakhir ini dibaca sebagai "awalan ( ]\) dari string yang terdiri dari xsalinan '*'". Mengamati:

   5 ]\@# '*'
*
**
***
****
*****
   ]\ 5# '*'
*
**
***
****
*****
   ]\ 5 # '*'
*
**
***
****
*****
   ]\@#&'*' 5
*
**
***
****
*****

Kasus cobaan

   f =: ]\@#&'*'
   f 3
*
**
***
   f 5
*
**
***
****
*****
   f 1
*
   f 2
*
**
   f &. > ;/1+i.10
+-+--+---+----+-----+------+-------+--------+---------+----------+
|*|* |*  |*   |*    |*     |*      |*       |*        |*         |
| |**|** |**  |**   |**    |**     |**      |**       |**        |
| |  |***|*** |***  |***   |***    |***     |***      |***       |
| |  |   |****|**** |****  |****   |****    |****     |****      |
| |  |   |    |*****|***** |*****  |*****   |*****    |*****     |
| |  |   |    |     |******|****** |******  |******   |******    |
| |  |   |    |     |      |*******|******* |*******  |*******   |
| |  |   |    |     |      |       |********|******** |********  |
| |  |   |    |     |      |       |        |*********|********* |
| |  |   |    |     |      |       |        |         |**********|
+-+--+---+----+-----+------+-------+--------+---------+----------+

Solusi 11 byte yang lebih lama

'*'#~"+1+i.

Ini setara

'*' #~"0 1 + i.

1 + i.adalah kisaran [1, x]. Lalu, '*' #~"0diterapkan ke rentang ini bentuk (elemen) salinan '*'.

Program bonus:

[:#&'*'\#&1

Ini adalah garpu tertutup yang #&'*'\diterapkan pada hasil #&1input. #&1memberikan array xyang, dan #&'*'\bentuk '*'ke awalan array ini.

Uji kasus

   f1 =: '*'#~"+1+i.
   f2 =: [:#&'*'\#&1
   f1 1
*
   f2 2
*
**
   f1 3
*
**
***
   f2 4
*
**
***
****
   f2 5
*
**
***
****
*****
   f1 5
*
**
***
****
*****
   (f1;f2)3
+---+---+
|*  |*  |
|** |** |
|***|***|
+---+---+
   f1;f2
f1 ; f2
   (f1;f2)5
+-----+-----+
|*    |*    |
|**   |**   |
|***  |***  |
|**** |**** |
|*****|*****|
+-----+-----+
   (f1;f2)10
+----------+----------+
|*         |*         |
|**        |**        |
|***       |***       |
|****      |****      |
|*****     |*****     |
|******    |******    |
|*******   |*******   |
|********  |********  |
|********* |********* |
|**********|**********|
+----------+----------+

Vim, 22 , 18 penekanan tombol

O <esc>J:h r<cr>lyEZZ<C-v>{@"

Penghargaan besar bagi @Udioica karena memberikan jawaban vim yang luar biasa yang saya kembangkan. Jawaban ini tidak mengandung tanda bintang, dengan harapan memenangkan hadiah.

Penjelasan:

Input diketik sebelum sisa program. Udioica datang dengan trik yang luar biasa ini. Mengetik <n>O <esc>akan membuat piramida ruang dan satu baris kosong, selama Anda telah :set autoindentmengaktifkannya. Opsi ini aktif secara default di vim 8 dan neovim, meskipun bukan versi vim yang lebih lama. Karena ini juga membuat garis tambahan, kami gunakan Juntuk bergabung dengan baris ini dengan yang berikutnya, yang secara efektif hanya menghapus garis di bawah kami.

Sekarang pada titik ini, kita perlu mengganti semua ruang ini dengan tanda bintang. Jika saya tidak khawatir tentang menggunakan tanda bintang dalam kode saya, saya hanya akan memilih semuanya secara visual <C-v>{dan mengetik r*, yang menggantikan setiap karakter pilihan dengan tanda bintang. Tetapi saya tidak bisa melakukan itu.

Jadi kami membuka halaman bantuan untuk :h r. Hal yang menarik tentang ini adalah bahwa di vim-window, halaman ini ditampilkan sebagai:

                            r
r{char}         Replace the character under the cursor with {char}.
                ...

Dengan kursor di 'r' pertama. Namun, file itu sendiri sebenarnya mengandung teks ini:

                            *r*
r{char}         Replace the character under the cursor with {char}.
                ...

Cukup nyaman. Jadi kita memindahkan satu karakter dengan l, dan menarik teks r*dengan yE([y] ank ke [E] dan kata ini).

Untuk menutup buffer ini, kami menggunakan pintasan untuk menyimpan file ZZ. Sekarang, kami secara visual memilih spasi kami, dan menjalankan teks yang ditarik ke atas seolah-olah kami telah mengetiknya dengan melakukan @". Ini berfungsi karena "@" menjalankan register berikut sebagai vim-keystrokes, dan "adalah register default untuk mencabut.

C, 47 46 45 43 byte

Mengambil input dari baris perintah

f(n){for(n&&f(n-1);~n;putchar(n--?42:10));}

Pada dasarnya jika n bukan 0 recurse pada n-1. di atas rekursi di mana n adalah 0 itu hanya mencetak baris baru, untuk loop berakhir ketika n adalah -1 atau ~ n adalah nol, jika tidak mencetak ASCII 42 yang merupakan '*'. Cobalah di ideone

C ++ 58 Bytes + 19 untuk termasuk iostream adalah 77

#include<iostream>
int f(int n){for(n&&f(n-1);~n;std::cout<<(n--?"*":"\n"));}

main(c,v)char**v;
{
    f(atoi(v[1]));
}

a.exe 3
*
**
***

Retina , 14 byte

Hitungan byte mengasumsikan penyandian ISO 8859-1.

.+
$**
.
$`$&¶

Cobalah online!

Penjelasan

.+
$**

Ubah input Nmenjadi Ntanda bintang.

.
$`$&¶

Ganti setiap tanda bintang dengan semuanya hingga dan termasuk tanda bintang itu (ini adalah $`$&) dan linefeed (ini yang ¶).

MATL, 9 8 byte

1 byte disimpan berkat @Luis

:"42@Y"c

Cobalah secara Online

Cubix , 22 byte

?(.;I:^;/-.@o;(!\>'*oN

Uji secara online! Menghasilkan baris baru yang tertinggal.

Pada awalnya saya tidak yakin saya bisa memasukkan ini ke dalam 2-kubus, tetapi pada akhirnya itu berhasil:

    ? (
    . ;
I : ^ ; / - . @
o ; ( ! \ > ' *
    o N
    . .

Saya akan menambahkan penjelasan ketika saya punya waktu, semoga hari ini nanti.