Нарисуйте пустой квадрат # с заданной шириной

21

Я получил этот вызов от Codingame, и мне интересно узнать о лучших решениях, чем у меня:

При заданной ширине с помощью стандартного ввода нарисуйте пустой квадрат '#' с заданной шириной и длиной.

Пример:

5 результатов в

#####
#   #
#   #
#   #
#####

Я использовал Python для решения этой проблемы, поэтому я особенно заинтересован в другом коде Python. Но, пожалуйста, не стесняйтесь размещать свое решение на любом языке, который вы хотите.

sebingel
источник
7
Что если ввод 0 или 1?
Карл Напф
8
Связано , хотя это может быть достаточно разным, чтобы не быть обманщиком.
AdmBorkBork
3
Добро пожаловать в PPCG! Что касается будущих вопросов, я рекомендую вам использовать Песочницу, где вы можете получить содержательный отзыв о проблеме, прежде чем публиковать ее на главной странице.
AdmBorkBork
4
Читая ответы, я не уверен, что это обман. Большинство ответов здесь (игра в гольф и обычные языки) примерно вдвое меньше ответов «Print N Squared».
AdmBorkBork
1
Это абсолютно дубликат. Решения из другой задачи могут быть тривиально изменены, чтобы быть действительными и конкурентоспособными здесь.
Мего

Ответы:

12

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

Код:

NβBββ#

Объяснение:

Nβ        # Get input from the command line and store into β
   B      # Draw a hollow box with...
     β     #  Width β
      β    #  Height β
       #   #  Filled with the character '#'
           # Implicitly output the box

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

Аднан
источник
1
Я пытался понять, как читать входные данные в древесном угле. Теперь я знаю :)
Emigna
1
@Emigna Обратите внимание, что также можно использовать в выражении, как int(input())в Python. Если бы этот вызов был «нарисовать полый прямоугольник с заданной шириной и высотой», решение могло бы быть BNN#.
DLosc
Использует ли Charcoal кодировку не-UTF8?
OldBunny2800
Это выглядит как 6 символов, а не 6 байтов. β находится в большом количестве альтернативных 8-битных наборов символов, но я сомневаюсь в N (что не N)
Sparr
3
@Sparr Charcoal использует свою собственную кодовую страницу.
Конор О'Брайен
8

MATL , 12 байт

:G\1>&*~35*c

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

объяснение

:     % Input n implicitly. Push range [1 2 ... n]
      % STACK: [1 2 3 4 5]
G     % Push n again
      % STACK: [1 2 3 4 5], 5
\     % Modulo
      % STACK: [1 2 3 4 0]
1>    % Does each entry exceed 1?
      % STACK: [0 1 1 1 0]
&*    % Matrix with all pair-wise products
      % STACK: [0 0 0 0 0;
                0 1 1 1 0;
                0 1 1 1 0;
                0 1 1 1 0;
                0 0 0 0 0]
~     % Negate
      % STACK: [1 1 1 1 1;
                1 0 0 0 1;
                1 0 0 0 1;
                1 0 0 0 1;
                1 1 1 1 1]
35*   % Multiply by 35
      % STACK: [35 35 35 35 35;
                35  0  0  0 35;
                35  0  0  0 35;
                35  0  0  0 35;
                35 35 35 35 35]
c     % Convert to char. 0 is interpreted as space. Display implicitly
      % STACK: ['#####';
                '#   #';
                '#   #';
                '#   #';
                '#####']
Луис Мендо
источник
6

Джольф, 8 байт

,ajj"###
,ajj      draw a box with height (input) and width (input)
    "###  with a hash border
Конор О'Брайен
источник
Правильный инструмент для работы :)
Emigna
Из любопытства, зачем нужны три #?
Кевин Круйссен
3
@KevinCruijssen Каждый указывает горизонтальные стойки, вертикальные стойки и угловые элементы.
Конор О'Брайен
6

Python 2, 62 54 байта

f=lambda n:'#'*n+'\n#%s#'%(' '*(n-2))*(n-2)+'\n'+'#'*n

Возвращает, #\n#когда ввод1

Версия 55 байт, которая печатает

