5 lines
158 B
Forth
5 lines
158 B
Forth
: multifact(n, deg) 1 while( n 0 > ) [ n * n deg - ->n ] ;
|
|
|
|
: printMulti
|
|
| i |
|
|
5 loop: i [ System.Out i << " : " << 10 seq map(#[ i multifact]) << cr ] ;
|