From adc2f18c07c59e5ebca31e90246c690e76c0c10b Mon Sep 17 00:00:00 2001
From: Ari Angga Nugraha <ari.angga@ui.ac.id>
Date: Wed, 16 Dec 2020 14:49:58 +0700
Subject: [PATCH] add function to count presentvalue

---
 src/Lib.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Lib.hs b/src/Lib.hs
index 11a599a..927a748 100755
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -37,3 +37,5 @@ powervalue m = 1 / (power (1 + interest) m)
 -- anonymus function
 factorpresentvalue = map (\x -> powervalue x) [1..5]
 
+-- high order function
+presentvalue = zipWith (*) (netcashflow income outcome) factorpresentvalue
-- 
GitLab