lindenmannm@3: Input: Zwei Zeichenketten A und B
lindenmannm@3: Output: Matrix D=(Dij)
lindenmannm@3: D[0,0]:= 0
lindenmannm@3: for i := 1 to m do D[i,0] = i
lindenmannm@3: for j := 1 to n do D[0,j] = j
lindenmannm@3: for i := 1 to m do
lindenmannm@3:     for j := 1 to n do
lindenmannm@3:          D[i,j] := min(D[i - 1,j] + 1,
lindenmannm@3:                        D[i,j - 1] + 1,
lindenmannm@3:                        D[i-1,j-1]+c(ai,bj))