is there any problem with this messed up thing?
calccrypto 13 Apr 2009 19:44
can anyone tell me if there are any memory leaks/errors/etc. here (everything is defined, maybe not here, but in other parts of the program)? i cant seem to find my mistake
when
∟T1=2,3,1,1
and
∟T2=63,2F,AF,A2
the answer at [C](1,1) should be "BA", but its not
[[2,3,1,1][1,2,3,1][1,1,2,3][3,1,1,2→[A]
[[∟STATE(1),∟STATE(2),∟STATE(3),∟STATE(4)][∟STATE(5),∟STATE(6),∟STATE(7),∟STATE(8)][∟STATE(9),∟STATE(10),∟STATE(11),∟STATE(12)][∟STATE(13),∟STATE(14),∟STATE(15),∟STATE(16)→[B]
" →Str1:{4,4→dim([C]
For(X,1,4
For(Y,1,4
{[A](X,1),[A](X,2),[A](X,3),[A](X,4)→T1
{[B](1,Y),[B](2,Y),[B](3,Y),[B](4,Y)→T2
" →Str3:" →Str4:" →Str5
For(Z,1,4
∟T1(Z→A:∟T2(Z→B
" →Str2
If A=3
Then
B→C
For(Q,7,0,-1
If C≥2^Q
Then
Str2+"1→Str2
C-2^Q→C
Else
Str2+"0→Str2
End
End
sub(Str2,2,8→Str2
"0"+Str2→Str3
Str2+"0→Str4
" →Str2
For(Q,1,9
expr(sub(Str3,Q,1)) xor expr(sub(Str4,Q,1→A
Str2+sub("01",A+1,1→Str2
End
sub(Str2,2,9→Str2
" →Str3:DelVar Str4
If sub(Str2,1,1)="1
Then
For(Q,1,9
expr(sub("100011011",Q,1)) xor expr(sub(Str2,Q,1→A
Str3+sub("01",A+1,1→Str3
End
Else
" "+sub(Str2,2,8→Str2
End
Else
AB→C
For(Q,7,0,-1
If C≥2^Q
Then
Str2+"1→Str2
C-2^Q→C
Else
Str2+"0→Str2
End
End
End
Str1+sub(Str2,2,8→Str1
End:Z
sub(Str1,2,32→Str1
For(Q,1,8
expr(sub(Str1,Q,1)) xor expr(sub(Str1,Q+8,1)) xor expr(sub(Str1,Q+16,1)) xor expr(sub(Str1,Q+24,1))→A
Str2+sub("01",A+1,1→Str2
End
sub(Str2,2,8→Str1
0→A
For(Z,7,0,-1
If sub(Str1,8-Z,1)="1
A+2^Z→A
End
A→[C](X,Y
Pause [C]
End:"Y
End:"X
Visit Calccrypto for info on crypto
KC2ZOF