Намалюйте порожнистий квадрат з # із заданою шириною


21

Я отримав цю проблему від Codingame і мені цікаво краще рішення, ніж моє:

За допомогою ширини за допомогою стандартного введення намалюйте порожній квадрат "#" заданої ширини та довжини.

Приклад:

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

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

Я використовував python для вирішення цього питання, тому я детально зацікавлений в іншому python-коді. Але будь ласка, не соромтеся розміщувати рішення будь-якою мовою.


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

Чи використовує вугілля деревне вугілля без UTF8?
OldBunny2800

Це схоже на 6 символів, а не на 6 байт. β містить безліч альтернативних 8-бітових наборів символів, але я сумніваюся щодо N (що не є N)
Sparr

3
@Sparr Деревне вугілля використовує власну кодову сторінку.
Conor O'Brien

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 Кожну задайте горизонтальні стійки, вертикальні підкоси та кутові частини.
Conor O'Brien

6

Пітон 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=якщо ви не користуєтесь цим, - чого не робите.
Даніель

@Dopapp Я знаю, але я вважаю, що це справедливіше (порівняно з повноцінними функціями / програмами)
Rod

@Rod Ваш вибір, але у нас є політика щодо анонімних функцій, яка їх дозволяє.
Ерік Аутгольфер

5

КОРО , 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 Дякую! Я також відредагував це у своїй відповіді " Створення перекресленого квадрата" , оскільки там можна зробити те саме.
Kevin Cruijssen

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

Ви можете вибити ще один байт: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:'#':''

Ці рішення досить прості: вони роблять багато місця для зберігання, щоб не повторити себе, щоб зберегти кілька байт. Без обмежень без змінblsm це виглядатиме так:

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>


Додавши !n?'':n==1?'#':додаткові 15 байт на початку функції функції, ви можете обробляти входи 0та 1.
Кайла

1
n=>(b='#'[r='repeat'](n))а потім #${" "[r](n-=2)}і т. д. економить 3 байти, уникаючи повторення repeat:)
Лміс

2

Пітон, 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))

1
Ви можете замінити list(' '*n)на [' ']*n. Ви також можете замінити x%(n-1)наx%~-n
Пшеничний майстер

Крім того, якщо перетворити forблок на розуміння списку, ви можете заощадити більше 20 байт
Rod

Крім того, перейдіть на Python 2, опустіть int()і дужки навколо print.
Художник

Використовуйте <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)

2

Haskell, 49 байт

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

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

Телефонуйте як:

*Main> putStrLn$ f 5
#####
#   #
#   #
#   #
#####

2

С, 83 82 80 78 77 байт

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));}

Відлічуйте число від n до нуля і збережіть кілька байт ...

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));}

Вам потрібно &&замість &?
corvus_192

Так, це має бути логічним &. Я можу використовувати множення, але для цього потрібно занадто багато дужок ...
cleblanc


1

PHP, 81 69 байт

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

Бігати з -r; надати введення як аргумент.

Кидає a DivisionByZeroErrorдля введення = 1.


1

R, 68 70 байт

Працює для n> 1. Завдяки @Billywob за пару байтів заміняє масив на матрицю.

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

Використовує rbind і cbind для розміщення рядків і стовпців #'s навколо n-2 квадратної матриці пробілів. Нові рядки також прив’язані до рядків. Новий рядок у джерелі є вагомим. Вхід від STDIN


Приємно! Я поняття не мав, що новий рядок у рядку неявно додається \n. Ви можете зберегти два байти, використовуючи matrixзамість цього array.
Billywob

1

Лист звичайний, 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. Виклик формату для рядків між ними працює аналогічно, за винятком прокладки - пробіли та #надруковані в кінці рядка.

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


Чому б не назвати його s? Або виконайте анонімну функцію?
Кіос

Я не знаю Лісп, але чи потрібні всі пробіли між словом та відкритою дужкою праворуч? Мовляв, це має бути 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

СпробуйтеItOnline! або спробуйте від 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. Поки одна з них є функцією, а інша - ітерабельним типом, не має значення в якому порядку вони надходять.

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))

Безголівки:

(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)

Вихід:

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

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 байти

Гольф:

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));}

Безголівки:

    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: Оптимізація діапазону циклу.


0

Літп , 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
##########
#        #
#        #
#        #
#        #
#        #
#        #
#        #
#        #
##########
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.