 All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars  perplexus dot info  Can't see the wood for the trees (Posted on 2007-08-14) Can you find one five-figure number with distinct digits between 1 and 9 which satisfies all four of the following equations?

ASPEN x 2 = BEASTS
LARCH x 3 = STICKY
CEDAR x 4 = STATIC
PLANE x 5 = NACRED

Repeated letters within an equation indicate the replication of digits. However, the same letter in different equations does not necessarily refer to the same digit.

 See The Solution Submitted by Josie Faulkner Rating: 4.5000 (2 votes) Comments: ( Back to comment list | You must be logged in to post comments.) re: Solution | Comment 3 of 6 | (In reply to Solution by Dej Mar)

A couple of typos: 205137 for 205317 and 63439 for 68439.

TULIP * 6 = LENTIL  (Tulip, the tree, not the flower from a bulb)
68439 * 6 = 410634

ASPEN * 7 = PINKIE
68439 * 7 = 479073

--------------

CLS
n\$ = "68439"
prod\$ = LTRIM\$(STR\$(68439 * 6))
l = LEN(prod\$)
OPEN "wordswords" + LTRIM\$(STR\$(l)) + ".txt" FOR BINARY AS #1
w\$ = SPACE\$(l)
w2\$ = SPACE\$(5)

DO
GET #1, , w\$
IF EOF(1) THEN EXIT DO
REDIM cd\$(9)
good = 1: had\$ = ""
FOR i = 1 TO l
num = VAL(MID\$(prod\$, i, 1))
IF cd\$(num) > " " AND cd\$(num) <> MID\$(w\$, i, 1) THEN good = 0: EXIT FOR
IF cd\$(num) = "" AND INSTR(had\$, MID\$(w\$, i, 1)) > 0 THEN good = 0: EXIT FOR
cd\$(num) = MID\$(w\$, i, 1)
NEXT
wchk\$ = ""
IF good THEN
PRINT w\$,
FOR i = 1 TO 5
s = VAL(MID\$(n\$, i, 1))
IF cd\$(s) = "" THEN wchk\$ = wchk\$ + ".": ELSE wchk\$ = wchk\$ + cd\$(s)
NEXT
PRINT wchk\$; " ";

OPEN "wordswords5.txt" FOR BINARY AS #2
DO
GET #2, , w2\$
IF EOF(2) THEN EXIT DO
had\$ = "": good = 1
FOR i = 1 TO 5
IF MID\$(wchk\$, i, 1) <> "." AND MID\$(wchk\$, i, 1) <> MID\$(w2\$, i, 1) OR INSTR(had\$, MID\$(w2\$, i, 1)) THEN
good = 0: EXIT FOR
ELSE
END IF
NEXT
IF good THEN PRINT w2\$; " ";
LOOP
CLOSE 2
PRINT

ct = ct + 1
IF ct MOD 45 = 0 THEN DO: LOOP UNTIL INKEY\$ > "": PRINT
END IF
LOOP
CLOSE

Change last digit in

prod\$ = LTRIM\$(STR\$(68439 * 6))

for other multiples.

Edited on August 15, 2007, 10:24 am
 Posted by Charlie on 2007-08-14 16:45:17 Please log in:

 Search: Search body:
Forums (0)