From 23c6723a57db9d7d7a578b72cd3e08295f6b45f9 Mon Sep 17 00:00:00 2001
From: razetime <rraghu.11502@gmail.com>
Date: Tue, 3 Oct 2023 18:45:55 +0800
Subject: [PATCH] add bct interpreter

---
 bct.k | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 bct.k

diff --git a/bct.k b/bct.k
new file mode 100644
index 0000000..05b709e
--- /dev/null
+++ b/bct.k
@@ -0,0 +1,14 @@
+/ Bitwise Cyclic Tag (https://esolangs.org/wiki/Bitwise_Cyclic_Tag)
+/ 
+/ 00111
+/ 101
+i:0
+c:-1_(1:`)-"0"
+d:-1_(1:`)-"0"
+bct:{[d;c;i]
+ \(d;c[(#c)!i+!c[i]+1])
+ e:c@i
+ n:(#c)!i+1
+ ((~e)_d,(c[i]**d)#c@n;c;(#c)!n+e)}.
+cond: {[d;c;i] 0<(#d)&#c}.
+cond bct/(d;c;i);