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/Babbage-problem/Haskell/babbage-problem-4.hs
+++ b/Task/Babbage-problem/Haskell/babbage-problem-4.hs
@ -0,0 +1,22 @@
+---------------------- BABBAGE PAIRS ---------------------
+
+babbagePairs :: [(Integer, Integer)]
+babbagePairs =
+  [0, 10000 ..]
+    >>= \x ->
+      ( ((,) <*> (^ 2)) . (x +)
+          <$> [264, 5264, 9736, 4736]
+      )
+        >>= \(a, b) ->
+          [ (a, b)
+            | ((269696 ==) . flip rem 1000000) b
+          ]
+
+--------------------------- TEST -------------------------
+main :: IO ()
+main =
+  mapM_
+    putStrLn
+    ( (\(a, b) -> show a <> " ^2 -> " <> show b)
+        <$> take 2000 babbagePairs
+    )