Post Reply 
50g Mini-Challenge: Number of positive divisors of x!
09-30-2017, 09:31 PM (This post was last modified: 09-30-2017 09:34 PM by Gerald H.)
Post: #11
RE: 50g Mini-Challenge: Number of positive divisors of x!
The User programme below took

14.9141s

to process 320.

To question 1, ^RMULText etc is just habit, to q 2 I have surely less idea than you.

How great a speed improvement occurs is variable, loops do seem to go much faster in Sys.

Code:
« 1 SWAP 0
  WHILE NEXTPRIME
DUP2 ≥
  REPEAT DUP2 0
OVER 4 ROLL 4 ROLL
    WHILE DUP2
IQUOT DUP 0 >
    REPEAT 5 ROLL +
4 ROLLD PICK3 *
    END 4 DROPN 1 +
4 ROLL * UNROT
  END DROP2
»
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: 50g Mini-Challenge: Number of positive divisors of x! - Gerald H - 09-30-2017 09:31 PM



User(s) browsing this thread: 1 Guest(s)