Factor Documentation
|
Home
|
Glossary
|
Search
factorcode.org
(runs) ( runs n seq -- runs n )
Vocabulary
tools.completion
Definition
USING:
kernel
math
sequences
;
IN:
tools.completion
:
(runs)
( runs n seq -- runs n )
[
[
2dup
number=
[
drop
]
[
nip
V{
}
clone
pick
push
]
if
1
+
]
keep
pick
last
push
]
each
;