ffr ( n -- R(n) )


Vocabulary
rosetta-code.hofstadter-ffs

Inputs
nan object


Outputs
R(n)an object


Definition
USING: kernel math namespaces sequences ;

IN: rosetta-code.hofstadter-ffs

: ffr ( n -- R(n) ) dup R get length - inc-SR 1 - R get nth ;