11 lines
296 B
Plaintext
11 lines
296 B
Plaintext
@let {
|
|
facd &[d n]?{<= n d n @prod@range[n 1 @-d]}
|
|
; tacit implementation
|
|
facdt ^(!?(/^> .1 ^(@prod @range ~1jdtShj &^!(@- @id))) @,)
|
|
; recursive
|
|
facdrec &[n d] ?{<= n d n *n !!facdrec -n d d}
|
|
; output
|
|
l @to 10
|
|
~@each @to 5 &n !console.log "Degree {n}: {@join @s !*\facd n l}"
|
|
}
|