def f(n):a=n-2;print'#'*n,'\n#%s#'%(' '*a)*a,'\n'+'#'*n

Версия 62 байта, которая работает для любого входа:

f=lambda n:'#'*n+'\n#%s#'%(' '*(n-2))*(n-2)+('\n'+'#'*n)*(n>1)
прут
источник
2
Вы не должны говорить, f=если не используете это - что вы не делаете.
Даниил
@ Допап Я знаю, но я думаю, что это более справедливо (по сравнению с полными функциями / программами)
Род
@Rod Ваш выбор, но у нас есть политика в отношении анонимных функций, которая позволяет им.
Эрик Outgolfer
5

COW , 426 405 348 330 байт

MoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMMMmoOMMMMoOMoOMoOMoOMoOMoOMoOMoOMoO
MoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMMMmoOMMMMoOMoOMoOmoOoomMMM
moOMMMMOOmOomOoMoomoOmoOMOomoomOoMMMmoOMMMMOoMOoMOOmOomOomOomOoMoo
moOmoOMoomoOMMMmoOmoOMMMMOoMOoMOOmOomOomOomOoMoomoOmoOmoOmoOMOomoo
mOomOomOoMoomoOmoOMOomoomOomOomOomOoMoomoOmoOmoOMOOmOoMoomoOMOomoo

Попробуйте онлайн! Измените число во второй строке на любое число, чтобы изменить вывод.

Интерпретатор COW, который я здесь использую, был написан на Perl (и новее, чем этот вызов), но вы все равно можете получить тот же результат, введя здесь код .

объяснение

; Note: [n] means "value stored in the nth block of memory".
MoOMoOMoOMoOMoOMoOMoOMoOMoOMoO                                                  ;Stores 10 in [0].  10 is the code point for carriage return
MMMmoOMMMMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoO     ;Stores 32 in [1].  32 is the code point for whitespace
MMMmoOMMMMoOMoOMoO                                                              ;Stores 35 in [2].  35 is the code point for #
moOoom                                                                          ;Reads STDIN for an integer, and stores it in [3]
MMMmoOMMM                                                                       ;Copies [3] into [4] 
MOO                                                                             ;Loop as long as [4] is non-zero
    mOomOoMoo                                                                   ;Navigate to [2] and print the character with that code point
    moOmoOMOo                                                                   ;Navigate to [4] and decrement
moo                                                                             ;End loop
mOoMMMmoOMMMMOoMOo                                                              ;Copy [3] into [4] and decrement [4] twice
MOO                                                                             ;Loop as long as [4] is non-zero
    mOomOomOomOoMoo                                                             ;Navigate to [0] and print the character with that code point
    moOmoOMoo                                                                   ;Navigate to [2] and print the character with that code point
    moOMMMmoOmoOMMMMOoMOo                                                       ;Navigate to [3] and copy it into [5], then decrement [5] twice
    MOO                                                                         ;Loop as long as [5] is non-zero
        mOomOomOomOoMoo                                                         ;Navigate to [1] and print the character with that code point
        moOmoOmoOmoOMOo                                                         ;Navigate to [5] and decrement
    moo                                                                         ;End loop
    mOomOomOoMoo                                                                ;Navigate to [2] and print the character with that code point
    moOmoOMOo                                                                   ;Navigate to [4] and decrement
moo                                                                             ;End loop
mOomOomOomOoMoo                                                                 ;Navigate to [0] and print the character with that code point
moOmoOmoO                                                                       ;Navigate to [3]
MOO                                                                             ;Loop as long as [3] is non-zero
    mOoMoo                                                                      ;Navigate to [2] and print the character with that code point
    moOMOo                                                                      ;Navigate to [3] and decrement
moo                                                                             ;End loop
Габриэль Бенами
источник
4

Python 2, 59 58 байт

n=i=input()
while i:print'#%s#'%((' #'[i%n<2])*(n-2));i-=1

repl.it

Примечание. Входные данные 1создают выходные данные ##, но полый квадрат никогда не будет создаваться для входных данных меньше 3, поэтому, я думаю, это нормально.

Джонатан Аллан
источник
4

