Add command to get the prank digest earlier

diff --git a/src/common.php b/src/common.php
index f0cf7c8..9abcc2b 100644 (file)
--- a/src/common.php
+++ b/src/common.php
@@ -17,6 +17,13 @@ function identity($x) {
     return $x;
 }
 
+const scoresFileContentsToScoresList = 'scoresFileContentsToScoresList';
+function scoresFileContentsToScoresList($who) {
+    return function($lines) use ($who) {
+        return filter(notEmpty)(foldMap(∘(map(filterk(≠('NODATA'))), unflatten, insert($who)(3), delemit(':')))(lines($lines)));
+    };
+}
+
 const notEmpty = 'notEmpty';
 function notEmpty($value) : bool {
     return !empty($value);

diff --git a/src/gnb.php b/src/gnb.php
index 01d4c6a..3b2bc74 100644 (file)
--- a/src/gnb.php
+++ b/src/gnb.php
@@ -13,12 +13,92 @@ if(getTelegram()->getWebHookUpdates()->get('message') && !canChatWith(getTelegra
     exit(0);
 }
 
-const scoresFileContentsToScoresList = 'scoresFileContentsToScoresList';
-function scoresFileContentsToScoresList($who) {
-    return function($lines) use ($who) {
-        return filter(notEmpty)(foldMap(∘(map(filterk(≠('NODATA'))), unflatten, insert($who)(3), delemit(':')))(lines($lines)));
-    };
-}
+getTelegram()->addCommand(
+    new class extends Command {
+        protected $name = 'digest';
+        protected $description = 'Get the prank digest for today';
+
+        public function handle($arguments) {
+            $diffEmojiMap = [
+                'Beginner' => '🗑',
+                'Easy' => '📗',
+                'Medium' => '📙',
+                'Hard' => '📕',
+                'Challenge' => '📘',
+                'Edit' => '📓'
+            ];
+
+            $songHashMap = unserialize(file_get_contents(__DIR__ . '/hashmap.txt'));
+            $scoreFiles = foldMap(∘(☐(lhead)(null), 'file_get_contents'))(glob(PATH_TO_GROOVENET . '/*.scores.txt'));
+            $faveFiles = foldMap(☐(null)(∘(lines, 'trim', 'file_get_contents')))(glob(PATH_TO_GROOVENET . '/*.favourites.txt'));
+            $names = map(☐(produceValue(0))(null))(array_keys($faveFiles));
+            $hashes = map(map(☐(produceValue(0))(null)))(array_values($faveFiles));
+
+            $oldFaveMap = unserialize(file_get_contents(__DIR__ . '/faves.txt'));
+            $faveMap = ∘(map(∘(flip(concat)("'s Faves"), 'ucwords', field(0), delemit('.'), 'basename')), foldMap(☐(field(1))(field(0))), foldMap(id))(zzipWith(∘(map, aaray_merge))($names)($hashes));
+            $oldScoreTesseract = unserialize(file_get_contents(__DIR__ . '/tesseract.txt'));
+            $scoreTesseract = map(map(map(maxKey)))(
+                ∘(foldMap(id), zzipWith(pa)(map(ltail)($scoreFiles)), map(∘(scoresFileContentsToScoresList, lhead)))($scoreFiles)
+            );
+
+            $diff = array_diff_assoc_recursive($scoreTesseract, $oldScoreTesseract);
+            $asdf = prefixKey('', $diff);
+            $pranks = [];
+
+            foreach ($asdf as $k => $v) {
+                $k = explode('.', $k);
+
+                if (!isset($oldScoreTesseract[$k[0]][$k[1]][$k[2]])) {
+                    continue;
+                }
+
+                $previous = $oldScoreTesseract[$k[0]][$k[1]][$k[2]];
+                $scorer = array_keys($previous)[0];
+                $score = $previous[$scorer];
+
+                if ($scorer !== $k[3]) {
+                    $pranks[] = glue('')([
+                        "——————————————\n",
+                        $diffEmojiMap[$k[1]],
+                        $k[2] == 'dance-double' ? $diffEmojiMap[$k[1]] : '',
+                        ' ' . explode('/', $songHashMap[$k[0]])[1],
+                        "\n",
+                        $k[3] . ": " . truncate($v*100, 2) . "%",
+                        " (was $scorer: " . truncate($score*100, 2) . "%)"
+                    ]);
+                }
+            }
+
+            if ($pranks) {
+                $numE = count($pranks);
+                $pranks[$numE- 1] .= "\n——————————————";
+            }
+
+            $faveDiff = array_diff_assoc($faveMap, $oldFaveMap);
+            $newFaves = zzipWith(∘(concat, flip(concat)(" in "), field(1), delemit('/'), ∘(flip(field))($songHashMap)))(array_keys($faveDiff))(array_values($faveDiff));
+
+            if ($pranks || $newFaves) {
+                getTelegram()->sendMessage(
+                    [
+                        'chat_id' => CHAT_ID,
+                        'parse_mode' => 'Markdown',
+                        'text' => unlines(
+                            array_merge(
+                                ['Welcome to the GrooveNet digest', ""],
+                                $pranks ? ["Latest pranks:", '```'] : [],
+                                $pranks,
+                                $pranks ? ['```'] : [],
+                                $newFaves ? ['Latest faves:', '```'] : [],
+                                $newFaves,
+                                $newFaves ? ['```'] : []
+                            )
+                        )
+                    ]
+                );
+            }
+        }
+    }
+);
 
 getTelegram()->addCommand(
     new class extends Command {

diff --git a/src/prankdigest.php b/src/prankdigest.php
index 96867f6..d859b69 100644 (file)
--- a/src/prankdigest.php
+++ b/src/prankdigest.php
@@ -2,13 +2,6 @@
 
 require_once('common.php');
 
-const scoresFileContentsToScoresList = 'scoresFileContentsToScoresList';
-function scoresFileContentsToScoresList($who) {
-    return function($lines) use ($who) {
-        return filter(notEmpty)(foldMap(∘(map(filterk(≠('NODATA'))), unflatten, insert($who)(3), delemit(':')))(lines($lines)));
-    };
-}
-
 $diffEmojiMap = [
     'Beginner' => '🗑',
     'Easy' => '📗',
@@ -65,7 +58,7 @@ if ($pranks) {
 }
 
 $faveDiff = array_diff_assoc($faveMap, $oldFaveMap);
-$newFaves = zzipWith(∘(concat, flip(concat)(" in "), field(1),delemit('/'), ∘(flip(field))($songHashMap)))(array_keys($faveDiff))(array_values($faveDiff));
+$newFaves = zzipWith(∘(concat, flip(concat)(" in "), field(1), delemit('/'), ∘(flip(field))($songHashMap)))(array_keys($faveDiff))(array_values($faveDiff));
 
 if ($pranks || $newFaves) {
     getTelegram()->sendMessage(