Verfolständige folgende Reihe:

1
11
21
1211

wobei eine Zeile immer die darüberstehende beschreibt. man kann nur die drei zahlen 1,2,3 verwenden. Man kann die Reihe unendlich vordsetzen.

datei = WriteFile("Raetsel.txt")                  ;Erstellen der ersten Zeile in einer Datei aus der dann immer wieder die letzte Zeile ausgelesen wird
WriteLine datei, "112213"                        ;Zu testzwecken hab ich nicht einfach nur mit einer eins in der ersten Zeile angefangen
CloseFile datei                                 ;die nächste Zeile müsste dann logischer weise 21221113 heisen


Repeat
  datei_sch = OpenFile("Raetsel.txt")               ;mit datei_sch wird in die Datei geschreiben
  datei_l = ReadFile("Raetsel.txt")                  ;und mit datei_l aus der datei gelsen
 
  Repeat
    a$ = ReadLine(datei_sch)                     ;ermitteln der Zeilenlänge um die Schleifendurchläufe zu bestimmen
    anzahl_zeile = Len(a$)
    Anzahl_alle_zeichen = Anzahl_alle_zeichen + anzahl_zeile
  Until Eof(datei_sch)
  SeekFile(datei_l, Anzahl_alle_zeichen - anzahl_zeile - 4)   ;Hier in den Zwei Zeilen muss jetzt irgentwo der Fehler sein
  SeekFile(datei_sch, Anzahl_alle_zeichen)               ;beim verschieben der Zeiger in der Datei
  WriteLine datei_sch, Chr$(10)
 
  vorherige_zeile = ReadLine(datei_l) 
  zeichen_anzahl = Len(vorherige_zeile)
  einzeln_vorher = ""
  aktuelles_zeichen = ""
  zeile$ = ""
  speicher$ = ""
  anzahl$ = ""

  For i = 1 To zeichen_anzahl + 1                  ;Für die anzahl der Zeichen in der in der Ausgelsenen Zeile jeweils ein Schleifendurvchlauf
    einzeln_vorher = aktuelles_zeichen
    aktuelles_zeichen = Mid$(vorherige_zeile, i, 1)    ;ein Zeichen aus der Zeile auslesen

    If aktuelles_zeichen <> 0 And aktuelles_zeichen = einzeln_vorher Then    ;Überprüfen ob das Aktuelle Zeichen mit dem letzen übereinstimmt
      speicher$ = speicher$ + aktuelles_zeichen                        ;wenn ja dann muss gespeichert werden wieviel gleiche zeichen hintereinander gefunden wurden
    Else
      anzahl$ = Len(speicher$)
      speicher$ = Left(speicher$, 1)
      If anzahl$ > 0 Then zeile$ = zeile$ + anzahl$ + speicher$   

      speicher$ = aktuelles_zeichen
    EndIf
  Next
  WriteLine datei_sch, zeile$

  CloseFile datei_l                           ;Schließen der Dateien
  CloseFile datei_sch
 
Until vorherige_zeile = 0

1
11
21
1211 ...
21111

dim zahlen$(0)

anfang$ = "1" ;Anfangszahl

For i = 1 to 10
  print anfang$
  anfang$ = raetsel_loesen(anfang$)
next

waitkey() : End


function raetsel_loesen$(a$)
   Dim zahlen$(len(a$))
   
   for i = 1 to len(a$)
      ;Für 1
      if mid(a$,i,1) = "1" then
        If Mid(a$,i+1,1) <> "1" Then
          zahlen(i) = "11"
        Else
          If Mid(a$,i+2,1) <> "1" Then
            zahlen(i) = "21"
            i = i + 1
          else
            zahlen(i) = "31"
            i = i + 2
          Endif
        Endif
      Endif
      ;Für 2
      if mid(a$,i,1) = "2" then
        If Mid(a$,i+1,1) <> "2" Then
          zahlen(i) = "12"
        Else
          If Mid(a$,i+2,1) <> "2" Then
            zahlen(i) = "22"
            i = i + 1
          else
            zahlen(i) = "32"
            i = i + 2
          Endif
        Endif
      Endif
      ;Für 3
      if mid(a$,i,1) = "3" then
        If Mid(a$,i+1,1) <> "3" Then
          zahlen(i) = "13"
        Else
          If Mid(a$,i+2,1) <> "3" Then
            zahlen(i) = "23"
            i = i + 1
          else
            zahlen(i) = "33"
            i = i + 2
          Endif
        Endif
      Endif
   next
   
   
   x = Len(a$)
   a$ = ""
   
   for i = 1 to x
      a$ = a$ + zahlen(i)
   next
   
   a$ = replace(a$,"0","")
   
   Return a$
End Function

Graphics 800, 600, 32

PrintReihe( "1", 0 )
WaitKey
End

Function PrintReihe( val$, cnt% )
   If cnt% = 10 Then Return
   Print val$
   cnt%     = cnt% + 1
   PrintReihe( Raetsel( val$ ), cnt% )
End Function

Function Raetsel$( value$ )
   Local temp$   = ""
   Local lastC$  = ""
   Local result$ = ""
   Local cnt%    = 0
   
   For i% = 1 To Len( value$ )   + 1
      temp$ = Mid( value$, i%, 1 )

      If ( i% = 1 ) Then lastC$ = temp$
       
      If ( temp$ <> lastC$ )
         result$ = result$ + Str( cnt% ) + lastC$
         lastC$  = temp$
         cnt%    = 1
      Else
         cnt% = cnt% + 1
      EndIf
   Next
   
   Return result$
End Function