From 32eea268559a1360cc00fcd5b180e74104e0c395 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 6 Apr 2024 19:45:26 +0200
Subject: Performance

---
 bruijn/Screen.bruijn | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'bruijn/Screen.bruijn')

diff --git a/bruijn/Screen.bruijn b/bruijn/Screen.bruijn
index f132c66..465df25 100644
--- a/bruijn/Screen.bruijn
+++ b/bruijn/Screen.bruijn
@@ -74,3 +74,7 @@ br! [[1 [[[[[0 4 3 2 5]]]]]]]
 map [&[[[[[0 (5 4) (5 3) (5 2) (5 1)]]]]]]
 
 :test (map invert empty) (build w w w w)
+
+qsplit map [w? 0 (build w w w w) (build b b b b)]
+
+:test (qsplit (build b w b w)) (build (build b b b b) (build w w w w) (build b b b b) (build w w w w))
-- 
cgit v1.2.3