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

 A classic game (Posted on 2005-06-22)
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?

 See The Solution Submitted by e.g. Rating: 3.0000 (2 votes)

Comments: ( Back to comment list | You must be logged in to post comments.)
 re: Answer | Comment 2 of 9 |

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

 Search: Search body:
Forums (0)