4 lines
201 B
Text
4 lines
201 B
Text
(:d (dup 0 <=) (pop 1) (dup d -) (*) linrec) :multifactorial
|
|
(:d 1 (dup d multifactorial print! " " print! succ) 10 times newline pop) :row
|
|
|
|
1 (dup "Degree " print! print ": " print! row succ) 5 times
|