(Chris + Zaux ) / Wiz = IXX.RZAZ
Here's a unique puzzle.
I have never seen one of these with a divide.
(Chris + Zaux) / Wiz = IXX.RZAZ
Each letter in the equation above represents a
different digit. Can you crack the code?
Add the first two (Chris + Zaux)
Then divide by the third. Wiz
The result is rounded to 4 decimals.
Note the decimal between IXX and RZAZ
I have never seen one of these with a divide.
(Chris + Zaux) / Wiz = IXX.RZAZ
Each letter in the equation above represents a
different digit. Can you crack the code?
Add the first two (Chris + Zaux)
Then divide by the third. Wiz
The result is rounded to 4 decimals.
Note the decimal between IXX and RZAZ
posted by Ragknot at
12:48 AM
11 Comments:
does A and a in RZAZ and Zaux have the same number? same for i in Chris and IXX
....gosh... soo many variables.. c,h,r,i,s,z,a,u,x,w,z,x. maybe 2 more :O
ok, my older comment is stupid, and also, i put z an x twice by mistake, disregard it.
Yes, Ignore the Case.
The I in Chris, is the same digit as the I in Wiz and in Ixx.
There are 3 Z's and 3 X's
Ten variables for ten digits, Zero thru nine.
Four Z's
c=4, h=2, r=0, i=1, s=7, z=6, a=9, u=8, x=5, w=3
(42017+6985)/316=155.0696...
another solution (the last, I think):
c=9, h=8, r=6, i=2, s=4, z=7, a=1, u=3, x=0, w=5
(98624+7130)/527=200,6717...
nice, i could not get it... in the end i wrote a computer program, but the number of possibilities were so many that i had to stop it manually at some 800,000th loop, cuz my comp was overheating!!!
hummm... i wrote a program too, but i'm not proud of it... :P
Answers
Key =ChrisZauxW
MyS =4201769853
Chris = 42017
Zaux = 6985
Wiz = 316
ixx = 155.0696
Number of loops=: 1169712
Time= 11.9375 Seconds
-------------------------------
Key =ChrisZauxW
MyS =9862471305
Chris = 98624
Zaux = 7130
Wiz = 527
ixx = 200.6717
Number of loops=: 3257745
Time= 33.23438 Seconds
'sheet12
Function test12(c, h, r, i, s, z, a, u, x, w)
chris = Val(c & h & r & i & s)
Zaux = Val(z & a & u & x)
Wiz = Val(w & i & z)
ixx = Val(i & x & x & "." & r & z & a & z) 'ixx.rzaz
If Round(((chris + Zaux) / Wiz), 4) = ixx Then
test12 = True
Debug.Print
Debug.Print "Key =ChrisZauxW"
Debug.Print "MyS ="; mys
Debug.Print "Chris = "; chris
Debug.Print "Zaux = "; Zaux
Debug.Print "Wiz = "; Wiz
Debug.Print "ixx = "; ixx
End If
End Function
Sub bafflingNumbersMain()
'The variables in this sub should not change
'except for maybe A=1 to 9 might be A=0 to 9
'if A can be zero
Dim a, b, c, D, E, f, G, h, i, j As Integer
Dim s As String
Dim Zz As Long
'For sheetno = 1 To 5
sheetno = 12
Zz = 0
time1 = Timer
Debug.Print "Beginning Sheet Number:"; sheetno
'if A can't be zero, start at 1
1 For a = 1 To 9
s = a
Debug.Print
Debug.Print a;
2 For b = 0 To 9
s = Left(s, 1): If InStr(1, s, b) Then GoTo NXB
s = s & b
Debug.Print ".";
3 For c = 0 To 9
s = Left(s, 2): If InStr(1, s, c) Then GoTo NXC
s = s & c
4 For D = 0 To 9
s = Left(s, 3): If InStr(1, s, D) Then GoTo NXD
s = s & D
5 For E = 0 To 9
s = Left(s, 4): If InStr(1, s, E) Then GoTo NXE
s = s & E
6 For f = 0 To 9
s = Left(s, 5): If InStr(1, s, f) Then GoTo NXF
s = s & f
7 For G = 0 To 9
s = Left(s, 6): If InStr(1, s, G) Then GoTo NXG
s = s & G
8 For h = 0 To 9
s = Left(s, 7): If InStr(1, s, h) Then GoTo NXH
s = s & h
9 For i = 0 To 9
s = Left(s, 8): If InStr(1, s, i) Then GoTo NXI
s = s & i
10 j = 45 - a - b - c - D - E - f - G - h - i
s = s & j
mys = s
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Select Case sheetno
Case 1: gotit = bafflingnumbers(a, b, c, D, E, f, G, h, i, j)
Case 2: gotit = palin(a, b, c, D, E, f, G, h, i, j)
Case 3: gotit = solvethis(a, b, c, D, E, f, G, h, i, j)
Case 4: gotit = NumberSquareMystery(a, b, c, D, E, f, G, h, i, j)
Case 5: gotit = TimSoleAmount(a, b, c, D, E, f, G, h, i, j)
Case 6: gotit = TOMsolve(a, b, c, D, E, f, G, h, i, j)
Case 8: gotit = chrissolve(a, b, c, D, E, f, G, h, i, j)
Case 9: gotit = TestOneTwo(a, b, c, D, E, f, G, h, i, j)
Case 10: gotit = LogicTest(a, b, c, D, E, f, G, h, i, j)
Case 12: gotit = test12(a, b, c, D, E, f, G, h, i, j)
End Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Zz = Zz + 1: 'If Zz Mod 10000 = 0 Then Debug.Print Zz;
If gotit Then
time2 = Timer
Debug.Print "Done Sheet number "; sheetno; " Number of loops=:"; Zz; "Time= "; time2 - time1; " Seconds"
Debug.Print "-------------------------------"
End If
NXI: Next i
NXH: Next h
NXG: Next G
NXF: Next f
NXE: Next E
NXD: Next D
NXC: Next c
NXB: Next b
NXA: Next a
ENNd:
time2 = Timer
Debug.Print
Debug.Print "Done Sheet number "; sheetno; " Number of loops=:"; Zz; "Time= "; time2 - time1; " Seconds"
Debug.Print "-------------------------------"
'Next sheetno
Debug.Print "---------Finished---------------"
End Sub
Post a Comment
Links to this post:
Create a Link
<< Home