cedric's bazaar

User Tools

Site Tools

Trace:
cs_lang:haskell

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
cs_lang:haskell [2012/04/29 22:03] – cedriccs_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:ocaml#simple_examples | Objective Caml]] version.
 +
 +===== Increment a number =====
 +<code haskell>
 +let inc = (+) n
 +
 +-- Alternative:
 +let inc n = succ n
 +</code>
 +
 +
 +===== 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 'A' + ((ord c + n - ord 'A') `mod` 26) shift n c | isUpper c = chr $ ord 'A' + ((ord c + n - ord 'A') `mod` 26)
-            | isLower c = chr $ ord 'a' + ((ord c + n - ord 'a') `mod` 26) +          | isLower c = chr $ ord 'a' + ((ord c + n - ord 'a') `mod` 26) 
-            | otherwise = c+          | otherwise = c
  
  
Line 27: Line 41:
 encode _  [] = [] encode _  [] = []
 encode n  xs = map (shift n) xs encode n  xs = map (shift n) xs
 +</code>
 +
 +
 +===== 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
 </code> </code>
cs_lang/haskell.1335729780.txt.gz · Last modified: by cedric