Натхненний завданням для програмування 101 ось завдання, яке, сподіваємось, не надто просто або є дублікатом (начебто важко шукати подібні речі).

Вхід:

• Позитивне ціле число n >= 1.

Вихід:

• n рядки зірочок, де кожен новий рядок має одну зірочку більше, ніж рядок раніше, і починаючи з однієї зірочки в першому рядку.

Загальні правила:

• Це код-гольф, тому найкоротша відповідь у байтах виграє.
• Оскільки курс викладається на мові C ++, я хочу бачити рішення на C ++.

Тестовий випадок (n = 5):

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

Vim, 8 байт

o <Esc><C-V>{r*J

Здійснює введення в буфер для читання головою, тому якщо вхід становить 15, ви введете це, а потім код вище. Це нерозумно правило, але , здається , буде дозволено . Якщо ви отримали внесок у такий реєстр "a, ви просто дотримуйтесь @aпопереду (10). Якщо ви отримали його зі стартового файлу, ви б D@"замість цього додали (11).

Покладається на зловживання :set autoindent, яке за замовчуванням застосовується у правилах vimgolf.com та за замовчуванням у Vim 8 (і всі користуються ним у будь-якому разі).

• o <Esc>: Із його аргументом номер, якщо ваш текст починається з пробілу, а у вас є :set autoindent, Vim виблискує і створює каскад відступів.
• <C-V>{r*: Перетворіть усі ці пробіли в *s. Я використовую блок візуального, так що навіть якщо ваші хитрі налаштування відступу мовчки згрупують ваші пробіли на вкладки, ви все одно отримаєте потрібну кількість *s.
• J: Починаючи з, oна жаль, залишеного порожнього рядка вгорі. Це видаляє його.

JavaScript (ES6), 31 байт

Цей включає як провідний, так і кінцевий розрив ліній.

Почнемо з рядка, sщо містить лише розрив рядка. Потім ми обробляємо nрекурсивні дзвінки, додаючи зірочку з лівої сторони цього рядка при кожній ітерації. Конкатенація всіх проміжних рядків призводить до очікуваного результату.

f=(n,s=`
`)=>n?s+f(n-1,'*'+s):s

Без зірочки, 36 байт

f=(n,s=`
`)=>n?s+f(n-1,atob`Kg`+s):s

05AB1E , 7 6 байт

Використовує кодування CP-1252 .

'*×.p»

8-байтна версія без зірочок:

žQTè×.p»

Спробуйте в Інтернеті!

Пояснення

Приклад за допомогою введення n = 5

'*      # push "*"
        # STACK: "*"
  ×     # repeat input number times
        # STACK: "*****"
   .p   # get prefixes of string
        # STACK: ['*', '**', '***', '****', '*****']
     »  # join by newlines
        # implicit print

PowerShell, 21 байт

1..$args[0]|%{'*'*$_}

Цикли від 1введення $args[0], кожна ітерація використовує множення рядків для побудови рядка з багатьох $_зірочок. Поведінка за замовчуванням для неявного Write-Outputв кінці - це новий рядок для роздільника, тому ми отримуємо це безкоштовно.

PS C:\Tools\Scripts\golfing> .\draw-asterisk-pattern.ps1 5
*
**
***
****
*****

PS C:\Tools\Scripts\golfing> .\draw-asterisk-pattern.ps1 2
*
**

PS C:\Tools\Scripts\golfing> .\draw-asterisk-pattern.ps1 7
*
**
***
****
*****
******
*******

Python 2, 37 34 байт

i=1;exec"print'*'*i;i+=1;"*input()

Ідеон

iініціалізовано до 1;
потім execкоманди для виконання наступного рядка коду, тому він повинен бути побудований;
рядок є, "print'*'*i;i+=1;"але *наступна рядок має перевагу над execі вказує спочатку повторити input()строки; Тепер команда виконує довгий рядок , яка діє як петлі, Инж іншого рядка збільшення довжини, знову використовуючи повторити символ , а потім збільшується з .
execprint*'*'ii+=1

Python 3, 41 байт:
def f(n):i=1;exec("print('*'*i);i+=1;"*n) ; або
lambda n,i=1:exec("print('*'*i);i+=1;"*n)

Желе , 6 5 байт

”*ẋþY

TryItOnline

Як?

”*ẋþY - Main link: n
”*    - literal string "*"
   þ  - form outer product with the dyadic function:
  ẋ   -     repeat list (right input is an implicit range(n), Jelly defaults to 1-based)
            so the outer product is like:
            [[i*'*' for i in range(1,len("*")+1)] for x in range(1,n+1)]
    Y - join with line feeds
      - implicit print

Баунті:
Я не впевнений, що таке пункт про порядкові порядки, оскільки персонаж - це пошук порядкового.
Прямий пошук був би просто 42Ọẋþ³Yна 7 байт - там, де ³отримує нам введення)
Короткий трохи непрямий метод був би для 8 байт , “)’Ọẋþ³Y- де ми знаходимо ')'в кодовій сторінці желей, яка є 1-індексованою, тому “)’виходить 42.

