[FP/P08] Added work from today's practicum

1 files changed, 74 insertions, 0 deletions

diff --git a/Year 2/Functional Programming/08-Practice-01.12.2022.hs b/Year 2/Functional Programming/08-Practice-01.12.2022.hs
new file mode 100644
index 0000000..9d50c83
--- /dev/null
+++ b/Year 2/Functional Programming/08-Practice-01.12.2022.hs
@@ -0,0 +1,74 @@
+import Data.Char
+
+-- Ex1
+
+incrementAllBy :: [Int] -> Int -> [Int]
+incrementAllBy l i
+    | length l == 0 = []
+    | otherwise = (head l + i):(incrementAllBy (tail l) i)
+
+-- Ex2
+
+multiplyAllBy :: [Int] -> Int -> [Int]
+multiplyAllBy l i = map (*i) l    -- section of infix operator https://wiki.haskell.org/Section_of_an_infix_operator
+
+-- Ex3
+
+filterSmallerThan :: [Int] -> Int -> [Int]
+filterSmallerThan l i
+    | length l == 0 = []
+    | head l < i = filterSmallerThan (tail l) i
+    | otherwise = (head l):(filterSmallerThan (tail l) i)
+
+-- Ex4
+
+isOrdered :: (Integer -> Integer -> Bool) -> [Integer] -> Bool
+isOrdered p l
+    | length l <= 1 = True
+    | otherwise = (p (head l) (head (tail l))) && (isOrdered p (tail l))
+
+toList :: Integer -> [Integer]
+toList i
+    | i == 0 = []
+    | otherwise = (toList (div i 10)) ++ [mod i 10]
+
+isAscending :: Integer -> Bool
+isAscending i = isOrdered (\a b -> a < b) (toList i)
+
+-- Ex5
+
+digits :: String -> String
+digits s
+    | s == "" = ""
+    | '0' <= head s && head s <= '9' = (head s):(digits (tail s))
+    | otherwise = (digits (tail s))
+
+-- Ex6
+
+digitsSum :: String -> Int
+digitsSum s
+    | s == "" = 0
+    | isDigit (head s) = (ord (head s)) - 48 + digitsSum (tail s)
+    | otherwise = digitsSum (tail s)
+
+-- Ex7
+
+capitalize :: String -> String
+capitalize s = map toUpper s
+
+-- Ex8
+
+isCapitalized :: String -> Bool
+isCapitalized "" = True
+isCapitalized s  = isUpper (head s) && isCapitalized (tail s)
+
+main :: IO()
+main = do
+    print (incrementAllBy [1, 2, 3, 4] 2)
+    print (multiplyAllBy [1, 2, 3, 4] 3)
+    print (filterSmallerThan [8, 48, 38, 2, 62, 10, 94, 20] 20)
+    print (isAscending 123456)
+    print (digits "adlj1djfahf adfhapufh dufh 2 afjgbsd 3 hg")
+    print (digitsSum "asdkljfkj g1jgfh gufh 3 fgkjfg 4 akldjga 6")
+    print (capitalize "abcdefg")
+    print (isCapitalized "ABCDe")