 All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars  perplexus dot info  Athletic Competition (Posted on 2013-07-08) Athletic ability was admired by the Minikins, and the annual summer competition of athletic events was eagerly anticipated In one such competition, Ebum, Ekum, Elfum, Epum, Eskum, and Evum were among the competitors. Three of them were entered in each of four events, and each of the four events was won by a different one of the six.

Based on the statements below, which three entered each of the events and who were the four winners?
1. The winner of the tree climb did not enter the distance run.
2. Ekum entered the distance run and the tree climb.
3. The only one of the four events that Evum did not enter was the log lift.
4. The winner of the spear throw entered one other event.
5. Eskum, who entered the distance run and one other event, and Elfum were both winners.
6. Ebum won the only event that he entered.
7. Epum competed in the tree climb and one other event, which was not the spear throw.

 See The Solution Submitted by K Sengupta No Rating Comments: ( Back to comment list | You must be logged in to post comments.) computer solution Comment 1 of 1

CLS
name\$ = "bklpsv"
ebum = 1: ekum = 2: elfum = 3: epum = 4: eskum = 5: evum = 6
FOR tc1 = 1 TO 4
tc(1) = tc1
FOR tc2 = tc1 + 1 TO 5
tc(2) = tc2
FOR tc3 = tc2 + 1 TO 6
tc(3) = tc3
FOR tcw = 1 TO 3
tcw\$ = MID\$(name\$, tc(tcw), 1)
tcros\$ = MID\$(name\$, tc1, 1) + MID\$(name\$, tc2, 1) + MID\$(name\$, tc3, 1)

IF tcw\$ <> "k" AND (tc1 = ekum OR tc2 = ekum OR tc3 = ekum) THEN
IF tcw\$ <> "v" AND (tc1 = evum OR tc2 = evum OR tc3 = evum) THEN
dr(1) = ekum
dr(2) = eskum
dr(3) = evum
drros\$ = "ksv"
FOR drw = 1 TO 3
drw\$ = MID\$(name\$, dr(drw), 1)

FOR ll1 = 1 TO 3
ll(1) = ll1
FOR ll2 = ll1 + 1 TO 4
ll(2) = ll2
FOR ll3 = ll2 + 1 TO 5
ll(3) = ll3
llros\$ = MID\$(name\$, ll1, 1) + MID\$(name\$, ll2, 1) + MID\$(name\$, ll3, 1)

FOR st1 = 1 TO 4
st(1) = st1
FOR st2 = st1 + 1 TO 5
st(2) = st2
st3 = evum
st(3) = st3
stros\$ = MID\$(name\$, st1, 1) + MID\$(name\$, st2, 1) + MID\$(name\$, st3, 1)

FOR llw = 1 TO 3
llw\$ = MID\$(name\$, ll(llw), 1)
FOR stw = 1 TO 3
stw\$ = MID\$(name\$, st(stw), 1)
stct = 0
IF INSTR(tcros\$, stw\$) THEN stct = stct + 1
IF INSTR(drros\$, stw\$) THEN stct = stct + 1
IF INSTR(llros\$, stw\$) THEN stct = stct + 1
IF stct = 1 THEN

eskumct = 0
IF INSTR(tcros\$, "s") THEN eskumct = eskumct + 1
IF INSTR(stros\$, "s") THEN eskumct = eskumct + 1
IF INSTR(llros\$, "s") THEN eskumct = eskumct + 1
IF eskumct = 1 AND (drw\$ = "s" OR tcw\$ = "s" OR llw\$ = "s" OR stw\$ = "s") THEN
IF drw\$ = "l" OR llw\$ = "l" OR stw\$ = "l" OR tcw\$ = "l" THEN

ebumct = 0
IF INSTR(tcros\$, "b") THEN ebumct = ebumct + 1
IF INSTR(stros\$, "b") THEN ebumct = ebumct + 1
IF INSTR(llros\$, "b") THEN ebumct = ebumct + 1
IF INSTR(drros\$, "b") THEN ebumct = ebumct + 1
IF ebumct = 1 THEN
IF tcw\$ = "b" OR drw\$ = "b" OR llw\$ = "b" OR stw\$ = "b" THEN

IF INSTR(tcros\$, "p") > 0 THEN
IF INSTR(stros\$, "p") = 0 THEN
IF INSTR(llros\$, "p") > 0 AND INSTR(drros\$, "p") = 0 OR INSTR(llros\$, "p") = 0 AND INSTR(drros\$, "p") > 0 THEN
PRINT "TC:"; tcros\$, tcw\$
PRINT "DR:"; drros\$, drw\$
PRINT "ST:"; stros\$, stw\$
PRINT "LL:"; llros\$, llw\$
END IF
END IF
END IF

END IF
END IF

END IF

END IF

END IF
NEXT stw
NEXT llw

NEXT
NEXT

NEXT
NEXT
NEXT

NEXT

END IF
END IF

NEXT
NEXT
NEXT
NEXT

finds

`TC:kpv        pDR:ksv        sST:lsv        lLL:blp        b`

which is:

Tree climbing: Epum won from among Ekum, Epum and Evum.
Distance running: Eskum won from among Ekum, Eskum and Evum.
Spear throw: Elfum won from among Elfum, Eskum and Evum.
Log lift: Ebum won from among Ebum, Elfum and Epum.

 Posted by Charlie on 2013-07-08 19:38:17 Please log in:

 Search: Search body:
Forums (0)