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
Last revisionBoth sides next revision
cs_lang:haskell [2012/04/29 22:03] – cedriccs_lang:haskell [2012/04/30 09:36] – [Increment a number] 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>
 +
 +
 +===== Caeser 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.txt · Last modified: 2012/04/30 16:51 by cedric