16 lines
478 B
Plaintext
16 lines
478 B
Plaintext
# -*- coding: utf-8 -*- #
|
|
MODE DIETITEM = STRUCT(
|
|
STRING food, annual quantity, units, REAL cost
|
|
);
|
|
|
|
# Stigler's 1939 Diet ... #
|
|
FORMAT diet item fmt = $g": "g" "g" = $"zd.dd$;
|
|
[]DIETITEM stigler diet = (
|
|
("Cabbage", "111","lb.", 4.11),
|
|
("Dried Navy Beans", "285","lb.", 16.80),
|
|
("Evaporated Milk", "57","cans", 3.84),
|
|
("Spinach", "23","lb.", 1.85),
|
|
("Wheat Flour", "370","lb.", 13.33),
|
|
("Total Annual Cost", "","", 39.93)
|
|
)
|