Floyd's triangle: Difference between revisions
m
put ABAP below 360 assembly in alphabetical order
m (→{{header|Uiua}}: improved algorithm) |
Not a robot (talk | contribs) m (put ABAP below 360 assembly in alphabetical order) |
||
Line 60:
79 80 81 82 83 84 85 86 87 88 89 90 91
92 93 94 95 96 97 98 99 100 101 102 103 104 105
</pre>▼
=={{header|ABAP}}==▼
REPORT zmbr_test.▼
PARAMETERS: p_row TYPE i.▼
START-OF-SELECTION.▼
DATA(lv_column) = 0.▼
DATA(lv_number) = 0.▼
DO p_row TIMES.▼
lv_column += 1.▼
DO lv_column TIMES.▼
lv_number += 1.▼
WRITE: lv_number.▼
ENDDO.▼
WRITE:/ space.▼
ENDDO.▼
{{out}}▼
<pre>▼
1▼
2 3▼
4 5 6▼
7 8 9 10▼
11 12 13 14 15▼
</pre>▼
{{out}}▼
<pre>▼
1▼
2 3▼
4 5 6▼
7 8 9 10▼
11 12 13 14 15▼
16 17 18 19 20 21▼
22 23 24 25 26 27 28▼
29 30 31 32 33 34 35 36▼
37 38 39 40 41 42 43 44 45▼
46 47 48 49 50 51 52 53 54 55▼
</pre>
Line 176 ⟶ 129:
79 80 81 82 83 84 85 86 87 88 89 90 91
92 93 94 95 96 97 98 99 100 101 102 103 104 105
▲</pre>
▲=={{header|ABAP}}==
▲ REPORT zmbr_test.
▲ PARAMETERS: p_row TYPE i.
▲ START-OF-SELECTION.
▲ DATA(lv_column) = 0.
▲ DATA(lv_number) = 0.
▲ DO p_row TIMES.
▲ lv_column += 1.
▲ DO lv_column TIMES.
▲ lv_number += 1.
▲ WRITE: lv_number.
▲ ENDDO.
▲ WRITE:/ space.
▲ ENDDO.
▲{{out}}
▲<pre>
▲ 1
▲ 2 3
▲ 4 5 6
▲ 7 8 9 10
▲ 11 12 13 14 15
▲</pre>
▲{{out}}
▲<pre>
▲ 1
▲ 2 3
▲ 4 5 6
▲ 7 8 9 10
▲ 11 12 13 14 15
▲ 16 17 18 19 20 21
▲ 22 23 24 25 26 27 28
▲ 29 30 31 32 33 34 35 36
▲ 37 38 39 40 41 42 43 44 45
▲ 46 47 48 49 50 51 52 53 54 55
</pre>
| |||