Fråga : Lösning av en pusselgeocache

Pröva förmiddag I att lösa en pusselgeocache. Någon har någon idé var att starta?

Here är anknyta till för href=" http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt= " för page.

http://www.geocaching.com/ seek/cache_details.aspx? för ömt ställebruntet för guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The för Fox

N 44° 20.403 W 074° 21.042 saker

First först, cachen lokaliseras inte på de givna koordinaterna; de ger enkelt dig med ett trevligt förlägger för att parkera och funderare och för att fungera ut den nedanföra cryptogramen. Cachen är mellan 0.25 miles och 6.50 miles i väg från de original- koordinaterna. Jag räknade 18 sorter av trees mellan min bil och cacheläget, sågar 3 sorter av fåglar, 4 typer av djur spårar, och förmiddag 97% sure att jag sågar en bobcat. Bra lycka som finner denna cache, den är i någon egentligen härlig 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, cachebehållare för 3-26-2

The är är ammo-kunna fyllt med handelobjekt, en logbook, och en pencil.

Additional antyder (koda),

You bör vara kompetent att figurera ut detta med en utskrift av lista och en rita " klar "

Svar : Lösning av en pusselgeocache

Är här en att närma sig, resultat på 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:

Underx ()

Dunkelt oDic som anmärker, sNames () som stränger, vInput (), I som Long, n som Long

vInput = Sheet1.Range (”A1”, Sheet1.Range (”C” & Rows.Count). Avsluta (xlUp)). Värdera
ReDim sNames (1 till UBound (vInput, 1), 1 till 3)
Fastställdt oDic = CreateObject (”Scripting.Dictionary”)

Med oDic
    För I = 1 till UBound (vInput, 1)
        Om inte. Finns (vInput (I, 1)) Därefter
            n = n + 1
            sNames (n, 1) = vInput (I, 1)
            sNames (n, 2) = vInput (I, 2) & ”(” & vInput (I, 3) & ”)”,
            sNames (n, 3) = vInput (I, 3)
            . Tillfoga vInput (I, 1), n
        ElseIf. Finns (vInput (I, 1)) Därefter
            sNames (. Objekt (vInput (I, 1)), 2) = sNames (. Objekt (vInput (I, 1)), 2) & ”,” & vInput (I, 2) & ”(” & vInput (I, 3) & ”)”,
            sNames (. Objekt (vInput (I, 1)), 3) = sNames (. Objekt (vInput (I, 1)), 3) + vInput (I, 3)
        Avsluta om
    Därefter i
Avsluta med

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

Avsluta suben
Andra lösningar  
 
programming4us programming4us