Испечь мне торт!

15

Это торт

_========_
|        |
+________+
|        |
+________+
|        |
+________+

Это 8 в ширину, 3 в высоту и 1 в глубину.

Вы должны написать программу, которая делает торт из 3 входов. Первый вход определяет количество подчеркиваний в середине и =s вверху. Вот первый торт шириной 10 вместо 8:

_==========_
|          |
+__________+
|          |
+__________+
|          |
+__________+

Второй вход контролирует, насколько высокий торт. Вот второй пирог с высотой 4 вместо 3:

_==========_
|          |
+__________+
|          |
+__________+
|          |
+__________+
|          |
+__________+

Обратите внимание на повторение слоев.

Третий вход управляет глубиной. Вот только сколько | |нужно включить в топ. Вот третий торт с глубиной 2 вместо 1:

_==========_
|          |
|          |
+__________+
|          |
+__________+
|          |
+__________+
|          |
+__________+

Вы можете распечатать конечный пробел. Тестовые случаи:

Вход: 3, 3,3

Выход:

_===_
|   |
|   |
|   |
+___+
|   |
+___+
|   |
+___+

(Надеюсь, я никогда не получу этот торт)

Вход: 3, 2,1

Выход: 

_===_
|   |
+___+
|   |
+___+

Вход: 5, 5,5

Выход:

_=====_
|     |
|     |
|     |
|     |
|     |
+_____+
|     |
+_____+
|     |
+_____+
|     |
+_____+
|     |
+_____+
code-golf  ascii-art 
Будут ли входные данные всегда положительными целыми числами?
— Ник Клиффорд
@ Ник Клиффорд, да.
Разрешены ли конечные переводы строки?
— Лохматый
3
— дкудрявцев
@ Shaggy я бы так предположил, по умолчанию на Meta да.
— programmer5000

Ответы:

9

V , 25 , 20 байтов

2é_Àé=ÙÒ|èÙÒ+È_ÀäkÀÄ

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

HexDump:

00000000: 32e9 5fc0 e93d d9d2 7ce8 d9d2 2bc8 5fc0  2._..=..|...+._.
00000010: e46b c0c4                                .k..

Спасибо @ nmjmcman101 за сохранение трех байтов и напоминание мне о старом операторе, который сохранил еще два байта.

Объяснение:

a, bИ cявляются три аргумента.

2é_                   " Insert two '_' characters
   Àé=                " Insert 'a' '=' characters between them
      Ù               " Duplicate this line
       Ò|             " Replace this whole line with '|'s
         è            " *Hollow* this line (replace all the middle characters with spaces)
          Ù           " Duplicate this line
           Ò+         " Replace this whole line with '+'s
             È_       " *Hollow* this line again, but use '_' instead of spaces
               Àäk    " Make 'b' copies of this line and the line above it
                  ÀÄ  " Make 'c' copies of this line
— DJMcMayhem
источник
Я думаю , вы можете заменить Ò r|$.с Ò|èна несколько байт. Попробуйте онлайн!
— nmjcman101
@ nmjcman101 О, чувак, я совсем забыл, что èдаже существовал. Мне пришлось ломать голову, чтобы вспомнить, что он делает. Но это действительно умно! Фактически, используя прописные буквы, È<char>возможно , можно сохранить еще несколько байтов и в нескольких других местах. Спасибо за напоминание! :)
— DJMcMayhem
4

Древесный уголь , 34 26 байт

Ｎγ←×γ_↑+↑Ｎ_×γ=‖ＢＯγＦ⁻Ｎ¹Ｃ⁰±²

Попробуйте онлайн! Ссылка на подробную версию кода. Принимает параметры в порядке ширина, глубина, высота. Объяснение:

Ｎγ          Input the width.
←×γ_        Print a set of _s that go at the bottom of each layer.
↑+          Print one of the +s that go on the left.
↑Ｎ          Input the depth and print that many left |s.
_           Print the top left _.
×γ=         Print the =s along the top.
‖ＢＯγ        Copy the left column to the right.
Ｆ           Repeat:
 ⁻ ¹         One time fewer than:
  Ｎ           Input of the height:
    Ｃ⁰±²        Copy the whole cake up 2 characters.
— Нил
источник
2

Mathematica, 167 байтов

