15 lines
302 B
Text
15 lines
302 B
Text
pascal[rows] :=
|
|
{
|
|
widest = length[toString[binomial[rows-1, (rows-1) div 2]]]
|
|
|
|
for row = 0 to rows-1
|
|
{
|
|
line = repeat[" ", round[(rows-row)* (widest+1)/2]]
|
|
for col = 0 to row
|
|
line = line + padRight[binomial[row, col], widest+1, " "]
|
|
|
|
println[line]
|
|
}
|
|
}
|
|
|
|
pascal[10]
|