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

 First Floobles Factorization (Posted on 2013-10-04)

Given:
The factorization into 3 factors:

Question:
What can be stated about my diet?

2 534 31 1274 1338

Assignment:

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

DEFDBL A-Z

CLS

FOR s = 1 TO 9
used(s) = 1
FOR f = 1 TO 9
IF used(f) = 0 THEN
used(f) = 1
FOR b = 0 TO 9
IF used(b) = 0 THEN
used(b) = 1
fsbs = 1000 * f + 101 * s + 10 * b
FOR a = 0 TO 9
IF used(a) = 0 THEN
used(a) = 1
FOR d = 0 TO 9
IF used(d) = 0 THEN
used(d) = 1
FOR o = 0 TO 9
IF used(o) = 0 THEN
used(o) = 1
fado = 1000 * f + 100 * a + 10 * d + o
FOR l = 0 TO 9
IF used(l) = 0 THEN
used(l) = 1
FOR e = 0 TO 9
IF used(e) = 0 THEN
used(e) = 1
floobles = 10000000 * f + 1000100 * l + 110000 * o + 1000 * b + 10 * e + s
IF floobles = s * fsbs * fado THEN
s\$ = "2 534 31 1274 1338"
FOR i = 1 TO LEN(s\$)
v = VAL(MID\$(s\$, i, 1))
IF MID\$(s\$, i, 1) = " " THEN v = -99
SELECT CASE v
CASE s: PRINT "s";
CASE f: PRINT "f";
CASE b: PRINT "b";
CASE a: PRINT "a";
CASE d: PRINT "d";
CASE o: PRINT "o";
CASE l: PRINT "l";
CASE e: PRINT "e";
CASE -99: PRINT " ";
CASE ELSE: PRINT "_";
END SELECT
NEXT
PRINT : PRINT
END IF
used(e) = 0
END IF
NEXT
used(l) = 0
END IF
NEXT
used(o) = 0
END IF
NEXT
used(d) = 0
END IF
NEXT
used(a) = 0
END IF
NEXT
used(b) = 0
END IF
NEXT
used(f) = 0
END IF
NEXT
used(s) = 0
NEXT

Finds two mathematical solutions to the alphametic:

` FLOOBLES  S  FSBS  FADO  15330567  7  1707  1283a lo_ of fas_ food`
` 15774528  8  1848  1067e l_b _f feob f__s`

Only the first one allows a coherent decoding of the answer: A lot of fast food, with the mathematically unassigned 4 being assigned to the letter T.

 Posted by Charlie on 2013-10-04 19:51:51

 Search: Search body:
Forums (0)