Java 7, 113 112 110 байт

String c(int n){String r="";for(int i=n,j;i-->0;r+="\n")for(j=0;j<n;r+=i*j<1|n-i<2|n-j++<2?"#":" ");return r;}

1 байт сохранен благодаря @ OlivierGrégoire ;
2 байта сохранены благодаря @cliffroot .

Полученное решение основано на моем ответе « Создание пересеченного квадрата» .

Попробуй это здесь.

Кевин Круйссен
источник
1
Можете ли вы побрить байт, выполнив следующее for(int i=n,j;i-->0;r+="\n")? Так как нам все равно, какая нижняя строка или верхняя, нет смысла соблюдать этот порядок, верно?
Оливье Грегуар
1
@ OlivierGrégoire Спасибо! Я также отредактировал его в своем ответе « Создание скрещенного квадрата» , поскольку там можно сделать то же самое.
Кевин Круйссен
4

PowerShell v2 +, 48 47 байт

param($n)($z='#'*$n--);,("#$(' '*--$n)#")*$n;$z

-1 байт благодаря JohnLBevan

Принимает ввод $n, устанавливает $zкак $nхеш-метки, с $nпост-декрементом. Инкапсулирует это в паренсе, чтобы поместить копию в конвейер. Затем используется оператор запятой , чтобы создать массив предварительно декрементируются $nлинии #, пространств, #. Те остались на конвейере. Затем $zснова ставит на конвейер. Вывод через неявный Write-Outputв конце вводит новую строку между элементами, так что мы получаем это бесплатно.

Поскольку код OP не работает для ввода n <= 1, я понял, что нам также не нужно поддерживать ввод 1.

Примеры

PS C:\Tools\Scripts\golfing> 2..6|%{"$_";.\draw-a-hollow-square.ps1 $_;""}
2
##
##

3
###
# #
###

4
####
#  #
#  #
####

5
#####
#   #
#   #
#   #
#####

6
######
#    #
#    #
#    #
#    #
######
AdmBorkBork
источник
Вы можете сбить еще один байт:param($n)($z='#'*$n--);,("#$(' '*--$n)#")*$n;$z
JohnLBevan
1
@JohnLBevan Хорошая идея с блоком сценария. Благодарность!
AdmBorkBork
3

C 98 байт

f(n,i){i=n*(n+1);while(i--){putchar(i%(n+1)==n?10:i<n||i>n*n-1||i%(n+1)==0||i%(n+1)==n-1?35:32);}}

Использование:

f(5)
Карл Напф
источник
3

WinDbg, 206 200 182 170 байт

.if@$t0{r$t3=2000000;f@$t3 L@$t0 23;f2*@$t3 L@$t0 20;eb2*@$t3 23;eb2*@$t3+@$t0-1 23;da@$t3 L@$t0;j1<@$t0'.for(r$t1=@$t0-2;@$t1;r$t1=@$t1-1){da2*@$t3 L@$t0};da@$t3 L@$t0'}

-6 байт от удаления паренов .ifи использования jвместо второго.if

-18 байт, используя fвместо a .forдля создания строк.

-12 байт не NULL-завершающими строками, вместо этого передавая длину da

Ввод передается через псевдорегистр $t0(например r $t0 = 5; {above-code}).

Объяснение:

.if @$t0                                                *Verify width($t0) at least 1 
{                                                       *(registers have unsigned values) 
    r $t3 = 2000000;                                    *Set $t3 to address where the 
                                                        *string will be constructed
    f @$t3 L@$t0 23;                                    *Put width($t0) '#' at 2000000($t3)
    f 2 * @$t3 L@$t0 20;                                *Put width($t0) ' ' at 4000000(2*$t3)
    eb 2 * @$t3 23;                                     *Put '#' on left of ' ' string
    eb 2 * @$t3 + @$t0 - 1 23;                          *Put '#' on right of ' ' string
    da @$t3 L@$t0;                                      *Print the top of the box
    j 1 < @$t0                                          *If width($t1) at least 2
    '
        .for (r $t1 = @$t0 - 2; @$t1; r $t1 = @$t1 - 1) *Loop width($t0)-2 times to...
        {
            da 2 * @$t3 L@$t0                           *...print the sides of the box
        };
        da @$t3 L@$t0                                   *Print the bottom of the box
    '
}

