Substitute digits for letters (different letters, different digits; same letters, same digits) so ALPHABET + LETTERS = SCRABBLE. No number begins with zero.

Can you manage without a computer program?

(In reply to Answer by Penny)

Less than 1 second:

DEFLNG A-Z
FOR i = 1 TO 10: taken(i) = 0: NEXT
a = 1: s = 2: t1 = 10001000 - 10000 + 2 - 20000000
taken(1) = 1: taken(2) = 1
FOR l = 0 TO 9
 IF taken(l) = 0 THEN
  taken(l) = 1
  t2 = t1 + l * (2000000 - 10)
FOR p = 0 TO 9
 IF taken(p) = 0 THEN
  taken(p) = 1
  t3 = t2 + p * 100000
FOR b = 0 TO 9
 IF taken(b) = 0 THEN
  taken(b) = 1
  t4 = t3 + b * (100 - 1100)
FOR e = 0 TO 9
 IF taken(e) = 0 THEN
  taken(e) = 1
  t5 = t4 + e * (100110 - 1)
FOR t = 0 TO 9
 IF taken(t) = 0 THEN
  taken(t) = 1
  t6 = t5 + t * 11001
FOR r = 0 TO 9
 IF taken(r) = 0 THEN
  taken(r) = 1
  t7 = t6 + r * (10 - 100000)
FOR c = 0 TO 9
 IF taken(c) = 0 THEN
  taken(c) = 1
  t8 = t7 - c * 1000000
FOR h = 0 TO 9
 IF taken(h) = 0 THEN
  taken(h) = 1
  t9 = t8 + h * 10000

  IF t9 = 0 THEN
   PRINT a; l; p; h; a; b; e; t
   PRINT l; e; t; t; e; r; s
   PRINT s; c; r; a; b; b; l; e
  END IF

  taken(h) = 0
 END IF
NEXT
  taken(c) = 0
 END IF
NEXT
  taken(r) = 0
 END IF
NEXT
  taken(t) = 0
 END IF
NEXT
  taken(e) = 0
 END IF
NEXT
  taken(b) = 0
 END IF
NEXT
  taken(p) = 0
 END IF
NEXT
  taken(l) = 0
 END IF
NEXT

giving

 1  7  5  3  1  9  0  8
 7  0  8  8  0  6  2
 2  4  6  1  9  9  7  0

Posted by Charlie on 2005-06-22 19:27:44