Mercurial > 12ws.info2

comparison exercises/src/Exercise_4.hs @ 8:8689a0a4b38e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add example key
author Markus Kaiser <markus.kaiser@in.tum.de>
date Wed, 07 Nov 2012 22:17:33 +0100
parents b50c976522fa
children f4d71c6df64c
comparison
equal deleted inserted replaced
7:b50c976522fa 8:8689a0a4b38e
10 10
11 11
12 12
13 {---------------------------------------------------------------------} 13 {---------------------------------------------------------------------}
14 {- Aufgabe G4.2 -} 14 {- Aufgabe G4.2 -}
15 key = [('a','x'),('H','e'),('l','P'),('o','M')]
15 16
16 cryptChar :: [(Char,Char)] -> Char -> Char 17 cryptChar :: [(Char,Char)] -> Char -> Char
17 cryptChar [] c = '_' 18 cryptChar [] c = '_'
18 cryptChar ((k,v) : ks) c = undefined 19 cryptChar ((k,v) : ks) c = undefined
19 20