|
/ 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);
|