Удвойте несколько бриллиантов


25

проблема

Учитывая положительное целое число, nгдеn < 100

Выведите ромбовидный узор следующим образом:

вход n=1

/\/\
\/\/

Вход n=2:

 /\      /\
//\\/\/\//\\
\\//\/\/\\//
 \/      \/

Вход n=3:

  /\                /\
 //\\  /\      /\  //\\
///\\\//\\/\/\//\\///\\\
\\\///\\//\/\/\\//\\\///
 \\//  \/      \/  \\//
  \/                \/

Вход n=4:

   /\                              /\
  //\\    /\                /\    //\\
 ///\\\  //\\  /\      /\  //\\  ///\\\
////\\\\///\\\//\\/\/\//\\///\\\////\\\\
\\\\////\\\///\\//\/\/\\//\\\///\\\\////
 \\\///  \\//  \/      \/  \\//  \\\///
  \\//    \/                \/    \\//
   \/                              \/

И так далее.

правила

  • Программа и функция разрешены.
  • Конечный пробел разрешен.
  • Ведущие пробелы в строках с номерами no /или \позволены.
  • Трейлинг и ведущие новые строки разрешены.
  • Самый короткий код в байтах побеждает

Это, вероятно, довольно связано


2
@carusocomputing Вы галлюцинируете прямо сейчас ...
Эрик Outgolfer


1
@dzaima к песочнице с этим!
Волшебная Урна Осьминога

1
@carusocomputing Конечно, но сначала я должен выяснить, почему и как это произошло: p
dzaima

Ответы:


12

SOGL V0.12 , 24 байта

ā.∫ā;∫ \*+}ø┼↔±╬¡;øΚ┼}╬³

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

Объяснение:

