www.jammni.de

splitInHalves = foldr (\\x (l,r) -> (x:r,l)) ([],[])

--xor ohne fromEnum
zipWith (\\x y -> if x/=y then 1 else 0) [1,1,0,0] [0,1,1,0]
--[1,0,1,0]

--xor mit fromEnum
zipWith ((fromEnum.).(/=)) [1,1,0,0] [0,1,1,0]
--[1,0,1,0]

foo xs = map f1 $ filter f2 xs where
   f1 (x,y,z) = x*y+z
   f2 (x,y,z) = x+y*z > 100

foo\' xs = concatMap f xs where
   f (x,y,z) = if x+y*z > 100 then [x*y+z] else [] 

import Data.List

last' = foldl' (flip const) $ error "empty list"

digits = reverse . map (`mod` 10) . takeWhile (> 0) . iterate (`div` 10)

mult n = concatMap (replicate n)

import Control.Applicative

"test" <* "abc"  --> "ttteeesssttt"

import Control.Applicative

mult n = (<* [1..n]) 

matrix r c = [1] <* [1..c] <$ [1..r]

rotate :: Int -> [a] -> [a]
rotate _ [] = []
rotate n xs = zipWith const (drop n (cycle xs)) xs

rotate n xs = bs ++ as where (as, bs) = splitAt n xs

sort xs@(_:_:_) =  merge $ map sort $ split xs  
sort xs = xs

split = foldr (\x [l,r] -> [x:r,l]) [[],[]]

merge [x:xs,y:ys]
  | x < y = x : merge [xs, y:ys]
  | otherwise = y : merge [x:xs, ys]
merge xss = concat xss