@MasterGy
When checking over your code, I could not figure out this part:
Shouldn't add = 12 (=count) for a perfect match with your ans() from binary conversion of numbers 0 to 4095.
If add + 1 = 12 you are allowing near misses which gets you extra credit at RC but you really want to see and mark the solution.
Also how you handled statement 4 and 8 is very different than mine and I don't even know or want to try equivalent of 2 And's between 3 ans().
' 4. If statement 5 is true, then statements 6 and 7 are both true.
When checking over your code, I could not figure out this part:
Code: (Select All)
For t2 = 1 To 12
add = add + Abs(ans(t2) = quest(t2))
count = count + 1
Next t2
If add + 1 = count Then '??? <<< add = count for perfect match with ans() to 12 statements
Print "find: ";:
For t3 = 1 To 12 Step 1
If ans(t3) Then Print t3;
Next t3
Print
End IfIf add + 1 = 12 you are allowing near misses which gets you extra credit at RC but you really want to see and mark the solution.
Also how you handled statement 4 and 8 is very different than mine and I don't even know or want to try equivalent of 2 And's between 3 ans().
' 4. If statement 5 is true, then statements 6 and 7 are both true.
Code: (Select All)
Case 4: ans = ans(5) And ans(6) And ans(7)
b = b + ...