Pascal's triangle: Difference between revisions
Added uBasic/4tH example
(→{{header|Perl}}: Clean up old code, note behavior and formatting, add binomial version, comment and adjust the) |
(Added uBasic/4tH example) |
||
Line 2,828:
pascal(5)</lang>
=={{header|uBasic/4tH}}==
<lang>Input "Number Of Rows: "; N
@(1) = 1
Print Tab((N+1)*3);"1"
For R = 2 To N
Print Tab((N-R)*3+1);
For I = R To 1 Step -1
@(I) = @(I) + @(I-1)
Print Using "______";@(i);
Next
Next
Print
End</lang>
Output:
<pre>Number Of Rows: 10
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1
0 OK, 0:380
</pre>
=={{header|Ursala}}==
Zero maps to the empty list. Negatives are inexpressible.
| |||