(48) (49) (50) Moebius transforms

[John Keith]

Updating the Moebius transform program with a new version which is 23 bytes larger but about 30% faster. The improvement comes from pre-calculating the Moebius Mu function of all divisors.

Code:


\<< DUP SIZE R\->I \-> n
  \<< n LSEQ Mu SWAP 1 n
    FOR k DUP2 k DIVIS SWAP OVER LPICK UNROT REV LPICK * LSUM UNROT
    NEXT DROP2 n \->LIST
  \>>
\>>