(48G) 48G, 49G & 50G: Multiplicative Inverse of a Hex String Modulo 2^(Wordsize)

[Gerald H]

As expected, even inputs return zero.

Code:


::
  CK1&Dispatch
  BINT11
  ::
    HXS 00001 1
    WORDSIZE
    ONE_DO
    OVER
    bit*
    SWAPDUP
    bit*
    SWAPLOOP
    SWAPDROP
  ;
;

[Gerald H]

Carmichael

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

says we can simplify the algorithm to:

Code:


::
  CK1&Dispatch
  BINT11
  ::
    HXS 00001 1
    WORDSIZE
    #1-
    ONE_DO
    OVER
    bit*
    SWAPDUP
    bit*
    SWAPLOOP
    SWAPDROP
  ;
;