ā                         push an empty array (the main canvas)
 .∫                  }    iterate over the input, pushing 1-indexed iteration
   ā;                       push an empty array below the iteration
     ∫    }                 iterate over the iteration counter
       \*                     push current iteration amount of slashes
         +                    append those to the 2nd array
           ø┼               append nothing (so it'd space the array to a square)
             ↔±             reverse horizontally (swapping slashes)
               έ           quad-palindromize with 0 overlap and swapping characters as required
                 ;          get the canvas ontop
                  øΚ        prepend to it an empty line (so the now bigger romb would be one up)
                    ┼       append horizontally the canvas to the current romb
                      ╬³  palindromize horizontally with no overlap and swapping characters

2
Вау , это больная команда.
Волшебная Урна Осьминога

@carusocomputing Довольно недавнее дополнение тоже. соответствующий файл . Еще предстоит выяснить, что делать с оставшимися 190 символами
dzaima

Ух ты, значит у тебя в SOGOL 190 бесплатных команд и ты уже можешь играть в гольф эффективно?
Волшебная Урна Осьминога

1
@carusocomputing Я имел в виду 190 бесплатных команд для lol
dzaima

2
@carusocomputing Но как забавный факт, (приблизительно) 90/256 символов не реализованы, а 61/256 не имеют никакой документации
dzaima

7

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

F⁺¹N«Fι«F⁴«↙⁻ικ↑⟲T»←»Mι←»‖M

Попробуйте онлайн! Ссылка на подробную версию кода. Пояснение: Примитивы рисования Древесного угля не могут полностью нарисовать алмаз, потому что движения по диагонали остаются на квадратах одинаковой четности. Изменить: Новое решение состоит в том, чтобы нарисовать одну сторону алмаза, а затем повернуть весь холст, готовый нарисовать следующую сторону, что позволяет рисовать алмаз в цикле. Эта петля затем содержится в петле, чтобы нарисовать все внутренние алмазы для каждого алмаза. Самая внешняя петля рисует все алмазы, смежные друг с другом. Наконец изображение отражается.

Обратите внимание, что с тех пор Charcoal был расширен, и другой байт можно было сохранить с помощью Increment .


Где движения 0,5 символа, когда они вам нужны :(
CalculatorFeline

6

APL (Dyalog) , 70 69 66 байт

B←{'/\ '['\/'⍳⍺⍺⍵]}
C←⊢,⌽B
C(⊢⍪⊖B)⊃,/{C⊖A↑⊖' /'[⍵≤∘.+⍨⍳⍵+1]}¨⌽⍳A←⎕

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

Предполагается ⎕IO←0, что является стандартным для многих систем, поэтому программа имеет индекс 0.

Это tradfn, который принимает данные через STDIN.

объяснение

(немного устаревший)

Обратите внимание, что это левый аргумент, это правый аргумент и ⍺⍺левый оператор.

Bэто функция, которая помогает в отражении алмазов. Он принимает строку в качестве правого аргумента и обратную функцию в качестве левого ( Bкак и оператор).

B←{'/\ '['\/'⍳⍺⍺⍵]}
              ⍺⍺⍵            Apply ⍺⍺ on 
         '\/'               Find the index of the reflected string in '\/' (if the character is not found in `'\/'`, then return an index out of the bounds of the string, ie `2` if the character is a space)
   '/\ '[        ]           Use these indexes on '/\ ' to reflect the '/\' characters

И теперь мы переходим к основной части программы.

A←⎕              Assign the input to variable A
                Create a range 0 .. A-1
                Reverse it so that it becomes A-1 .. 0
¨                For each element do (the right argument is the element):
 ⍳⍵+1             Create a range 0 .. 
 ∘.+⍨             Create an addition table using the range to result in a matrix like so:
                   0+0 0+1 0+2 .. 0+⍵
                   1+0 1+1 1+2 .. 1+⍵
                   2+0 2+1 2+2 .. 2+⍵
                   ...
                   ⍵+0 ⍵+1 ⍵+2 .. ⍵+⍵
 ⍵≤              The elements of the matrix that are greater than or equal to the ⍵,
                 this creates a triangle matrix that looks like this:
                   0 0 .. 0 1
                   0 0 .. 1 1
                   ..
                   1 1 .. 1 1
 ' /'[...]       Index it in ' /' to get a character matrix
                 (ie replace 0s with spaces and 1s with '/'s)
                Flip this vertically
 A              Pad the top spaces

Это необходимо для обеспечения того, чтобы все треугольники, созданные для каждого элемента в диапазоне, ⌽⍳Aимели одинаковую высоту, чтобы впоследствии их можно было соединять друг с другом.

                Flip the matrix vertically again to go back to the original state
 (⊢,  )          Concatenate it with
    B           itself, but flipped horizontally
,/              Concatenate all triangles formed by the range operator
               The resulting matrix is nested, so this operator "un-nests" it

Теперь верхняя левая часть шаблона завершена. Осталось только перевернуть его вертикально, а затем горизонтально.

(⊢⍪⊖B)          Concatenate the resulting matrix with itself but flipped vertically
                (the vertically flipped matrix is concatenated below of the original matrix)
                Now the left part of the pattern is complete
(⊢,⌽B)         Concatenate the resulting matrix with itself flipped horizontally

Вот и все! Вывод представляет собой символьную матрицу с /\s и дополненную пробелами.


6

05AB1E , 47 43 41 35 34 33 32 байта

'/×ηηvy∞.C.Bø€∞¹NαGð.ø}})øíJ.B»∞

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

(-4 байта благодаря @Emigna, который предложил 3 улучшения)


Это объяснение было для более ранней версии, с тех пор было несколько итераций.

>                                          # [2]
 '/×                                       # ['//']
    η                                      # ['/','//']
     €η                                    # [['/'], ['/', '//']]
       vy                    }             # {For each element...}
         ∞                                 # Mirror horizontally.
          ¶¡                               # Split mirror on newlines.
            N£                             # Shave each diamond down a layer.
              .C                           # Horizontal center.
                .B                         # Pad for the transpose.
                  ø                        # Transpose.
                   €∞                      # Mirror each (vertically).
                     ¹NαFð.ø}              # Pad each list for transpose (verticaly).
                              )            # Wrap back to list...
                               €.B         # Pad each horizontally.
                                  ¦        # Remove the random numbers?
                                   ø       # Back to horizontal...
                                    €R     # Reverse to get correct order.
                                      J    # Join, no spaces.
                                       »   # Join newlines.
                                        ∞  # Final horizontal mirror.

