Post Reply 
(48G) 48G, 49G & 50G: Multiplicative Inverse of a Bint Modulo 2^20
07-19-2015, 06:22 PM (This post was last modified: 06-15-2017 01:51 PM by Gene.)
Post: #1
(48G) 48G, 49G & 50G: Multiplicative Inverse of a Bint Modulo 2^20
The title says it.

If you have a faster algorithm please say.

Code:

::
  CK1&Dispatch
  # 1F
  ::
    BINT1
    BINT19
    ZERO_DO
    OVER
    #*
    SWAPDUP
    #*
    SWAPLOOP
    SWAPDROP
  ;
;
Find all posts by this user
Quote this message in a reply
07-22-2015, 05:03 AM
Post: #2
RE: HP 48G, 49G & 50G: Multiplicative Inverse of a Bint Modulo 2^20
Carmichael

https://en.wikipedia.org/wiki/Carmichael_function

says we can simplify the algorithm to:

Code:

::
  CK1&Dispatch
  # 1F
  ::
    BINT1
    BINT18
    ZERO_DO
    OVER
    #*
    SWAPDUP
    #*
    SWAPLOOP
    SWAPDROP
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 




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