From 768996a0c92dae7d6df9f0e8dca7dccffa986488 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 1 Sep 2019 00:27:39 +0200
Subject: Keep the oldest days so that they can move to other groups

---
 src/Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 0ab3259..0f66daa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -60,6 +60,8 @@ main = do
   opts <- execParser $ info (parseOptions <**> helper) fullDesc
   let groups = partitionDays (\n -> floor (base opts ^ (n - 1))) (days opts)
   case mode opts of
-    Just Keep -> putStrLn $ unwords . map show . concatMap (take 1) $ groups
-    Just Delete -> putStrLn $ unwords . map show . concatMap (drop 1) $ groups
-    Nothing -> mapM_ (hPutStrLn stderr . unwords . map show) groups
+    Just Keep ->
+      putStrLn $ unwords . map show . concatMap (take 1 . reverse) $ groups
+    Just Delete ->
+      putStrLn $ unwords . map show . concatMap (drop 1 . reverse) $ groups
+    Nothing -> mapM_ (hPutStrLn stderr . unwords . map show . reverse) groups
-- 
cgit v1.2.3