Jan 2, 2025 · Jan 2, 2025 · Jan 2, 2025 · Jan 2, 2025 · Jan 2, 2025 · Jan 2, 2025
diff --git a/public/icons/haskell.svg b/public/icons/haskell.svg
diff --git a/snippets/haskell/array-manipulation/binary-search.md b/snippets/haskell/array-manipulation/binary-search.md
diff --git a/snippets/haskell/array-manipulation/chunk-array.md b/snippets/haskell/array-manipulation/chunk-array.md
diff --git a/snippets/haskell/array-manipulation/flatten-array.md b/snippets/haskell/array-manipulation/flatten-array.md
diff --git a/snippets/haskell/array-manipulation/matrix-transpose.md b/snippets/haskell/array-manipulation/matrix-transpose.md
diff --git a/snippets/haskell/array-manipulation/remove-duplicates.md b/snippets/haskell/array-manipulation/remove-duplicates.md
diff --git a/snippets/haskell/basics/hello-world.md b/snippets/haskell/basics/hello-world.md
diff --git a/snippets/haskell/icon.svg b/snippets/haskell/icon.svg
diff --git a/snippets/haskell/string-manipulation/camelcase-to-snakecase.md b/snippets/haskell/string-manipulation/camelcase-to-snakecase.md
diff --git a/snippets/haskell/string-manipulation/capitalize-words.md b/snippets/haskell/string-manipulation/capitalize-words.md
diff --git a/snippets/haskell/string-manipulation/count-word-ocurrences.md b/snippets/haskell/string-manipulation/count-word-ocurrences.md
diff --git a/snippets/haskell/string-manipulation/remove-punctuation.md b/snippets/haskell/string-manipulation/remove-punctuation.md
diff --git a/snippets/haskell/string-manipulation/snakecase-to-camelcase.md b/snippets/haskell/string-manipulation/snakecase-to-camelcase.md
diff --git a/snippets/haskell/string-manipulation/truncate-string.md b/snippets/haskell/string-manipulation/truncate-string.md
Original file line number	Diff line number	Diff line change
		@@ -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
	```
Original file line number	Diff line number	Diff line change
		@@ -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]]
	```
Original file line number	Diff line number	Diff line change
		@@ -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]
	```
Original file line number	Diff line number	Diff line change
		@@ -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]]
	```
Original file line number	Diff line number	Diff line change
		@@ -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]
	```
Original file line number	Diff line number	Diff line change
		@@ -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!"
	```
Original file line number	Diff line number	Diff line change
		@@ -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"
	```
Original file line number	Diff line number	Diff line change
		@@ -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"
	```
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,18 @@
	---
	title: Count Word Occurrences in String
	description: Counts the occurrences of each word in a given string.
	author: ACR1209
	tags: haskell,string,occurrences,word-count
	---

	```hs
	import Data.List (group, sort)

	countWordOccurrences :: String -> [(String, Int)]
	countWordOccurrences = map (\(w:ws) -> (w, length (w:ws))) . group . sort . words

	main :: IO ()
	main = do
	let text = "haskell is awesome and haskell is fun"
	print $ countWordOccurrences text -- Output: [("and",1),("awesome",1),("fun",1),("haskell",2),("is",2)]
	```
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,18 @@
	---
	title: Remove Punctuation
	description: Removes all punctuation from a given string.
	author: ACR1209
	tags: haskell,string,punctuation,remove
	---

	```hs
	import Data.Char (isPunctuation)

	removePunctuation :: String -> String
	removePunctuation = filter (not . isPunctuation)

	main :: IO ()
	main = do
	let text = "Hello, Haskell! How's it going?"
	print $ removePunctuation text -- Output: "Hello Haskell Hows it going"
	```