Пример вывода:

0:000> r$t0=0
0:000> .if@$t0{r$t3=2000000;f@$t3 L@$t0 23;f2*@$t3 L@$t0 20;eb2*@$t3 23;eb2*@$t3+@$t0-1 23;da@$t3 L@$t0;j1<@$t0'.for(r$t1=@$t0-2;@$t1;r$t1=@$t1-1){da2*@$t3 L@$t0};da@$t3 L@$t0'}

0:000> r$t0=1
0:000> .if@$t0{r$t3=2000000;f@$t3 L@$t0 23;f2*@$t3 L@$t0 20;eb2*@$t3 23;eb2*@$t3+@$t0-1 23;da@$t3 L@$t0;j1<@$t0'.for(r$t1=@$t0-2;@$t1;r$t1=@$t1-1){da2*@$t3 L@$t0};da@$t3 L@$t0'}
Filled 0x1 bytes
Filled 0x1 bytes
02000000  "#"

0:000> r$t0=2
0:000> .if@$t0{r$t3=2000000;f@$t3 L@$t0 23;f2*@$t3 L@$t0 20;eb2*@$t3 23;eb2*@$t3+@$t0-1 23;da@$t3 L@$t0;j1<@$t0'.for(r$t1=@$t0-2;@$t1;r$t1=@$t1-1){da2*@$t3 L@$t0};da@$t3 L@$t0'}
Filled 0x2 bytes
Filled 0x2 bytes
02000000  "##"
02000000  "##"

0:000> r$t0=5
0:000> .if@$t0{r$t3=2000000;f@$t3 L@$t0 23;f2*@$t3 L@$t0 20;eb2*@$t3 23;eb2*@$t3+@$t0-1 23;da@$t3 L@$t0;j1<@$t0'.for(r$t1=@$t0-2;@$t1;r$t1=@$t1-1){da2*@$t3 L@$t0};da@$t3 L@$t0'}
Filled 0x5 bytes
Filled 0x5 bytes
02000000  "#####"
04000000  "#   #"
04000000  "#   #"
04000000  "#   #"
02000000  "#####"
молоко
источник
3

JavaScript, 61 58 байт

Сохранено 3 байта благодаря @lmis !

n=>(b='#'[r='repeat'](n))+`
#${' '[r](n-=2)}#`[r](n)+`
`+b

(Не обрабатывает 0или 1)

За 13 дополнительных байтов (при 71 байте ) вы можете!

n=>n?n-1?(b='#'[r='repeat'](n))+`
#${' '[r](n-=2)}#`[r](n)+`
`+b:'#':''

Эти решения довольно просты: они занимают много места, чтобы не повторяться, чтобы сэкономить несколько байтов. Unminified без variablsm это будет выглядеть так:

n => // Anonymous function definition (Param `n` is the size)
    '#'.repeat(n) +      // # `n` times to form the top
    `
#${' '.repeat(n - 2)}#`  // Followed by a newline followed by a hash and `n` - 2 spaces and
                         // another hash to make one of the middle lines
    .repeat(n - 2) +     // The above middle lines repeated `n` - 2 times
    '#'.repeat(n)        // Followed by the top line again

Попытайся!

<script type="text/babel">var f=n=>n?n-1?(b='#'[r='repeat'](n))+`\n#${' '[r](n-=2)}#`[r](n)+`\n`+b:'#':'',b,r;function c(){document.getElementById('pre').textContent = f(+document.getElementById('input').value);}</script><input id="input" onkeydown="c();" onkeyup="c();" onchange="c();" onclick="c();" placeholder="Size"><pre id="pre"></pre>

Artyer
источник
Добавив !n?'':n==1?'#':дополнительные 15 байтов в начале тела функции, вы можете обрабатывать вводы 0и 1.
Кайла
1
n=>(b='#'[r='repeat'](n))а потом #${" "[r](n-=2)}и т. д. экономит 3 байта, избегая повторения repeat:)
Lmis
2

