(In reply to
re(2): All seven by Penny)
My word list had only three words and the time was about 1/2 second (five runs and their timings):
buckskin
buckskinned
buckskins
.5976563
buckskin
buckskinned
buckskins
.5507813
buckskin
buckskinned
buckskins
.5
buckskin
buckskinned
buckskins
.4921875
buckskin
buckskinned
buckskins
.5
t = TIMER
OPEN "words.txt" FOR INPUT AS #1
DO
LINE INPUT #1, l$
IF INSTR(l$, "cksk") THEN PRINT l$
LOOP UNTIL EOF(1)
PRINT TIMER - t
It probably took less time to write though.
|
Posted by Charlie
on 2004-09-06 13:37:43 |