22 lines
454 B
Text
22 lines
454 B
Text
[ over size -
|
|
space swap of
|
|
swap join ] is justify ( $ n --> )
|
|
|
|
[ witheach
|
|
[ number$
|
|
5 justify echo$ ]
|
|
cr ] is echoline ( [ --> )
|
|
|
|
[ [] 0 rot 0 join
|
|
witheach
|
|
[ tuck +
|
|
rot join swap ]
|
|
drop ] is nextline ( [ --> [ )
|
|
|
|
[ ' [ 1 ] swap
|
|
1 - times
|
|
[ dup echoline
|
|
nextline ]
|
|
echoline ] is pascal ( n --> )
|
|
|
|
16 pascal
|