- Uncle Raymond will not get the scarf unless Uncle John gets the hat.
- Uncle George will not get the gloves unless Uncle Victor gets the scarf.
- Uncle Victor will not get the tie unless Uncle George gets the scarf.
- Uncle John will not get the gloves unless Uncle Raymond gets the hat.
- Uncle John will not get the hat unless Uncle Victor gets the gloves.
- Uncle George will not get the hat unless Uncle Raymond gets the tie.
- Uncle George will not get the tie unless Uncle Raymond gets the hat.
- Uncle Raymond will not get the hat unless Uncle George gets the scarf.
- Uncle Victor will not get the gloves unless Uncle Raymond gets the hat.
- Uncle John will not get the tie unless Uncle Raymond gets the gloves.
- Uncle George will not get the scarf unless Uncle Raymond gets the gloves.
Which uncle will get the scarf for Christmas?
DECLARE SUB permute (a$)
name$ = "RGVJ"
gift$ = "hsgt"
g$ = gift$: h$ = g$
DO
s$ = "R" + MID$(g$, 1, 1) + "G" + MID$(g$, 2, 1) + "V" + MID$(g$, 3, 1) + "J" + MID$(g$, 4, 1)
good = 1
IF INSTR(s$, "Rs") > 0 AND INSTR(s$, "Jh") = 0 THEN good = 0
IF INSTR(s$, "Gg") > 0 AND INSTR(s$, "Vs") = 0 THEN good = 0
IF INSTR(s$, "Vt") > 0 AND INSTR(s$, "Gs") = 0 THEN good = 0
IF INSTR(s$, "Jg") > 0 AND INSTR(s$, "Rh") = 0 THEN good = 0
IF INSTR(s$, "Jh") > 0 AND INSTR(s$, "Vg") = 0 THEN good = 0
IF INSTR(s$, "Gh") > 0 AND INSTR(s$, "Rt") = 0 THEN good = 0
IF INSTR(s$, "Gt") > 0 AND INSTR(s$, "Rh") = 0 THEN good = 0
IF INSTR(s$, "Rh") > 0 AND INSTR(s$, "Gs") = 0 THEN good = 0
IF INSTR(s$, "Vg") > 0 AND INSTR(s$, "Rh") = 0 THEN good = 0
IF INSTR(s$, "Jt") > 0 AND INSTR(s$, "Rg") = 0 THEN good = 0
IF INSTR(s$, "Gs") > 0 AND INSTR(s$, "Rg") = 0 THEN good = 0
IF good THEN PRINT s$
permute g$
LOOP UNTIL g$ = h$
finds
RgGsVhJt
with the initial of the uncle, in upper case, followed by the initial of the gift he received:
Raymond gloves
George scarf
Victor hat
John tie
|
Posted by Charlie
on 2013-08-27 13:17:51 |