Handbook
Glossary
quot-noise-factor ( quot -- n )
Vocabulary
reports.noise
Inputs
quot
an
object
Outputs
n
an
object
Definition
USING:
combinators
kernel
math
math.order
sequences
;
IN:
reports.noise
:
quot-noise-factor
( quot -- n )
noise
first2
{
{
[
over
4
<=
]
[
[
drop
0
]
dip
]
}
{
[
over
15
>=
]
[
[
2
*
]
dip
]
}
[
]
}
cond
{
{
[
dup
10
<=
]
[
[
2
/
]
dip
]
}
{
[
dup
5
<=
]
[
[
3
/
]
dip
]
}
{
[
dup
25
>=
]
[
[
2
*
]
dip
20
max
]
}
{
[
dup
20
>=
]
[
[
1+2/3
*
]
dip
]
}
{
[
dup
15
>=
]
[
[
1+1/2
*
]
dip
]
}
[
]
}
cond
noise-factor
;