(50g) Fast Repunit Programme - Printable Version

(50g) Fast Repunit Programme - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (50g) Fast Repunit Programme (/thread-8618.html)

(50g) Fast Repunit Programme - Gerald H - 07-03-2017 07:26 AM

For integer input N this programme returns the Nth repunit:

Code:

::

  CK1&Dispatch

  BINT1

  ::

    COERCE

    BINT1

    #MAX

    CODE 00058 8F146608FB9760D681AF09C685A8F08B5081AF11311314C161CC8AC5F8F2D7601C4CF81AF10​141142164808C

    FPTR2 ^S>Z

  ;

;

RE: (50g) Fast Repunit Programme - DavidM - 07-04-2017 03:14 PM

Very nice, Gerald!