Handbook
Glossary
inc-SR ( n -- )
Vocabulary
rosetta-code.hofstadter-ffs
Inputs
n
an
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
;