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 และมีช่องว่าง