inc-SR ( n -- )


Vocabulary
rosetta-code.hofstadter-ffs

Inputs
nan object


Outputs
None

Definition
USING: kernel math namespaces ;

IN: rosetta-code.hofstadter-ffs

: inc-SR ( n -- )
dup 0 <=
[ drop ] [ [ S get R get ] dip [ next ] times R set S set ]
if ;