cafe menu MUF

lvar output  (output string)
lvar menu_prefix
lvar menu_array
lvar menu_count
lvar this_line_items
lvar which_item

: add_to_output
	output @ "{nl}" strcat swap strcat output !
;

: menu_line ( prefix list count )
	menu_count ! menu_array ! menu_prefix !

	{ }list this_line_items !

	begin
		( get a random index )
		srand abs menu_array @ array_count % which_item !

		menu_array @ which_item @ array_getitem this_line_items @ array_appenditem this_line_items !
		menu_array @ which_item @ array_delitem menu_array !

		menu_count --
		menu_count @ 0 =
	until

	menu_prefix @ this_line_items @ ", " array_join strcat add_to_output
;

: main
	"%D" systime timefmt setseed
	"--- Today's menu ---" output !

	" Pizzas: cheese, pepperoni, sausage, "
	{
	"meat lovers" "taco" "deep dish" "mushroom"
	"cucumber" "supreme" "sausage & pepperoni"
	"Hawaiian" "margherita" "cheese & garlic"
	"Chicago style" "vegetable" "Detroit style"
	"chicken" "macaroni & cheese" "great" "DiGiorno"
	}list 3
	menu_line

	"   Main: "
	{ "cheeseburgers, " "taco bowl, " "sub sandwiches, " "fried chicken, " }list
	srand 3 bitand array_getitem strcat
	{
	"tacos" "stuffed shells" "lasagna"
	"ravioli" "chicken nuggets" "chicken strips"
	"chicken noodle soup" "chicken parmesan"
	"chicken alfredo" "chicken and rice casserole"
	"chicken pot pie" "hotdogs" "popcorn chicken"
	"green bean casserole" "chili dogs"
	"beef stew" "chicken stew"
	"lotsa spaghetti" "ravioli"
	"beef chili" "cheese manicotti"
	"fried lasagna" "corn dogs"
	"fried fish" "fish sticks" "cheeseburger casserole"
	"pb&j sandwiches" "tater tot casserole"
	"grilled cheese sandwich" "pizza bagels"
	"chili cheese burgers" "pizza rolls"
	}list 5
	menu_line

	"  Sides: "
	{
	"french fries" "curly fries" "steak fries" "waffle fries" "toast"
	"potato wedges" "tater tots" "mashed potatoes" "fried pickles"
	"macaroni and cheese" "green beans" "carrots" "bread sticks"
	"cole slaw" "corn" "biscuits" "hush puppies" "onion rings"
	"garlic bread" "loaded potato skins" "apple sauce" "mozzarella sticks"
	"nachos" "pretzels" "chips" "pickles" "Doritos" "crackers"
	}list 5
	menu_line

	"  Fruit: apples, oranges, "
	{
	"peaches" "strawberries" "bananas"
	"blueberries" "raspberries" "cherries" "blackberries"
	"kiwifruit" "pineapple" "watermelon" "grapes" "avacados"
	"grapefruit" "mango" "papaya" "pears" "pomegranate"
	"starfruit" "tangerine"
	}list 6
	menu_line

	"Dessert: "
	{
	"frosted cookies" "chocolate chip cookies" "chocolate cake slice"
	"vanilla cake slice" "funnel cake" "jello" "pudding" "donuts" "gummi worms"
	"chocolate covered strawberries" "cherry pie" "pumpkin pie" "cheesecake"
	"muffin" "cupcake" "brownie" "gingerbread man" "pudding pops" "popsicles"
	"fudge popsicles" "Sonic popsicles" "snickerdoodle" "s'mores" "strawberry shortcake"
	"chocolate bar" "sprinkle donuts" "ice cream cake" "banana split" "cream pie"
	}list 3
	menu_line

	output @
;