Forum: Programmieren allgemein
by tigerman33,
14. Jan 2006
Mir war mal ein bisschen langweilig, also hier jetzt auch noch der Ansatz mit Listenkomprehension:
versch s = ]
where delta x
| even x = -1
| otherwise = 1
Forum: Programmieren allgemein
by tigerman33,
11. Jan 2006
Das erste was mir dazu einfällt wäre der rekursive Ansatz:
versch :: String -> String
versch "" = ""
versch s = versch' 0 s
where versch' :: Int -> String -> String
versch' _ = ""
versch' a (s:ss) = if a `mod` 2 == 0 then
(chr(ord(s) - 1)):versch' (a+1) ss else
(chr(ord(s) + 1)):versch' (a+1) ss