Handbook
Glossary
qs-main ( -- )
Vocabulary
rosetta-code.hofstadter-q
Inputs
None
Outputs
None
Definition
USING:
kernel
math
prettyprint
sequences
;
IN:
rosetta-code.hofstadter-q
:
qs-main
( -- )
{
1 1
}
1000
[
next
]
times
dup
10
head
.
999
swap
nth
.
;