cs_lang:haskell
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
cs_lang:haskell [2012/04/29 22:03] – cedric | cs_lang:haskell [2012/04/30 16:51] (current) – [Caeser cipher] cedric | ||
---|---|---|---|
Line 16: | Line 16: | ||
====== Simple examples ====== | ====== Simple examples ====== | ||
+ | |||
+ | You can compare functions below with the [[cs_lang: | ||
+ | |||
+ | ===== Increment a number ===== | ||
+ | <code haskell> | ||
+ | let inc = (+) n | ||
+ | |||
+ | -- Alternative: | ||
+ | let inc n = succ n | ||
+ | </ | ||
+ | |||
+ | |||
+ | ===== Caesar cipher ===== | ||
+ | |||
<code haskell> | <code haskell> | ||
-- Shifts a character to the right if positive, left if negative. | -- Shifts a character to the right if positive, left if negative. | ||
shift :: Int -> Char -> Char | shift :: Int -> Char -> Char | ||
shift n c | isUpper c = chr $ ord ' | shift n c | isUpper c = chr $ ord ' | ||
- | | + | |
- | | otherwise = c | + | | otherwise = c |
Line 27: | Line 41: | ||
encode _ [] = [] | encode _ [] = [] | ||
encode n xs = map (shift n) xs | encode n xs = map (shift n) xs | ||
+ | </ | ||
+ | |||
+ | |||
+ | ===== Parity ===== | ||
+ | <code haskell> | ||
+ | parity :: Integral a => [a] -> [Bool] | ||
+ | -- Using recursion | ||
+ | parity [] = [] | ||
+ | parity (x:list) = [even x] ++ parity list | ||
+ | |||
+ | -- Using map | ||
+ | parity list = map even list | ||
</ | </ |
cs_lang/haskell.1335729780.txt.gz · Last modified: 2012/04/29 22:03 by cedric