// Solver for Teirra [sic] Estella cache, // http://www.geocaching.com/seek/cache_details.aspx?guid=39e41b35-2915-41cd-a943-10e044f0dc56 for [a,b,c,d,e,f,g,h,i,j] = array[0 to 9].permute[] { j = i + e if j==a or j==b or j==c or j==d or j==e or j==f or j==g or j==h or j==i next first = 1000 a + 100 b + 10 c + d second = 1000 e + 100 f + 10 g + b sum = 10000 e + 1000 f + 100 c + 10 b + h if (first+second == sum) { println["a=$a\tb=$b\tc=$c\td=$d\te=$e\tf=$f\tg=$g\th=$h\ti=$i\tj=$j"] println[" $a $b $c $d"] println["+ $e $f $g $b"] println["==========="] println[" $e $f $c $b $h"] println[] latstr = "$e$b$a$f.$j$h$e" longstr = "$e$e$f$j$j.$g$f$e" println["lat = sqrt[$latstr]"] println["long = sqrt[$longstr]"] println[] lat = sqrt[eval[latstr]] degrees long = sqrt[eval[longstr]] degrees println["lat : " + format[lat, degrees, 5]] println["long: " + format[long, degrees, 5]] println[] println["lat : " + (lat->DMS)] println["long: " + (long->DMS)] } }