From 1cd8abd01189c3c31f924f18d7572df8a59b8cee Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Mon, 11 Jul 2022 12:21:25 +0200
Subject: [PATCH] rulegen:: tests:: view_actual_seq

---
 devmods/rulegen-tests.cpp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/devmods/rulegen-tests.cpp b/devmods/rulegen-tests.cpp
index 2a08adaf..46948f0f 100644
--- a/devmods/rulegen-tests.cpp
+++ b/devmods/rulegen-tests.cpp
@@ -505,6 +505,14 @@ void list_all_sequences(string tesname) {
   seq_stream->flush();
   }
 
+void view_actual_seq(int max) {
+  celllister cl(cwt.at, 1000, max, nullptr);
+  vector<int> dlist(1000, 0);
+  for(auto d: cl.dists) dlist[d]++;
+  while(dlist.back() == 0) dlist.pop_back();
+  println(hlog, "obtained dlist = ", dlist);
+  }
+
 void print_rules();
 
 string rule_name(int r) {
@@ -1487,6 +1495,11 @@ int testargs() {
     view_examine_branch = true;
     }
     
+  else if(argis("-act-seq")) {
+    start_game();
+    shift(); view_actual_seq(argi());
+    }
+
   else if(argis("-dseek")) {
     shift();
     int i = argi();