RosettaCodeData/Task/Menu/Prolog/menu-2.pro

21 lines
385 B
Prolog

?- rosetta_menu(["fee fie", "huff and puff", "mirror mirror", "tick tock"], String).
1) fee fie
2) huff and puff
3) mirror mirror
4) tick tock
Select a menu item by number:a.
1) fee fie
2) huff and puff
3) mirror mirror
4) tick tock
Select a menu item by number:10.
1) fee fie
2) huff and puff
3) mirror mirror
4) tick tock
Select a menu item by number:3.
String = "mirror mirror".