31 lines
609 B
Text
31 lines
609 B
Text
declare
|
|
fun {Select Prompt Items}
|
|
case Items of nil then ""
|
|
else
|
|
for
|
|
Item in Items
|
|
Index in 1..{Length Items}
|
|
do
|
|
{System.showInfo Index#") "#Item}
|
|
end
|
|
{System.printInfo Prompt}
|
|
try
|
|
{Nth Items {ReadInt}}
|
|
catch _ then
|
|
{Select Prompt Items}
|
|
end
|
|
end
|
|
end
|
|
|
|
fun {ReadInt}
|
|
class TextFile from Open.file Open.text end
|
|
StdIo = {New TextFile init(name:stdin)}
|
|
in
|
|
{String.toInt {StdIo getS($)}}
|
|
end
|
|
|
|
Item = {Select "Which is from the three pigs: "
|
|
["fee fie" "huff and puff" "mirror mirror" "tick tock"]}
|
|
|
|
in
|
|
{System.showInfo "You chose: "#Item}
|