HP Forums

Full Version: (50g) Fast Repunit Programme
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
For integer input N this programme returns the Nth repunit:

Code:

::
  CK1&Dispatch
  BINT1
  ::
    COERCE
    BINT1
    #MAX
    CODE 00058 8F146608FB9760D681AF09C685A8F08B5081AF11311314C161CC8AC5F8F2D7601C4CF81AF10​141142164808C
    FPTR2 ^S>Z
  ;
;
Very nice, Gerald!
Reference URL's