Handbook
Glossary
smiley-image-path ( won? lost? clicking? -- image-path )
Vocabulary
minesweeper
Inputs
won?
an
object
lost?
an
object
clicking?
an
object
Outputs
image-path
an
object
Definition
USING:
combinators
;
IN:
minesweeper
::
smiley-image-path
( won? lost? clicking? -- image-path )
{
{
[
lost?
]
[
"vocab:minesweeper/_resources/smileylost.gif"
]
}
{
[
won?
]
[
"vocab:minesweeper/_resources/smileywon.gif"
]
}
{
[
clicking?
]
[
"vocab:minesweeper/_resources/smileyuhoh.gif"
]
}
[
"vocab:minesweeper/_resources/smiley.gif"
]
}
cond
;