diff options
| author | manuel <manuel@mausz.at> | 2012-05-22 12:38:56 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-05-22 12:38:56 +0200 |
| commit | 9ce708481e2e7a6de542383da71c715fe69380c1 (patch) | |
| tree | 8bba7f0d2c70001b12a9c822686d86fa1984ee3d | |
| parent | c381eea3362cb02e40e12f3a35c179282a182249 (diff) | |
| download | ffp-9ce708481e2e7a6de542383da71c715fe69380c1.tar.gz ffp-9ce708481e2e7a6de542383da71c715fe69380c1.tar.bz2 ffp-9ce708481e2e7a6de542383da71c715fe69380c1.zip | |
veeery minor: raising the prettiness :D
| -rw-r--r-- | AufgabeFFP7.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs index 43e8014..099eda8 100644 --- a/AufgabeFFP7.hs +++ b/AufgabeFFP7.hs | |||
| @@ -20,7 +20,7 @@ insert c (cur, buf) = (min (length buf + 1) (max (cur + 1) 1), buf1 ++ [c] ++ bu | |||
| 20 | -- delete character before cursor | 20 | -- delete character before cursor |
| 21 | delete :: Buffer -> Buffer | 21 | delete :: Buffer -> Buffer |
| 22 | delete (cur, buf) | 22 | delete (cur, buf) |
| 23 | | buf2 == [] = (min cur (length buf1), buf1) | 23 | | buf2 == "" = (min cur (length buf1), buf1) |
| 24 | | cur < 0 = (0, buf) | 24 | | cur < 0 = (0, buf) |
| 25 | | otherwise = (cur, buf1 ++ tail buf2) | 25 | | otherwise = (cur, buf1 ++ tail buf2) |
| 26 | where | 26 | where |
| @@ -57,17 +57,17 @@ insertI c (beforeC, afterC) = ([c] ++ beforeC, afterC) | |||
| 57 | -- delete character before cursor | 57 | -- delete character before cursor |
| 58 | deleteI :: BufferI -> BufferI | 58 | deleteI :: BufferI -> BufferI |
| 59 | deleteI (beforeC, "") = (beforeC, "") | 59 | deleteI (beforeC, "") = (beforeC, "") |
| 60 | deleteI (beforeC, last:afterC) = (beforeC, afterC) | 60 | deleteI (beforeC, c:afterC) = (beforeC, afterC) |
| 61 | 61 | ||
| 62 | -- move cursor left one character | 62 | -- move cursor left one character |
| 63 | leftI :: BufferI -> BufferI | 63 | leftI :: BufferI -> BufferI |
| 64 | leftI ("", afterC) = ("", afterC) | 64 | leftI ("", afterC) = ("", afterC) |
| 65 | leftI (last:beforeC, afterC) = (beforeC, [last] ++ afterC) | 65 | leftI (c:beforeC, afterC) = (beforeC, [c] ++ afterC) |
| 66 | 66 | ||
| 67 | -- move cursor right one character | 67 | -- move cursor right one character |
| 68 | rightI :: BufferI -> BufferI | 68 | rightI :: BufferI -> BufferI |
| 69 | rightI (beforeC, "") = (beforeC, "") | 69 | rightI (beforeC, "") = (beforeC, "") |
| 70 | rightI (beforeC, last:afterC) = ([last] ++ beforeC, afterC) | 70 | rightI (beforeC, c:afterC) = ([c] ++ beforeC, afterC) |
| 71 | 71 | ||
| 72 | -- is cursor at left end? | 72 | -- is cursor at left end? |
| 73 | atLeftI :: BufferI -> Bool | 73 | atLeftI :: BufferI -> Bool |