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.

(In reply to Solution by Dej Mar)

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

Additions:

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)
  had$ = had$ + cd$(num)
 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
        had$ = had$ + MID$(w2$, i, 1)
      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