improve cost table

1 files changed, 10 insertions, 0 deletions

diff --git a/Cost.hs b/Cost.hs
index 5aa349c..968cd31 100644
--- a/Cost.hs
+++ b/Cost.hs
@@ -102,3 +102,13 @@ costOverTime (Dollars currcost) thisyear =
 		let monthdelta = (fromIntegral ((y * 12) - (thisyear * 12))) :: Double
 		    cost = floor $ fromIntegral currcost / 2 ** (monthdelta / 18)
 		in (Dollars cost, y)
+
+costOverTimeTable :: Dollars -> Year -> [String]
+costOverTimeTable cost thisyear = go [] thisyear $ costOverTime cost thisyear
+  where
+	go t _ [] = reverse t
+	go t yprev ((c, y):ys) =
+		let s = "  " ++ show y ++ ":\t" ++ show c
+		in if yprev < y - 1
+			then go (s:"  ...":t) y ys
+			else go (s:t) y ys