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 8F146608FB9760D681AF09C685A8F08B5081AF11311314C161CC8AC5F8F2D7601C4CF81AF10141142164808C
FPTR2 ^S>Z
;
;