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 и дополненную пробелами.