Mercurial > 12ws.info2
changeset 8:8689a0a4b38e
add example key
author | Markus Kaiser <markus.kaiser@in.tum.de> |
---|---|
date | Wed, 07 Nov 2012 22:17:33 +0100 |
parents | b50c976522fa |
children | f4d71c6df64c |
files | exercises/src/Exercise_4.hs |
diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/exercises/src/Exercise_4.hs Wed Nov 07 20:27:58 2012 +0100 +++ b/exercises/src/Exercise_4.hs Wed Nov 07 22:17:33 2012 +0100 @@ -12,6 +12,7 @@ {---------------------------------------------------------------------} {- Aufgabe G4.2 -} +key = [('a','x'),('H','e'),('l','P'),('o','M')] cryptChar :: [(Char,Char)] -> Char -> Char cryptChar [] c = '_'