1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

X1111
1...o
1..o.
1.o..
1o...
Oder
X1111
1o...
1..o.
1.o..
1...0
etc...					

1:
2:
3:
4:
5:
6:
7:

  :X??????????
34:000___0000
34:000__0000_
34:000_0000__
34:_000__0000
34:_000_0000_
34:__000_0000					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//soviele Durchläufe wie es Zeichenpositionen je Zeile gibt
for i:= 0 to 10 //Anzahl der Positionen
begin
 //
 for j:= 0 to AnzZuBelegendeZeichen
 begin
  if j<10 then 
  begin
    zeile[i]:='#';
  end
  else
  begin //bei Überlauf von vorne beginnen
    zeile[j-i]:='#';  
  end;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure CreateCombinations (S, I,K,Row, P)
Begin
  For J := K to Board.Width - 1 do
    If IsBlock(Board[Row, J], S[i]) Then // An Pos (Row,J) kann ein Block der Länge S[i] sein
      If I = Length(S) Then // Der letzte Block wurde gefunden
        AddToCombinations (P + [J])// Der Lösungsvektor P + [J] ist eine Möglichkeit
     else
       CreateCombinations (S,I+1, J+S[j]+1, P+[J])
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

tRule = record 
          rules    :array[1..maxrule] of integer;
          startpt  :array[1..maxrule] of integer;
          rulesCnt : integer;  //Wieviele sind es wirklich
          fixedlength: integer;//fest eingefuegt 
          fixedrule [1..maxrule] of boolean;//fest eingefuegt 
       end;

tSpalte = array[1..weidth] of tRule;
tZeile  = array[1..height] of tRule;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Procedure FindRowCombinations (B : TPosArray; aRow, aBlockIndex, aStartPos : Integer; P : TPosArray);
Var
  J, iThisBlockWidth : Integer;

Begin
  iThisBlockWidth := B[aBlockIndex]; // so einen Block wollen wir plazieren
  For j:=aStartPos To Board.Width - iThisBlockWidth Do
     If Board.CanPutABlockAtPos (J,iThisblockWidth) Then Begin
       P[aBlockIndex] := J;
       If aBlockIndex = Length (B) Then Begin // Der letzte Block wurde plaziert
         Solutions.Add (P);  // Also ist P eine Möglichkeit und kommt zum Lösungsvektor
       End
       Else // Ansonsten versuchen wir, den nächsten Block zu plazieren
         FindRowCombinations (B, aRow, aBlockIndex + 1, J + iThisblockWidth + 1, P);
     End
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Schleife: Wiederhole das so lange, bis sich nichts mehr verändert hat:

  Schleife:
  Gehe alle Zeilen/Spalten durch, wenn die Anzahl der eingefärbten Felder 
  der Summe der Elemente des darauf bezogenen Arrays entspricht, 
  setze alle ungewissen Felder auf Null.

  Schleife:
  Gehe alle Zeilen/Spalten durch, wenn die Anzahl der ungewissen Felder 
  der Summe der Elemente des darauf bezogenen Arrays minus der bereits eingefärbten entspricht, 
  setze alle ungewissen Felder auf Eins.

  Schleife:
  Suche nach fertigen Abschnitten im Feld, und setze das Feld hinter dem Abschnitt auf Null.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

maxBlkcnt :integer = const
tBlock = record
            BlkLength   : integer;
            StartPos,       //als Laufvariable von min bis max
            MinStartPos,
            maxStartPos :integer;
            Fixed       : Boolean; //oder MinStartpos=MaxStartPos machen
          end;
tRowCol = record    
             Blocks    : array[1..maxBlkcnt] of tBlock;   
             BlockCnt  : integer;
             Blockfixed: array[1..Blkcnt] of boolean;
          end;   

tSpalte = array[1..weidth] of tRowCol;   
tZeile  = array[1..height] of tRowCol;