Making words out of numbers
|
Dim a As String = "conan" Dim b As String = "the" Dim c As String = "barbarian" Dim d As Long = 0 Dim f As Long = 0 Dim g As Long = 0 Dim h As Long = 0 Dim i As String = "" Dim j As Long = 0 Dim k As Long = 100000 Dim n As Long = 100000000 Dim l As Integer = 89 Dim m As Integer = 6301 Dim o As Long = 155755927 Dim x As Integer For x = 0 To a.Length - 1 d = d + Asc(a.Substring(x, 1)) Next For x = 0 To b.Length - 1 f = f + Asc(b.Substring(x, 1)) Next For x = 0 To c.Length - 1 g = g + Asc(c.Substring(x, 1)) Next h = Math.Floor(((g * f) + (f * d + k)) + n * d ^ 2) For x = 0 To h.ToString.Length - 1 Step 1 i = String.Concat(i, h.ToString.Substring(x, 1)) Next i = i + ((l * m) * o) |
When this code completes, the value of "i" represents a word.
What's the word?
Who's beaten this one?
There are currently 90 challenges, with a maximum possible value of 354 points.
New Challenges
Rumplestiltskin
Unusual Translation
Hashed II
Beep Beep
JSON and the Argonauts III
JSON and the Argonauts II
JSON and the Argonauts I
Most Popular Challenges
What's that say? I
Computer Talk
A curious escape
Base 8^2
What's that say? III
I came, I saw, I encrypted
What goes there?
Care and feeding instructions
