Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Generator-Exponential/Haskell/generator-exponential.hs
+++ b/Task/Generator-Exponential/Haskell/generator-exponential.hs
@ -0,0 +1,16 @@
+import Data.List.Ordered
+
+powers :: Int -> [Int]
+powers m = map (^ m) [0..]
+
+squares :: [Int]
+squares = powers 2
+
+cubes :: [Int]
+cubes = powers 3
+
+foo :: [Int]
+foo = filter (not . has cubes) squares
+
+main :: IO ()
+main = print $ take 10 $ drop 20 foo