22 lines
1.5 KiB
Plaintext
22 lines
1.5 KiB
Plaintext
NB. tacit implementation of the recursive c function
|
|
NB. int multifact(int n,int deg){return n<=deg?n:n*multifact(n-deg,deg);}
|
|
|
|
multifact=: [`([ * - $: ])@.(<~)
|
|
(a:,<' degree'),multifact table >:i.10
|
|
┌─────────┬──────────────────────────────────────┐
|
|
│ │ degree │
|
|
├─────────┼──────────────────────────────────────┤
|
|
│multifact│ 1 2 3 4 5 6 7 8 9 10│
|
|
├─────────┼──────────────────────────────────────┤
|
|
│ 1 │ 1 1 1 1 1 1 1 1 1 1│
|
|
│ 2 │ 2 2 2 2 2 2 2 2 2 2│
|
|
│ 3 │ 6 3 3 3 3 3 3 3 3 3│
|
|
│ 4 │ 24 8 4 4 4 4 4 4 4 4│
|
|
│ 5 │ 120 15 10 5 5 5 5 5 5 5│
|
|
│ 6 │ 720 48 18 12 6 6 6 6 6 6│
|
|
│ 7 │ 5040 105 28 21 14 7 7 7 7 7│
|
|
│ 8 │ 40320 384 80 32 24 16 8 8 8 8│
|
|
│ 9 │ 362880 945 162 45 36 27 18 9 9 9│
|
|
│10 │3628800 3840 280 120 50 40 30 20 10 10│
|
|
└─────────┴──────────────────────────────────────┘
|