add haskell language and some basic categories/snippets

Author: ACR1209

public/icons/haskell.svg

@@ -0,0 +1,27 @@
+---
+title: Binary Search
+description: Searches for an element in a sorted array using binary search.
+author: ACR1209
+tags: haskell,array,binary-search,search
+---
+
+```hs
+binarySearch :: Ord a => a -> [a] -> Maybe Int
+binarySearch _ [] = Nothing
+binarySearch target xs = go 0 (length xs - 1)
+  where
+    go low high
+        | low > high = Nothing
+        | midElem < target = go (mid + 1) high
+        | midElem > target = go low (mid - 1)
+        | otherwise = Just mid
+      where
+        mid = (low + high) `div` 2
+        midElem = xs !! mid
+
+main :: IO ()
+main = do
+    let array = [1, 2, 3, 4, 5]
+    print $ binarySearch 3 array -- Output: Just 2
+    print $ binarySearch 6 array -- Output: Nothing
+```

snippets/haskell/array-manipulation/binary-search.md

@@ -0,0 +1,17 @@
+---
+title: Chunk Array
+description: Splits an array into chunks of a specified size.
+author: ACR1209
+tags: haskell,array,chunk,utility
+---
+
+```hs
+chunkArray :: Int -> [a] -> [[a]]
+chunkArray _ [] = []
+chunkArray n xs = take n xs : chunkArray n (drop n xs)
+
+main :: IO ()
+main = do
+    let array = [1, 2, 3, 4, 5, 6]
+    print $ chunkArray 2 array -- Output: [[1, 2], [3, 4], [5, 6]]
+```

snippets/haskell/array-manipulation/chunk-array.md

@@ -0,0 +1,16 @@
+---
+title: Flatten Array
+description: Flattens a multi-dimensional array.
+author: ACR1209
+tags: haskell,array,flatten,utility
+---
+
+```hs
+flatten :: [[a]] -> [a]
+flatten = concat
+
+main :: IO ()
+main = do
+    let array = [[1, 2], [2], [3], [4]]
+    print $ flatten array -- Output: [1, 2, 2, 3, 4]
+```

snippets/haskell/array-manipulation/flatten-array.md

@@ -0,0 +1,18 @@
+---
+title: Matrix Transpose
+description: Transposes a 2D matrix.
+author: ACR1209
+tags: haskell,array,matrix,transpose
+---
+
+```hs
+transposeMatrix :: [[a]] -> [[a]]
+transposeMatrix [] = []
+transposeMatrix ([]:_) = []
+transposeMatrix xs = map head xs : transposeMatrix (map tail xs)
+
+main :: IO ()
+main = do
+    let matrix = [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
+    print $ transposeMatrix matrix -- Output: [[1,4,7],[2,5,8],[3,6,9]]
+```

snippets/haskell/array-manipulation/matrix-transpose.md

@@ -0,0 +1,19 @@
+---
+title: Remove duplicates
+description: Removes duplicate values from an array.
+author: ACR1209
+tags: haskell,array,deduplicate,utility
+---
+
+```hs
+import Data.List (nub)
+
+removeDuplicates :: Eq a => [a] -> [a]
+removeDuplicates = nub
+
+-- Usage
+main :: IO ()
+main = do
+    let array = [1, 2, 2, 3, 4, 4, 5]
+    print $ removeDuplicates array -- Output: [1, 2, 3, 4, 5]
+```

snippets/haskell/array-manipulation/remove-duplicates.md

@@ -0,0 +1,10 @@
+---
+title: Hello, World!
+description: Prints Hello, World! to the terminal.
+author: ACR1209
+tags: haskell,printing,hello-world,utility
+---
+
+```haskell
+putStrLn "Hello, World!"
+```

snippets/haskell/basics/hello-world.md

@@ -0,0 +1,21 @@
+---
+title: Transform Camel Case to Snake Case
+description: Converts a Camel Case string to Snake case.
+author: ACR1209
+tags: haskell,string,convert,camel-case,snake-case,utility
+---
+
+```hs
+import Data.Char (isUpper, toLower)
+
+camelToSnake :: String -> String
+camelToSnake [] = []
+camelToSnake (x:xs)
+    | isUpper x = '_' : toLower x : camelToSnake xs
+    | otherwise = x : camelToSnake xs
+
+main :: IO ()
+main = do
+    let camelCase = "camelCaseToSnakeCase"
+    print $ camelToSnake camelCase -- Output: "camel_case_to_snake_case"
+```

snippets/haskell/icon.svg

@@ -0,0 +1,21 @@
+---
+title: Capitalize Words
+description: Capitalizes the first letter of each word in a string.
+author: ACR1209
+tags: haskell,string,capitalize,words
+---
+
+```hs
+import Data.Char (toUpper)
+
+capitalizeWords :: String -> String
+capitalizeWords = unwords . map capitalize . words
+  where
+    capitalize []     = []
+    capitalize (x:xs) = toUpper x : xs
+
+main :: IO ()
+main = do
+    let sentence = "haskell is awesome"
+    print $ capitalizeWords sentence -- Output: "Haskell Is Awesome"
+```