Since i liked your little riddle, i gave it a shot, et voila it seems to work. Hope you find it usefull Greetings Lars
DECLARE SUB DoSolveRiddle
CREATE Main AS QFORM
CREATE List AS QRICHEDIT
Height = Main.clientHeight
Width = Main.ClientWidth
END CREATE
END CREATE
DoSolveRiddle
Main.SHOWMODAL
SUB DoSolveRiddle
DIM NrOfRounds : NrOfRounds = 10
DIM RiddleLine$ : RiddleLine$ = "1"
List.AddString "Line 1: " +RiddleLine$
FOR Rounds = 1 TO NrOfRounds
FOR Chars = 1 TO LEN(RiddleLine$)
Char$ = MID$(RiddleLine$,Chars,1)
IF Chars = 1 THEN
Count = 1
PrevChar$ = Char$
ELSE
IF Char$ <> PrevChar$ THEN
NewLine$ = NewLine$ + STR$(Count) + PrevChar$
Count = 1
PrevChar$ = Char$
ELSE
Count = Count + 1
PrevChar$ = Char$
END IF
END IF
NEXT Chars
NewLine$ = NewLine$ + STR$(Count) +Char$
List.AddString "Line " + STR$(Rounds + 1)+ ": " +NewLine$
RiddleLine$ = NewLine$
NewLine$ = ""
NEXT Rounds
END SUB
|