Vraag : Het oplossen van een raadsel geocache

Ik probeer om een raadsel op te lossen geocache. Heeft iedereen om het even welk idee waar te te beginnen?

Here is de verbinding met page.

http://www.geocaching.com/ seek/cache_details.aspx? guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The Snelle Bruine Fox

N 44° 20.403 W 074° 21.042 dingen

First eerst, wordt het geheime voorgeheugen niet gevestigd bij de bepaalde coördinaten; zij voorzien u eenvoudig van een aardige plaats om het hieronder cryptogram te parkeren en te denken en uit te werken. Het geheime voorgeheugen is tussen 0.25 mijlen en 6.50 mijlen vanaf de originele coördinaten. Ik telde 18 soorten bomen tussen mijn auto en geheim voorgeheugenplaats, zag 3 soorten vogels, 4 types van dierensporen, en ben zekere 97% dat ik een bobcat zag. Het goede geluk die dit geheim voorgeheugen vinden, het is in één of andere werkelijk mooie woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, 3-26-2
The is is het munitie-blik met handelspunten, een logboek, en een Wenken pencil.

Additional (codeer) zou

You dit met een printout van de lijst en een potlood moeten kunnen berekenen die

Antwoord : Het oplossen van een raadsel geocache

Hier is één benadering, voortvloeit op sheet2.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Sub x ()

Schemerige oDic als Voorwerp, sNames () als Koord, vInput (), I zoals lang, n zoals lang

vInput = Sheet1.Range („A1“, Sheet1.Range („C“ & Rows.Count). Eind (xlUp)). Waarde
ReDim sNames (1 aan UBound (vInput, 1), 1 tot 3)
Vastgestelde oDic = CreateObject („Scripting.Dictionary“)

Met oDic
    Voor I = 1 aan UBound (vInput, 1)
        Als niet. Bestaat (vInput (I, 1)) Dan
            n = n + 1
            sNames (n, 1) = vInput (I, 1)
            sNames (n, 2) = vInput (I, 2) & „(“ & vInput (I, 3) & „)“
            sNames (n, 3) = vInput (I, 3)
            . Voeg vInput (I, 1), n toe
        ElseIf. Bestaat (vInput (I, 1)) Dan
            sNames (. Punt (vInput (I, 1)), 2) = sNames (. Punt (vInput (I, 1)), 2) & „,“ & vInput (I, 2) & „(“ & vInput (I, 3) & „)“
            sNames (. Punt (vInput (I, 1)), 3) = sNames (. Punt (vInput (I, 1)), 3) + vInput (I, 3)
        Eind als
    Volgende I
Eind met

Sheet2.Range („A1“). Resize (n, 3) = sNames

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us