How do I easily model first-in-first-out (FIFO) financial transactions
in Perl? Example:
% I buy 100 shares of XYZ for $8/share on Day 1, another 100 shares
for $9/share on Day 2, and another 100 shares for $10/share on Day 3.
% On Day 4, I sell 150 shares for $11/share. I calculate my profit
assuming FIFO: I sold the 100 shares I bought on Day 1 (profit:
$3/share times 100 shares or $300), and I sold 50 of the shares I
bought on Day 2 (profit: $2/share times 50 shares or $100), for a
total profit of $400.
I can think of some ugly ways to model this in Perl, but no good/clean
ways. Any thoughts?
I realize there are other ways to calculate profit (eg, sell price vs
average price), but the problem I'm solving requires FIFO
calculations.
--
We're just a Bunch Of Regular Guys, a collective group that's trying
to understand and assimilate technology. We feel that resistance to
new ideas and technology is unwise and ultimately futile.
|