1 files changed, 3 insertions, 0 deletions

diff --git a/H4.hs b/H4.hs
new file mode 100644
index 0000000..1aea629
--- /dev/null
+++ b/H4.hs
@@ -0,0 +1,3 @@
+myLength :: [a] -> Integer
+
+myLength = foldl (\x _ -> x+1) 0