All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > Numbers
Can't see the wood for the trees (Posted on 2007-08-14) Difficulty: 3 of 5
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.

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

Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (1)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information