add bct interpreter

2023-10-03 18:45:55 +08:00 · 2023-10-03 18:45:55 +08:00 · 23c6723a57
parent 5131b34357
commit 23c6723a57
1 changed files with 14 additions and 0 deletions
--- a/bct.k
+++ 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);