Handbook
Glossary
vocab-noise-factor ( vocab -- factor )
Vocabulary
reports.noise
Inputs
vocab
an
object
Outputs
factor
an
object
Definition
USING:
kernel
math
math.order
sequences
vocabs
;
IN:
reports.noise
:
vocab-noise-factor
( vocab -- factor )
vocab-words
flatten-generics
[
word-noise-factor
dup
20
<
[
drop
0
]
when
]
map
[
0
]
[
[
[
sum
]
[
length
5
max
]
bi
/i
]
[
maximum
]
bi
+
]
if-empty
;