From 99251181ea23f10296e0d5828d5015b4e4adc7fb Mon Sep 17 00:00:00 2001
From: Isaac Douglas <isaacdouglas2015@gmail.com>
Date: Sun, 31 Oct 2021 21:21:40 -0300
Subject: [PATCH] add PerfectNumber.hs

---
 src/Maths/PerfectNumber.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/Maths/PerfectNumber.hs

diff --git a/src/Maths/PerfectNumber.hs b/src/Maths/PerfectNumber.hs
new file mode 100644
index 0000000..c8c2001
--- /dev/null
+++ b/src/Maths/PerfectNumber.hs
@@ -0,0 +1,11 @@
+module Maths.PerfectNumber where
+
+sumList :: [Int] -> Int
+sumList [] = 0
+sumList (x:xs) = x + sumList xs
+
+perfectNumber :: Int -> Bool
+perfectNumber num = sumList [ x | x <- [1 ..  num -1], num `mod` x == 0] == num
+
+main = do
+    print (perfectNumber 6)
\ No newline at end of file