Pascal matrix generation: Difference between revisions
Added Easylang
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 1,820:
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Pascal_matrix_generation Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
func[][] init n .
for m = 1 to n
res[][] &= [ ]
for p = 1 to n
res[m][] &= 0
.
.
return res[][]
.
func[][] pasupper n .
res[][] = init 5
for p = 1 to n
res[1][p] = 1
.
for i = 2 to n
for j = 2 to i
res[j][i] = res[j][i - 1] + res[j - 1][i - 1]
.
.
return res[][]
.
func[][] paslower n .
res[][] = init 5
for p = 1 to n
res[p][1] = 1
.
for i = 2 to n
for j = 2 to i
res[i][j] = res[i - 1][j] + res[i - 1][j - 1]
.
.
return res[][]
.
func[][] passym n .
res[][] = init 5
for p = 1 to n
res[1][p] = 1
res[p][1] = 1
.
for i = 2 to n
for j = 2 to n
res[i][j] = res[i - 1][j] + res[i][j - 1]
.
.
return res[][]
.
print pasupper 5
print paslower 5
print passym 5
</syntaxhighlight>
{{out}}
<pre>
[
[ 1 1 1 1 1 ]
[ 0 1 2 3 4 ]
[ 0 0 1 3 6 ]
[ 0 0 0 1 4 ]
[ 0 0 0 0 1 ]
]
[
[ 1 0 0 0 0 ]
[ 1 1 0 0 0 ]
[ 1 2 1 0 0 ]
[ 1 3 3 1 0 ]
[ 1 4 6 4 1 ]
]
[
[ 1 1 1 1 1 ]
[ 1 2 3 4 5 ]
[ 1 3 6 10 15 ]
[ 1 4 10 20 35 ]
[ 1 5 15 35 70 ]
]
</pre>
=={{header|Elixir}}==
| |||