6 lines
83 B
Forth
6 lines
83 B
Forth
|
: triangle ( n -- )
|
||
|
|
1+ 1 do
|
||
|
|
cr i 0 do [char] * emit loop
|
||
|
|
loop ;
|
||
|
|
5 triangle
|