C #, 42 байти

f=n=>n<1?"":f(n-1)+"\n"+new string('*',n);

Повна програма з тестовим кейсом:

using System;

namespace DrawAnAsteriskPattern
{
    class Program
    {
        static void Main(string[] args)
        {
            Func<int,string>f= null;
            f=n=>n<1?"":f(n-1)+"\n"+new string('*',n);

            Console.WriteLine(f(5));
        }
    }
}

Pyth , 6 байт

j._*"*

Спробуйте тут .

Пояснення

j            Join by newlines
 ._          all prefixes of
    *        the result of repeating
      "*     the string "*"
             as many times as the implicit input 

GNU sed , 25 24 20 + 1 (n прапор) = 21 байт

Редагувати: 4 байти менше на основі коментарів Райлі

x;G;:;P;s:\n.:*\n:;t

Спробуйте в Інтернеті!

Приклад запуску: введення зроблено в одинарному форматі, що для sed дозволено на основі цього консенсусу

me@LCARS:/PPCG$ sed -nf draw_triangle.sed <<< "0000"

*
**
***
****

Провідний новий рядок присутній у висновку, але це дозволено ОП.

Пояснення:

x;G             # prepend a newline to unary string
:               # start loop
   P            # print first line only
   s:\n.:*\n:   # shift one unary char from 2nd line to 1st, converted to a '*'
t               # repeat

Матлаб, 26 23 байти

Старий добрий Матлаб ...

@(n)tril(repmat('*',n))

Має відсталі пробіли. trilдає нижню трикутну матрицю.

редагувати: збережено 2 байти завдяки Луїсу Мендо

C ++ - 92 96 байт

#include<string>
int main(){int n;std::string s;scanf("%d",&n);for(;n--;)puts((s+="*").data());}

Спробуйте в Інтернеті

Безголівки:

//this one hurts, but c++ strings are mutable
#include<string> 
int main(){
    int n;
    //this one hurts as well
    std::string s; 
    //read input to n
    //longer than 'std::cin>>n', but no #include<iostream> needed
    scanf("%d",&n); 
    // same as 'while(n--)', also characterwise, but way cooler
    for(;n--;) 
        //add a '*' the string
        //data() does the same as c_str()
        //puts automatically adds an '\n'
        puts((s+="*").data()); 
}

Медузи , 12 11 9 байт

\P$'*
  i

Спробуйте в Інтернеті!

Пояснення

Вищеописана програма еквівалентна наступному функціональному псевдокоду:

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

$(Reshape) створює рядок Nзірочок. \Pстворює функцію, яка приймає список (або рядок) і передає кожен його префікс P(print). Таким чином, це послідовно виводить рядки 1на Nзірочки.

R, 45 байт

Для циклічного підходу:

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

Брахілог , 12 байт

yke:"*"rj@w\

Спробуйте в Інтернеті!

Це передбачає, що нова лінія є прийнятною

Пояснення

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

Немає нового рядка, 15 байт

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

Спробуйте в Інтернеті!

Цей працює, приймаючи всі префікси "*" × Input.

Haskell, 35 38 байт

Перелічіть розуміння завдяки німі:

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

Стара версія:

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

Альтернативна версія:

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

Піт, 7 байт

VQ*\*hN

Збив байт завдяки @ETHproductions Спробуйте в Інтернеті

використовуючи техніку @ PIetu1998

6, байт

j*L*\*S

2able , 24 11 байт

>G')Ç>çJN×,

Спробуйте в Інтернеті!

І жодних ознак жодних зірочок! Гольфували з 24 до 11 завдяки @Emigna .

Пояснення:

>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

Мозок-Флак 75 байт

Включає +3 для -A

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

Спробуйте в Інтернеті!

Пояснення:

{(({})[()]<                                                        >)}
#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

Діалог APL , 8 байт

↑'*'⍴⍨¨⍳

↑ матрифікувати список, що складається з

'*' рядок "*"

⍴⍨ перероблений

¨ кожен з

⍳ цілі числа 1 через аргумент.

СпробуйтеAPAP онлайн!

V , 8 байт

Àé*hòlÄx

Спробуйте в Інтернеті!

JavaScript (ES6), 34 байти

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

Perl 6 , 23 байти

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

(Якщо дозволено вивести список із "рядків" без нових рядків, .put for можна видалити)

Пояснення:

