B←{'/\ '['\/'⍳⍺⍺⍵]}
C←⊢,⌽B
C(⊢⍪⊖B)⊃,/{C⊖A↑⊖' /'[⍵≤∘.+⍨⍳⍵+1]}¨⌽⍳A←⎕
Probieren Sie es online!
Nimmt man an ⎕IO←0
, was auf vielen Systemen Standard ist, so ist das Programm 0-indiziert.
Dies ist ein Handel, der Eingaben über STDIN entgegennimmt.
Erläuterung
(etwas veraltet)
Beachten Sie, dass dies ⍺
das linke Argument, ⍵
das rechte Argument und ⍺⍺
der linke Operator ist.
B
ist eine Funktion, die beim Spiegeln der Diamanten hilft. Die Zeichenfolge wird als rechtes Argument und die Umkehrfunktion als linkes Argument verwendet (also B
ein Operator).
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
Und jetzt gehen wir zum Hauptteil des Programms.
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
Dies ist erforderlich, um sicherzustellen, dass alle für jedes Element im Bereich erstellten Dreiecke ⌽⍳A
dieselbe Höhe haben, damit sie später miteinander verkettet werden können.
⊖ 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
Jetzt ist der obere linke Teil des Musters fertig. Alles was übrig bleibt, ist es vertikal und dann horizontal zu spiegeln.
(⊢⍪⊖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
Und das ist es! Die Ausgabe ist eine Zeichenmatrix mit /\
s und Leerzeichen.