Handbook
Glossary
leave ( game -- )
Vocabulary
hamurabi.private
Inputs
game
an
object
Outputs
None
Definition
USING:
combinators
kernel
math
;
IN:
hamurabi.private
:
leave
( game -- )
dup
[
#percent-died
]
[
#acres-per-person
]
bi
{
{
[
2dup
[
33
>
]
[
7
<
]
bi*
or
]
[
leave-fink
]
}
{
[
2dup
[
10
>
]
[
9
<
]
bi*
or
]
[
leave-nero
]
}
{
[
2dup
[
3
>
]
[
10
<
]
bi*
or
]
[
leave-not-too-bad
]
}
[
leave-best
]
}
cond
3drop
;