# 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
}

(Дивіться документацію, produceякщо ви не розумієте, що [\~] ...робиться)

Perl 5, 22 20 байт

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

Запустіть його за допомогою -Eперемикача, щоб дістати say.

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

Виписана як повна програма, це виглядатиме так:

use strict;
use feature 'say';

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

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

• shiftі popнеявно працювати над @ARGV(переліком аргументів) поза підп
• ..є оператором дальності
• say включає новий рядок
• xє оператором для повторення рядків і пояснюється перлопом

Perl, 19 байт

-4 байти завдяки @Ton Hospel та його переробці рішення!

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

Для запуску потрібен безкоштовний -E(або -M5.010) прапор. Бере число з введення:

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

J, 11 8 байт

Збережено 3 байти за милі!

]\@#&'*'

Ось декомпозиція:

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

Тепер цей останній читається як "префікси ( ]\) рядка, що складається з xкопій '*'". Дотримуйтесь:

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

Тестовий випадок

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

Старіші, 11-байтові рішення

'*'#~"+1+i.

Це рівнозначно

'*' #~"0 1 + i.

1 + i.- дальність [1, x]. Потім, '*' #~"0застосовані до цього діапазону форми (елемент) копії '*'.

Бонусна програма:

[:#&'*'\#&1

Це обмежена вилка, #&'*'\застосована до результату #&1введення. #&1дає масив з xодиниць та #&'*'\форми '*'префіксів цього масиву.

Тестові кейси

   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
+----------+----------+
|*         |*         |
|**        |**        |
|***       |***       |
|****      |****      |
|*****     |*****     |
|******    |******    |
|*******   |*******   |
|********  |********  |
|********* |********* |
|**********|**********|
+----------+----------+

Вім, 22 , 18 натискань клавіш

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

Величезна заслуга @Udioica за те, що я придумав дивовижну відповідь, яку я продовжив . Ця відповідь не містить жодних зірочок, сподіваючись виграти виграш.

Пояснення:

Введення вводиться перед рештою програми. Udioica придумала цей дивовижний трюк. Введення тексту <n>O <esc>створить піраміду пробілів та один порожній рядок, доки ви це :set autoindentввімкнули. Цей параметр увімкнено за замовчуванням у vim 8 та neovim, хоча не у старих версіях vim. Оскільки це також створює додатковий рядок, ми використовуємо Jдля приєднання цього рядка до наступного, який фактично просто видаляє рядок під нами.

Тепер на цьому етапі нам потрібно замінити всі ці пробіли зірочками. Якби я не переймався використанням зірочок у своєму коді, я б просто візуально вибрав всю справу <C-v>{та тип r*, який замінює кожен символ виділення зірочкою. Але я не можу цього зробити.

Тож ми відкриваємо довідкові сторінки для :h r. Цікавим є те, що у вікні вікно ця сторінка відображається як:

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

За допомогою курсору на першому 'r'. Однак сам файл фактично містить цей текст:

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

Досить зручно. Таким чином, ми переходимо на один символ за допомогою lта (витягуємо текст r*з yE([y] ank до [E] й цього слова).

Щоб закрити цей буфер, ми використовуємо ярлик для збереження файлу ZZ. Тепер ми візуально вибираємо наші пробіли і запускаємо витягнутий текст так, ніби ми його набрали @". Це працює, тому що "@" запускає наступний реєстр як натискання клавіш vim, і "є регістром за замовчуванням для yanking.

C, 47 46 45 43 байт

Здійснює введення з командного рядка

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

В основному, якщо n не 0, повторіть на n-1. вгорі рекурсії, де n дорівнює 0, вона просто друкує новий рядок, цикл for закінчується, коли n дорівнює -1 або ~ n дорівнює нулю, інакше він друкує ASCII 42, який є '*'. Спробуйте це на ideone

C ++ 58 байт + 19 для включення iostream дорівнює 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
*
**
***

Сітківка , 14 байт

Кількість байтів передбачає кодування ISO 8859-1.

.+
$**
.
$`$&¶

Спробуйте в Інтернеті!

Пояснення

.+
$**

Перетворіть вхід Nу Nзірочки.

.
$`$&¶

Замініть кожну зірочку на все, що стосується, включаючи цю зірочку (це та $`$&) і передачу рядків (це ¶).

MATL, 9 8 байт

1 байт збережено завдяки @Luis

:"42@Y"c

Спробуйте в Інтернеті

Cubix , 22 байти

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

Перевірте це в Інтернеті! Виводить новий рядок.

Спочатку я не був впевнений, що зможу це помістити на 2-куб, але врешті-решт це вийшло чудово:

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

Я додам пояснення, коли встигну, сподіваюся, пізніше сьогодні.