Add general examples

Author: koladilip

general-examples/CHANGELOG.md

@@ -0,0 +1,5 @@
+# Revision history for general-examples
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

general-examples/Main.hs

@@ -0,0 +1,4 @@
+module Main where
+
+main :: IO ()
+main = putStrLn "Hello, Haskell!"

general-examples/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

general-examples/general-examples.cabal

@@ -0,0 +1,26 @@
+cabal-version:       >=1.10
+-- Initial package description 'general-examples.cabal' generated by 'cabal
+--  init'.  For further documentation, see
+-- http://haskell.org/cabal/users-guide/
+
+name:                general-examples
+version:             0.1.0.0
+-- synopsis:
+-- description:
+-- bug-reports:
+-- license:
+license-file:        LICENSE
+author:              Dilip Kola
+maintainer:          [email protected]
+-- copyright:
+-- category:
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+
+executable general-examples
+  main-is:             Main.hs
+  -- other-modules:
+  -- other-extensions:
+  build-depends:       base >=4.13 && <4.14
+  -- hs-source-dirs:
+  default-language:    Haskell2010

general-examples/infinite-datastructures

@@ -0,0 +1,73 @@
+module Main where
+
+elm :: (Eq a) => a -> [a] -> Bool
+elm _ [] = False
+elm a (x:xs) = (a == x) || (elm a xs)
+
+nub :: (Eq a) => [a] -> [a]
+
+nub [] = []
+nub (x:xs)
+    | elm x xs = nub xs
+    | otherwise = (x : nub xs)
+
+isAsc :: [Int] -> Bool
+isAsc [] = True
+isAsc [x] = True
+isAsc (x:y:xs) = (x <= y) && isAsc(y:xs)
+
+hasPath :: [(Int, Int)] -> Int -> Int -> Bool
+hasPath xs x y 
+    | (x == y ) = True
+    | otherwise = or [hasPath xs' n y | (m, n) <- xs, m == x]
+        where
+            xs' = [(m, n) | (m, n) <- xs, m /= x] 
+
+rev :: [a] ->[a]
+rev xs = rev' xs []
+    where 
+        rev' [] ys = ys
+        rev' (x:xs') ys = rev' xs' (x:ys)
+
+-- Reverse using fold
+revf :: [a] ->[a]
+revf xs = foldl (\acc x -> x:acc) [] xs
+
+-- Reverse using fold with flip
+revff :: [a] ->[a]
+revff = foldl (flip (:)) []
+
+prefixes :: [a] -> [[a]]
+prefixes l = rev $ map rev $ foldl customAdd [] l
+    where
+        customAdd [] y = [[y]]
+        customAdd (x:xs) y = ((y:x):(x:xs))
+
+prefixes2 :: [a] -> [[a]]
+prefixes2 = foldr (\x acc -> [x] : map (x:) acc) []
+
+lagrange :: [(Float, Float)] -> Float -> Float
+lagrange xs a = foldl (\acc (x, y) -> acc + (y * (lbp x))) 0 xs
+    where lbp x' = foldl (\acc (x, _) -> acc * (a - x) / (x' - x) ) 1 [(x,y) | (x,y) <- xs, x /= x']
+
+data Trie a = Leaf a | Node a [Trie a]
+foldtrie :: (b -> a -> b) -> b -> Trie a -> b 
+foldtrie f acc (Leaf a) = f acc a
+foldtrie f acc (Node a as) = foldl (foldtrie f) (f acc a) as
+
+main = do
+    print (elm 2 [1, 3, 2])
+    print (nub [2, 1, 2, 3, 1, 4])
+    print (isAsc [1, 2, 3]) 
+    print (isAsc [1, 2, 3, 1]) 
+    print (hasPath [(1, 2), (2, 3), (3, 4)] 1 4)
+    print (hasPath [(1, 2), (2, 3), (3, 4)] 3 1)
+    print (hasPath [(1, 2), (2, 3), (3, 4)] 2 4)
+    print (rev [1, 2, 3])
+    print (revf [1, 2, 3])
+    print (revff [1, 2, 3])
+    print $ prefixes [1, 2, 3]
+    print $ prefixes2 [1, 2, 3]
+    print $ lagrange [(1, 1), (2, 8), (3, 27), (4, 64)] 6
+    print $ foldtrie (flip (:)) [] (Node 'c' [(Node 'a' [Leaf 'r', Leaf 't']),(Node 'o' [Node 'o' [Leaf 'l']])])
+

general-examples/ist-funcs

@@ -0,0 +1,13 @@
+Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.
+
+Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi. Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.
+
+Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.
+
+Nam liber tempor cum soluta nobis eleifend option congue nihil imperdiet doming id quod mazim placerat facer possim assum. Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat.
+
+Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis.
+
+At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  At accusam aliquyam diam diam dolore dolores duo eirmod eos erat, et nonumy sed tempor et et invidunt justo labore Stet clita ea et gubergren, kasd magna no rebum. sanctus sea sed takimata ut vero voluptua. est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat. 
+
+Consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr,  sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.