# HG changeset patch
# User Markus Kaiser <markus.kaiser@in.tum.de>
# Date 1352323053 -3600
# Node ID 8689a0a4b38ec0008a50285e4d23d8a7eb7a10fd
# Parent  b50c976522fa7b94e2bcaf3bdbe539b52a2ddfb3
add example key

diff -r b50c976522fa -r 8689a0a4b38e exercises/src/Exercise_4.hs
--- 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 = '_'