challenge-170/conor-hoekstra/apl/ch-1.apl


1
2
3
4
5
6
7
8
9

    ⍝ Solution using dfns.pco
    )load dfns
    ×\1, pco ⍳9
1 2 6 30 210 2310 30030 510510 9699690 223092870

    ⍝ Solution not using dfns.pco
    isPrime ← 2≥(≢∘∪⍳∨⊢)
    ×\(isPrime¨⊢⍤/⊢) ⍳25
1 2 6 30 210 2310 30030 510510 9699690 223092870