RosettaCodeData/Task/Floyds-triangle/YAMLScript/floyds-triangle.ys

14 lines
339 B
Text
Raw Permalink Normal View History

2025-02-27 18:35:13 -05:00
!YS-v0
2024-10-16 18:07:41 -07:00
2025-06-11 20:16:52 -04:00
defn main(n=14):
2024-10-16 18:07:41 -07:00
nums =: range().map(inc).map(str)
rows =:
loop row-n 1, nums nums, rows []:
if rows.# < n:
recur: row-n.++ nums.drop(row-n)
conj(rows nums.take(row-n))
else: rows
width =: rows:last:last:len
2024-11-04 20:28:54 -08:00
fmt =: \((' ' * (width - _:len)) + _)
2024-10-16 18:07:41 -07:00
each row rows: say(row.map(fmt):joins)