diff options
Diffstat (limited to 'edit-lens/src/Control/Edit/String.lhs')
| -rw-r--r-- | edit-lens/src/Control/Edit/String.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/edit-lens/src/Control/Edit/String.lhs b/edit-lens/src/Control/Edit/String.lhs index c1411cf..f0ca588 100644 --- a/edit-lens/src/Control/Edit/String.lhs +++ b/edit-lens/src/Control/Edit/String.lhs | |||
| @@ -24,7 +24,7 @@ import Data.Monoid | |||
| 24 | \end{comment} | 24 | \end{comment} |
| 25 | 25 | ||
| 26 | \begin{defn}[Atomare edits of strings] | 26 | \begin{defn}[Atomare edits of strings] |
| 27 | Wir betrachten, zur Einfachheit, ein minimiales Set von Edits auf Strings\footnote{Wie in der Konstruktion zum Longest Common Subsequence Problem}, bestehend nur aus Einfügung eines einzelnen Zeichens $\sigma$ an einer bestimmten Position $\iota_n(\sigma)$ und löschen des Zeichens an einer einzelnen Position $\rho_n$: | 27 | Wir betrachten zur Einfachheit ein minimiales Set von Edits auf Strings\footnote{Wie in der Konstruktion zum Longest Common Subsequence Problem} bestehend nur aus Einfügung eines einzelnen Zeichens $\sigma$ an einer bestimmten Position $\iota_n(\sigma)$ und löschen des Zeichens an einer einzelnen Position $\rho_n$: |
| 28 | 28 | ||
| 29 | \begin{code} | 29 | \begin{code} |
| 30 | data StringEdit pos char = Insert { _sePos :: pos, _seInsertion :: char } | 30 | data StringEdit pos char = Insert { _sePos :: pos, _seInsertion :: char } |
| @@ -38,7 +38,7 @@ data StringEdit pos char = Insert { _sePos :: pos, _seInsertion :: char } | |||
| 38 | makeLenses ''StringEdit | 38 | makeLenses ''StringEdit |
| 39 | \end{code} | 39 | \end{code} |
| 40 | 40 | ||
| 41 | Atomare edits werden, als Liste, zu edits komponiert. | 41 | Atomare edits werden als Liste zu edits komponiert. |
| 42 | Wir führen einen speziellen edit ein, der nicht-Anwendbarkeit der edits repräsentiert: | 42 | Wir führen einen speziellen edit ein, der nicht-Anwendbarkeit der edits repräsentiert: |
| 43 | \begin{code} | 43 | \begin{code} |
| 44 | data StringEdits pos char = StringEdits (Seq (StringEdit pos char)) | 44 | data StringEdits pos char = StringEdits (Seq (StringEdit pos char)) |
