DECLARE SUB permute (a$)
DEFDBL A-Z
msg$ = "7248901,389601981"
CLS
OPEN "geoalpha.txt" FOR OUTPUT AS #2
a$ = "wanedcosmi": h$ = a$
DO
ix = INSTR(a$, "w"): w = ix - 1
ix = INSTR(a$, "a"): a = ix - 1
ix = INSTR(a$, "n"): n = ix - 1
ix = INSTR(a$, "e"): e = ix - 1
ix = INSTR(a$, "d"): d = ix - 1
ix = INSTR(a$, "c"): c = ix - 1
ix = INSTR(a$, "o"): o = ix - 1
ix = INSTR(a$, "s"): s = ix - 1
ix = INSTR(a$, "m"): m = ix - 1
ix = INSTR(a$, "i"): i = ix - 1
IF s > 0 AND m > 0 AND i > 0 THEN
idiom = 10100 * i + 1000 * d + 10 * o + m
lhs = 10000 * m + (s + e) * 1000 + 100 * (w + d) + 10 * (a + i) + n + c
IF lhs = idiom THEN
l$(w) = "w"
l$(a) = "a"
l$(n) = "n"
l$(e) = "e"
l$(d) = "d"
l$(c) = "c"
l$(o) = "o"
l$(s) = "s"
l$(m) = "m"
l$(i) = "i"
FOR j = 1 TO LEN(msg$)
IF MID$(msg$, j, 1) = "," THEN
PRINT ",";
PRINT #2, ",";
ELSE
PRINT l$(VAL(MID$(msg$, j, 1)));
PRINT #2, l$(VAL(MID$(msg$, j, 1)));
END IF
NEXT j
PRINT: PRINT #2,
END IF
END IF
permute a$
LOOP UNTIL a$ = h$
close
finds
madisoc,wisnocsic
madieoc,wienoceic
cewnsod,ansiodsnd
newcsod,acsiodscd
cswneod,aneiodend
nswceod,aceiodecd
madison,wisconsin
madieon,wieconein
Google maps lists the latitude and longitude of Breese Stevens Field, within Madison, Wisconsin as 43.083684,-89.373779, those being the north and west (because negative) latitude and longitude respectively. Judging from the scale in miles and the irregular boundary of Madison, latitudes within Madison could differ be about 4/70° either way from the given latitude and in longitude perhaps 1/10° or even more as (1) Madison extends more east-west than north-south and (2) meridians of longitude are closer together here (not being the equator) than are parallels of latitude.
|
|
Posted by Charlie
on 2013-10-16 15:45:32 |
computer solution