Между вашими бриллиантами есть пробелы
LiefdeWen

@LiefdeWen это хорошо? С последующим и предшествующим переводом строки?
Волшебная Урна Осьминога

Вы можете использовать префиксы ηвместо суффиксов, так как они одинаковы для этой строки.
Emigna

такой же как и ¨здесь и €Rесть í.
Эминья

@Emigna Я немного поиграл, но спасибо! Вы собираетесь попробовать 33-байтовый ответ, который на 100% отличается: P?
Волшебная Урна Осьминога

5

CJam , 65 63 байта

q~_,:)_W%\+f{_2*S*a@2$-*\_,f{)'/*\Se[_W%'/'\er+}_W%Wf%+1$++}zN*

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

объяснение

В этом объяснении я буду ссылаться на входной номер как n.

q~        e# Read and eval the input (push n to the stack).
_,        e# Copy it an get the range [0 .. n-1].
:)        e# Increment each element to get [1 .. n].
_W%       e# Copy it and reverse it.
\+        e# Prepend the reverse to the original range, resulting in [n n-1 .. 1 1 .. n-1 n].
f{        e# Map over each number x in the range using n as an extra parameter:
 _2*S*a   e#  Push a string containing n*2 spaces, and wrap it in an array.
 @2$-     e#  Push n-x.
 *        e#  Repeat the space string from before n-x times.
 \        e#  Bring x back to the top.
 _,       e#  Copy it and get the range [0 .. x-1].
 f{       e#  Map over each number y in this range, using x as an extra parameter:
  )       e#   Increment y.
  '/*     e#   Repeat '/' y times.
  \Se[    e#   Pad the resulting string to length x by adding spaces to the left.
  _W%     e#   Copy the result and reverse it.
  '/'\er  e#   Replace '/' with '\' in that.
  +       e#   Concatenate to the other string. This forms one row of one diamond.
 }        e#  (end map, now we have the top half of a diamond of size x)
 _W%      e#  Copy the half-diamond and reverse it.
 Wf%      e#  Reverse each row.
 +        e#  Concatenate to the top half. Now we have a full diamond of size x.
 1$++     e#  Put the spaces from before at the beginning and end. This is to pad the top
          e#  and bottom of the smaller diamonds.
}         e# (end map)
z         e# Transpose.
N*        e# Join with newlines. Implicit output.

Из любопытства, почему e#в объяснении?
Волшебная Урна Осьминога

1
@carusocomputing Это комментарий, поэтому вы можете запустить само объяснение. Не очень нужно, но ¯ \ _ (ツ) _ / ¯
Business Cat

1
@carusocomputing #- это не комментарий в CJam - sourceforge.net/p/cjam/wiki/Basic%20operators/#number-sign - хотя это и есть на многих других языках. Поскольку CJam является языком игры в гольф, все односимвольные команды используются для соответствующей гольф-функциональности. Комментарии полезны только для незакрашенного кода, поэтому он использует двухсимвольную последовательность, таким образом освобождая односимвольную последовательность для чего-то другого
Джо

3

Python 2 , 152 147 143 140 байт

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

n=input()
r=range(n)
r+=r[::-1]
for x,i in enumerate(r):a,b='/\\\/'[i<x::2];s=' '*(n+~i);print''.join((s+a*n)[:n-j]+(b*-~i+s)[j:]for j in r)

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

Это работает путем измельчения внутренних столбцов самого большого ромба, чтобы получить меньшие, используя [0,..,n,n,..,0]для управления количество столбцов, которые нужно удалить.


Вы можете получить один дешевый байт, изменив r=r+наr+=
musicman523


3

Дьялог АПЛ, 46

{⊃,/⍵∘{'/ \'[2+((-⍪⊖)⌽,-)(-⍺)↑∘.≥⍨⍳⍵]}¨(⌽,⊢)⍳⍵}

Добро пожаловать в PPCG и хороший первый ответ! Видя, как это DFN, я добавил {}к вашему ответу, как они должны быть включены.
Kritixi Lithos


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