Python, 109 байт

n=int(input())
for x in range(n):
 r=list(' '*n);r[0]=r[-1]='#'
 if x%(n-1)==0:r='#'*n
 print("".join(r))
sebingel
источник
1
Вы можете заменить list(' '*n)на [' ']*n. Вы также можете заменить x%(n-1)наx%~-n
Мастер пшеницы
Кроме того, если вы превратите forблок в понимание списка, вы можете сохранить более 20 байтов
Rod
Кроме того, перейдите к Python 2, бросьте int()и скобки вокруг print.
Artyer
Используйте <1вместо ==0.
mbomb007
2

Рубин, 39 байт

->n{puts a=?#*n,[?#+' '*(n-=2)+?#]*n,a}

Оказывается, таким образом короче, чем все модные вещи, которые я пытался. Имейте в виду, что это не обрабатывает 0 или 1 вообще.

Ли В.
источник
2

Python 2, 50 байт

m=input()-2
for c in'#'+' '*m+'#':print'#'+m*c+'#'

Работает для n>=2. Печатает каждую строку со знаком фунта, n-2соответствующего символа, затем другой знак фунта.

Псевдоним символа фунта дает такую ​​же длину:

m=input()-2;p='#'
for c in p+' '*m+p:print p+m*c+p

Другие попытки:

lambda n:'#'*n+('\n#'+' '*(n-2)+'#')*(n-2)+'\n'+'#'*n

lambda n:'#'*n+'\n#%s#'%((n-2)*' ')*(n-2)+'\n'+'#'*n

lambda n:'\n'.join(['#'*n]+['#'+' '*(n-2)+'#']*(n-2)+['#'*n])

n=input();s='#'+' '*(n-2)+'#'
for c in s:print[s,'#'*n][c>' ']

s='##'+' #'*(input()-2)+'##'
for c in s[::2]:print s[c>' '::2]

s='#'+' '*(input()-2)+'#'
for c in s:print s.replace(' ',c)
XNOR
источник
2

Haskell, 49 байтов

n%b='#':(b<$[3..n])++"#\n"
f n=(n%)=<<init(n%' ')

Работает для n>=2. Определяет операцию размещения символа между# для n-character новой строки с завершающим нулем, а затем подает его в два раза , чтобы сделать 2D сетки.

Звоните как:

*Main> putStrLn$ f 5
#####
#   #
#   #
#   #
#####
XNOR
источник
2

C 83 82 80 78 77 Bytes

i,j;f(n){for(i=n;i--;puts(""))for(j=n;j--;putchar(i*j&&i^n-1&&j^n-1?32:35));}

Пробирайся умножь и сохрани байт ...

i,j;f(n){for(i=n;i--;puts(""))for(j=n;j--;putchar(i&&j&&i^n-1&&j^n-1?32:35));}

Также отсчитайте j и сохраните еще несколько ...

i,j;f(n){for(i=n;i--;puts(""))for(j=0;j++<n;putchar(i&&j^1&&i^n-1&&j^n?32:35));}

Обратный отсчет от нуля до нуля и сохранение нескольких байтов ...

i,j;f(n){for(i=0;i++<n;puts(""))for(j=0;j++<n;putchar(i^1&&j^1&&i^n&&j^n?32:35));}

Чуть проще понять и на 1 байт больше

i,j;f(n){for(i=0;i++<n;puts(""))for(j=0;j++<n;putchar(i==1|i==n|j==1|j==n?35:32));}
cleblanc
источник
Вам нужно &&вместо &?
corvus_192
Да, это должно быть логично. Я могу использовать умножение, но это требует слишком много скобок ...
cleblanc
1

Groovy, 51 50 байт

{n->a="*"*n+"\n";n-=2;print(a+"*${' '*n}*\n"*n+a)}
Урна волшебного осьминога
источник
1

PHP, 81 69 байт

for($n=-1+$i=$argv[1];$i--;)echo str_pad("#",$n," #"[$i%$n<1]),"#\n";

Беги с -r; предоставить ввод в качестве аргумента.

Кидает DivisionByZeroErrorдля ввода = 1.

Titus
источник
1

Р, 68 70 байт

Работает для n> 1. Спасибо @Billywob за пару байтов, заменяющих массив для матрицы.

cat(rbind(b<-'#',cbind(b,matrix(' ',n<-scan()-2,n),b),b,'
'),sep='')

Использует rbind и cbind для размещения строк и столбцов в #n-2 квадратной матрице пробелов. Новые строки также привязаны к строкам. Новая строка в источнике значительна. Ввод от STDIN

MickyT
источник
Ницца! Я понятия не имел, что новая строка в строке неявно добавляет \n. Вы можете сохранить два байта, используя matrixвместо этого array.
Billywob
1

Common Lisp, 150 130 байт

-20 благодаря @Cyoce и @AlexL.

(defun s(v)(format t"~v,,,vA~%"v #\# #\#)(dotimes(h(- v 2))(format t"~v,,,vA~A~%"(- v 1)#\  #\# #\#))(format t"~v,,,vA"v #\# #\#))

Использование:

* (s 5)
#####
#   #
#   #
#   #
#####

В основном используется formatдважды для верха и низа и петли для строк между ними. Вызов формата для верхнего и нижнего выводит строку, начинающуюся с #и дополняющую до соответствующей ширины с помощью #s. Вызов формата для строк между ними работает аналогично, за исключением того, что отступы - это пробелы и# в конце строки печатается .

Примечание: я довольно плохо знаком с Лиспом и ожидаю, что у меня будет много возможностей для этого.

artificialnull
источник
Почему бы не назвать это s? Или анонимная функция?
Cyoce
Я не знаю Лисп, но нужны ли все пробелы между словом и открытой скобкой справа от него? Мол, это должно быть dotimes (h (- v 2))или может быть dotimes(h(- v 2))?
HyperNeutrino
@AlexL. да, здесь есть много возможностей для улучшения. Тонна пробелов может быть удалена между круглыми скобками и другими символами. Я просто сделаю это очень быстро
искусственный
0

Haskell, 67 байт

l#n=l<$[1..n]
f n=unlines$'#'#n:('#':' '#(n-2)++"#")#(n-2)++['#'#n]

Пример использования:

Prelude> putStrLn $ f 4
####
#  #
#  #
####

Как это работает:

l#n=l<$[1..n]                      -- helper function that makes n copies of l

   '#'#n                           -- make a string of n copies of #, followed by
                        #(n-2)     -- n-2 copies of
     '#':' '#(n-2)++"#"            -- # followed by n-2 times spaces, followed by #
                           ['#'#n] -- and a final string with n copies of #
unlines                            -- join with newlines in-between
Ними
источник
0

Желе , 13, байт

,þ%µỊṀ€€ị⁾# Y

TryItOnline! или попробуйте от 0 до 15

Как?

,þ%µỊṀ€€ị⁾# Y - Main link: n
 þ            - outer product with
,             -    pair:   [[[1,1],[2,1],...,[n,1]],[[1,2],[2,2],...,[n,2]], ... ,[[1,n],[2,n],...,[n,n]]]
  %           - mod n:     [[[1,1],[2,1],...,[0,1]],[[1,2],[2,2],...,[0,2]], ... ,[[1,0],[2,0],...,[0,0]]]
   µ          - monadic chain separation
    Ị         - abs(z)<=1: [[[1,1],[0,1],...,[1,1]],[[1,0],[0,0],...,[1,0]], ... ,[[1,1],[0,1],...,[1,1]]]
      €€      - for each for each
     Ṁ        - maximum:   [[1,    1,    ...,1],    [1,    0,    ..., 1],    ... ,[1,    1,    ..., 1]   ]
        ị     - index into (1 based)
         ⁾#   - "# ":      ["##...#","# ...#", ...,"##...#"]
           Y  - join with line feeds
Джонатан Аллан
источник
0

Пип , 16 байт

15 байтов кода, +1 за -nфлаг.

(Y_Xa-2WR'#s)My

Работает на ввод> = 2. Попробуйте онлайн!

Объяснение несколько нелепой версии

Сначала мы определяем функцию, yкоторая принимает строковый аргумент, повторяет его a-2раз (где aнаходится первый ввод командной строки) и переносит результат в #.

Y _ X a-2 WR '#
  _              Identity function
    X a-2        String-repeated by a-2
          WR '#  Wrapped in #
Y                Yank the resulting function into y

Затем мы применяем эту функцию дважды - один раз нормально, затем снова с картой - чтобы получить квадрат в виде списка строк:

y M (y s)
    (y s)  Call function y with s (preinitialized to " ") as argument
y M        Map y to each character of the resulting string

Для ввода 4, (y s)результатов в "# #"и y M (y s)в ["####"; "# #"; "# #"; "####"]. Это последнее значение затем печатается с -nфлагом, делающим его разделенным новой строкой.

Уловки гольфа

Чтобы перейти от игры без игры в гольф:

  • Удалить пробелы.
  • Yявляется оператором, что означает, что мы можем использовать его в выражении. Вместо того, чтобы Y...следовать (ys), мы можем просто сделать (Y...s).
  • Проблема в том, что мы должны восстановить функцию, прежде чем мы снова ссылаемся на нее как y; так yM(Y_Xa-2WR'#s)не сработает. Решение: поменяйте местами операнды Mоператора ap. Пока один из них является функцией, а другой - итеративным типом, не имеет значения, в каком порядке они входят.
DLosc
источник
0

Ракетка 113 байт

(let*((d display)(g(λ()(for((i n))(d"#")))))(g)(d"\n")(for((i(- n 2)))(d"#")(for((i(- n 2)))(d" "))(d"#\n"))(g))

Ungolfed:

(define (f n)
  (let* ((d display)
         (g (λ () 
              (for ((i n))
                (d "#"))
              (d "\n"))))
    (g)
    (for ((i (- n 2)))
      (d "#")
      (for ((i (- n 2)))
        (d " ") )
      (d "#\n"))
    (g)))

Тестирование:

(f 5)

Выход:

#####
#   #
#   #
#   #
#####
rnso
источник
0

SpecBAS - 57 байт

1 INPUT n: a$="#"*n,n-=2,b$="#"+" "*n+"#"#13: ?a$'b$*n;a$

?это сокращение PRINT, #13является возврат каретки , который может быть добавленным к концу строки без необходимости +присоединиться к ним.

Апостроф перемещает курсор печати вниз на одну строку.

Брайан
источник
0

Застрял, 29 27 байт

Довольно чертовски долго для языка "игры в гольф", но я забыл, как много это работает: P

i_2-_u'#*N+_'#' u*'#N+++u*u

Объяснение:

i_2-_u                           # take input and triplicate, subtracting 2 (5 -> [3,3,5])
      '#*N+_                     # create the top and bottom rows
            '#' u*'#N+++u*       # create input - 2 copies of middle rows
                          u      # rotate left 1 to get correct order, implicit output
Када
источник
0

C #, 154 152 байта

Golfed:

void F(int n){Console.Write($"{new string('#',n)}\n");for(int i=2;i<n;i++)Console.Write($"#{new string(' ',n-2)}#\n");Console.Write(new string('#',n));}

Ungolfed:

    void F(int n)
    {
        Console.Write($"{new string('#', n)}\n");

        for (int i = 2; i < n; i++)
            Console.Write($"#{new string(' ', n - 2)}#\n");

        Console.Write(new string('#', n));
    }

EDIT1: оптимизация диапазона петли.

paldir
источник
0

Lithp , 117 байт

Строка разделена на две части для удобства чтения:

#N::((var X (repeat "#" N))(print X)(each (seq 3 N) (scope #X::((print (+ "#" 
     (repeat " " (- N 2)) "#")))))(print X))

Пример использования:

% square.lithp
(
    (import "lists")
    (def s #N::((var X (repeat "#" N))(print X)(each (seq 3 N) (scope #X::((print (+ "#" (repeat " " (- N 2)) "#")))))(print X)))
    (s 10)
)

Output:
$ ./run square.lithp
##########
#        #
#        #
#        #
#        #
#        #
#        #
#        #
#        #
##########
Andrakis
источник