c=Column;r=Row;t=Table;f=Flatten;c[c/@{r/@f[{{{"_",r@t["=",#],"_"}},t[{"|",r@t[" ",#],"|"},#3-1]},1],c/@f[{t[{r@{"|",r@t[" ",#],"|"},r@{"+",r@t["_",#],"+"}},#2]},1]}]&
— J42161217
источник
2

PHP> = 7.1, 104 байта

for([,$w,$h,$t]=$argv;$i<2*$h+$t;)echo str_pad($e="_|+"[$b=$i++<$t?$i>1:1+$_++%2],$w+1,"= _"[$b])."$e
";

Онлайн версия

— Йорг Хюльсерманн
источник
1
Неплохо. Найдено 3 байта:for([,$w,$h,$t]=$argv;$i<2*$h+$t;)echo str_pad($e="_|+"[$b=$i++<$t?$i>1:2-($i-$t&1)],$w+1,"= _"[$b])."$e\n";
— Кристоф
1
И еще 3 байта: $b=$i++<$t?$i>1:1+$_++%2.
— Кристоф
@Christoph Хорошая идея Спасибо
— Йорг Хюльсерманн
1

Желе , 30 29 байт

Переключение на -1 байт от дополнения к XOR для перевода между внешним и внутренним столбцами, что позволяет выполнять поиск из 5 символов вместо двух _записей.

ṬṚ;⁹RḤṬḤ¤Wµ^9ẋ⁵;@;µZị“_+= |”Y

Полная программа принимает три аргумента программы из depth, height, widthи печати торта.

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

Как?

ṬṚ;⁹RḤṬḤ¤Wµ^9ẋ⁵;@;µZị“_+= |”Y - Main link: depth, height (width is a program argument)
Ṭ                             - untruth   [0,0,0,...1] such that the length is the depth
 Ṛ                            - reverse   [1,0,0,...0]
        ¤                     - nilad followed by link(s) as a nilad:
   ⁹                          -   link's right argument, height
    R                         -   range   [1,2,3,...,height]
     Ḥ                        -   double  [2,4,6,...,2*height]
      Ṭ                       -   untruth [0,1,0,1,0,1,...,0,1] (length double height)
       Ḥ                      -   double  [0,2,0,2,0,2,...,0,2]
  ;                           - concatenate  [1,0,0,...,0,0,2,0,2,0,2,...,0,2]
                              -     ...this is the form of a column of cake!
         W                    - wrap in a list
          µ                   - monadic chain separation, call that c
           ^9                 - bitwise XOR c with 9 [8,9,9,...,9,9,11,9,11,9,11,...,9,11]
              ⁵               - program's 3rd argument, width
             ẋ                - repeat the augmented c width times
               ;@             - concatenate with a copy of c
                 ;            - concatenate a copy of c
                  µ           - monadic chain separation call that sideways cake
                   Z          - transpose the sideways cake to put it the right way up
                     “_+= |”  - literal ['_','+','=',' ','|'] (cake decoration)
                    ị         - index into (1 based and modular, so 8,9, and 11 are, mod 5,
                                            3, 4, and 1 yielding '=', ' ', and '_')
                            Y - join with new lines
                              - implicit print
— Джонатан Аллан
источник
1

Java 7 , 169 164 158 байт

String f(int...a){String s="_",t="|",u="+";for(;a[0]-->0;s+="=",t+=" ")u+="_";s=s+"_";t="\n"+t+"|";u=t+"\n"+u+"+";for(;a[2]-->1;)s+=t;for(;a[1]-->0;)s+=u;return s;}

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

Ungolfed: 

String f(int...a)                    // saves two bytes over int a, int b, int c
{
    String s="_", t="|", u="+";      // set up the start of each row

    for(; a[0]-->0; s+="=", t+=" ")  // Uses the goes-to operator to fill the row
        u+="_";                      

    s += "_\n";                      // adds the end of each row
    t += "|\n";              
    u = t + u + "+\n";               // and combining t into u

    for(; a[2]-->1; )                // add the top of the cake
        s += t;

    for(; a[1]-->0; )                // add the rest of the cake
        s += u;

    return s;
}
— PunPun1000
источник
Вы можете сохранить 1 байт, поставив u=t+u+"+\n" inside the for-loop: для (u = t + u + "+ \ n; a [2] -> 1;) s + = t;`. Но хороший ответ, +1 от меня.
— Кевин Круйссен,
1

05AB1E , 33 31 байт

'_'=¹×«Ć,'|¹úRĆ³G=}²F='+'_¹×«Ć,

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

объяснение

'_'=¹×«Ć,'|¹úRĆ³G=}²F='+'_¹×«Ć,   Main link. Args: w h d
'_                                Push literal '_'
  '=¹×                            Push '=' w times
      «Ć,                         Concat, enclose and print
         '|                       Push literal '|'
           ¹ú                     Pad with w spaces in front
             RĆ                   Reverse and ecnlose
               ³G }               d - 1 times do:
                 =                Print without consuming
                   ²F             h times do:
                     =            Print without consuming
                      '+          Push literal '+'
                        '_¹×      Push '_' w times
                            «Ć,   Concat, enclose and print
— kalsowerus
источник
1

Пакет Windows, 211 180 163 байта

Гольф в общей сложности 48 байтов благодаря @Neil!

@for /l %%p in (1,1,%1)do @call set w= %%w%%
@echo _%w: ==%_
@for /l %%p in (2,1,%3)do @echo ^|%w%^|
@for /l %%p in (1,1,%2)do @echo ^|%w%^|&echo +%w: =_%+
@set w=
— stevefestl
источник
1
1. Использование @в каждой строке и после doнемного короче @echo off. 2. @call set w=%%w%%_избегает setlocal enabledelayedexpansion. 3. Используйте @for /l %%p in (2,1,%2). 4. ИМХО нужно добавить @set w=так, чтобы код работал более одного раза.
— Нил
Меня смущает последняя часть, если я не добавлю @set w=, код не будет работать более одного раза?
— stevefestl
1
1. Ваш, @for /l %%p in (1,1,%1)doкажется, пропал без вести. 2. Кажется, ваш торт неправильной высоты, по крайней мере, он не соответствует тестовому примеру, когда я его пробую. 3. Если вы запускаете скрипт дважды в одной и той же командной сессии, торт становится все шире и шире.
— Нил
@Neil Все исправлено :)
— stevefestl
1
Большой! Несколько последних замечаний, которые я заметил: 1. Вам не нужно @после &. 2 Если вы измените второй цикл (2,1,%3)на третий и на третий цикл, (1,1,%2)то, я думаю, вы можете удалить echo +%w%+строку. 3. Если я посчитал правильно, то я думаю, что вы должны заполнить wпробелами вместо _s, так как это приведет к меньшему количеству замен. (Я бы использовал, так @call set w= %%w%%как в противном случае пространство было бы трудно определить!)
— Нейл
1

Haskell , 87 байт

f w t d=["_=| +_\n"!!j|i<-0:([2..d]>>[2])++([1..t]>>[2,4]),j<-i:([1..w]>>[i+1])++[i,6]]
— faubi
источник
1
Хорошая работа, оставляя позади большинство языков, не относящихся к гольфу. Объявление инфикса (w#t)d= ...сохраняет байт.
— Лайкони
1

SOGL V0.12 , 25 байтов

e =*¼_Oe↕¼|.⌡Qe╔*¼+.H«{Q;

Попробуй здесь!

Ожидается ввод в виде ширины, глубины, а затем высоты.

— dzaima
источник
Разрешено ли переупорядочивать входы? Кажется, они указаны в установленном порядке.
— рекурсивный
1
@recursive Обычно это разрешено, и нигде вопрос не заставляет упорядочивать, а 2-й ответ с наибольшим количеством голосов переупорядочивает входные данные и, вероятно, был замечен OP, поэтому я предполагаю, что все в порядке.
— Дзайма
1

Питон 2, 124 122 120 105 92 байта

w,t,d=input()
a="\n|"+w*" "+"|"
print"_"+w*"="+"_"+(d-1)*a+t*(a+"\n+"+w*"_"+"+")

-15 байт с использованием STDIN вместо аргументов программы

-13 байт при переходе на Python 2 (для input() целых чисел иprint оператора)

-12 байт от Кайрда

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

Python 3, 124 122 120 105 байтов

w,t,d=[int(input())for n in(1,2,3)]
a="\n|"+w*" "+"|"
print("_"+w*"="+"_"+(d-1)*a+t*(a+"\n+"+w*"_"+"+"))

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

Если полная программа не требуется:

Python 3, 87 84 байта

lambda w,t,d:"_"+w*"="+"_"+(d-1)*("\n|"+w*" "+"|")+t*("\n|"+w*" "+"|\n+"+w*"_"+"+")

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

— pizzapants184
источник
— Caird Coneheringaahing
@cairdcoinheringaahing 78 байт .
— Джонатан Фрех
0

Javascript (ES6), 161 157 байт

f=(w,h,d)=>{r=x=>x.repeat(w);_='_';m='+'+r(_)+'+';b='|'+r(' ')+'|';c=[_+r('=')+_];for(i=d-1;i--;)
c.push(b);for(i=h;i--;)
c.push(b+'\n'+m);return c.join`\n`}

console.log(f(8,3,1));
Развернуть фрагмент

— Axarydax
источник
0

JavaScript / ES6, 90 байт

Я только что написал грубое решение, и оказалось, что он побил существующий ответ JS с колоссальными 56 байтами. Затем я проиграл 11 байтов.

(w,h,d,g=a=>a+a[1][r='repeat'](w)+a[0]+`
`)=>g('_=')+(l=g('| '))[r](d-1)+(l+g('+_'))[r](h)

Вот демо.

var F = (w,h,d,f=a=>a+a[1][r='repeat'](w)+a[0]+`
`)=>f('_=')+(l=f('| '))[r](d-1)+(l+f('+_'))[r](h);

console.log(F(prompt('width') || 3, prompt('height') || 3, prompt('depth') || 3));
console.log(F.toString().length);
Развернуть фрагмент

— Нисса
источник
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.