kaveet

/**

Transform a string to title case.

Usage:
{{ myString | titleCase }} 

*/

angular

kaveet

module Safetails where

safetail :: Eq a => [a] -> [a]
safetail xs = if xs == [] then [] else tail xs

safetail' :: Eq a => [a] -> [a]
safetail' xs
  | xs == []  = []
  | otherwise = tail xs

kaveet

module Quicksort where

quicksort :: (Ord a) => [a] -> [a]
quicksort [] = []
quicksort (x:xs) = quicksort [y | y <- xs, y <= x] ++ [x] ++ quicksort [y | y <- xs, y > x]

quicksort' :: (Ord a) => [a] -> [a]
quicksort' [] = []
quicksort' (x:xs) = (quicksort' small) ++ [x] ++ (quicksort' big)
where

kaveet

var hasOwnProperty = Object.prototype.hasOwnProperty;

function isEmpty(obj) {
    if (obj == null) return true;
    if (obj.length > 0)    return false;
    if (obj.length === 0)  return true;
    if (typeof obj !== "object") return true;
    for (var key in obj) {
        if (hasOwnProperty.call(obj, key)) return false;
    }

kaveet

/*
Display a dropdown menu on hover rather than on click. Useful for navigation menus.
Tested with angular-ui-bootstrap@2.2.0
*/

.dropdown:hover .dropdown-menu {
  display: block;
}

kaveet

-- fibonacci.hs
-- credit dtb@stackoverflow http://stackoverflow.com/a/1105840
-- Accessing the n-th fibonacci number: fib n = fibs !! n

module Fibonacci where

fib :: Integer -> Integer
fib 0 = 1
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

kaveet

module Reverse where

reverse :: [a] -> [a]
reverse [] = []
reverse (x:xs) = reverse xs ++ [x]

kaveet

module Length where

length           :: [a] -> Int
length []        =  0
length (_:xs)    =  1 + length xs

kaveet

module Palindrome where

palindrome :: Eq a => [a] -> Bool
palindrome []  = True
palindrome [_] = True
palindrome xs  = (head xs) == (last xs) && (palindrome $ init $ tail xs)

kaveet

-- Compute the factorial of n recrusively

module Factorial where

factorial :: Int -> Int
factorial 0 = 1
factorial n = n * factorial (n-1)