Handbook
Glossary
hailstone ( n -- seq )
Vocabulary
rosetta-code
.
hailstone-sequence
Inputs
n
an
object
Outputs
seq
an
object
Definition
USING:
kernel
math
sequences
vectors
;
IN:
rosetta-code.hailstone-sequence
:
hailstone
( n -- seq )
[
1vector
]
keep
[
dup
1
number=
]
[
dup
even?
[
2
/
]
[
3
*
1
+
]
if
2dup
swap
push
]
until
drop
;