Post Reply 
50g Mini-Challenge: Number of positive divisors of x!
09-30-2017, 02:26 PM
Post: #6
RE: 50g Mini-Challenge: Number of positive divisors of x!
I have a 50g SysRPL programme that does 100 in 1.4s & bestfit gives the input time relationship as

t=0.0020*N^1.5191

I would love to see a 50g version of Thomas' programme but I can't get my head around the 42S version.

Thomas, could you please explain your algorithm?

Code:
::
  CK1&Dispatch
  # FF
  ::
    PTR 2EF44
    {
      ROTDROPSWAP
      %1+
      FPTR2 ^R>Z
      FPTR2 ^QMul
    }
    1LAMBIND
    ::
      FPTR2 ^ZAbs
      FPTR2 ^DupQIsZero?
      caseSIZEERR
      FPTR2 ^DupZIsOne?
      ?SEMI
      FPTR2 ^MZSQFF
      #2/
      ZINT 1
      SWAP
      ZERO_DO
      1GETLAM
      COMPEVAL
      LOOP
    ;
    ABND
  ;
;
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 02:26 PM



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