Die Auswirkung der Inflation auf Lebensmittelpreise ermitteln 

Wie viel würden Lebensmittel heutzutage kosten, wenn ihre Preise im selben Inflationstempo wie die Preise anderer Güter angestiegen wären?

In[1]:=

X CostOfGroceries = { {"Granulated Sugar (10 lb)", Quantity[.89, DatedUnit["USDollars", 1962]]}, {"Vitamin D Milk (1 gal)", Quantity[1.04, DatedUnit["USDollars", 1962]]}, {"Ground Coffee (1 lb)", Quantity[.85, DatedUnit["USDollars", 1962]]}, {"Bacon (1 lb)", Quantity[.69, DatedUnit["USDollars", 1962]]}, {"Eggs (1 doz.)", Quantity[.32, DatedUnit["USDollars", 1962]]}, {"Fresh Ground Hamburger (1 lb)", Quantity[.4, DatedUnit["USDollars", 1962]]}, {"Fresh Baked Bread (1 loaf)", Quantity[.21, DatedUnit["USDollars", 1962]]} };

In[2]:=

X Grid[Prepend[ Replace[CostOfGroceries, {item_, cost_} :> {item, InflationAdjust[cost]}, 1], {"Item", "Price in today's $"}], Frame -> All]

Out[2]=