6 lines
147 B
Text
6 lines
147 B
Text
2 elements i j
|
|
: pascalTriangle
|
|
cr dup
|
|
[ dup !j 1 swap 1+ [ !i dup putn space @j @i - * @i 1+ / ] iter cr drop ] iter drop
|
|
;
|
|
13 pascalTriangle
|