From 93e07d881eb4b9cf4f1b2a9f44e1ad03c081d5da Mon Sep 17 00:00:00 2001
From: Ari Angga Nugraha <ari.angga@ui.ac.id>
Date: Fri, 11 Dec 2020 21:28:50 +0700
Subject: [PATCH] add function to count factorpresentvalue
---
src/Lib.hs | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/src/Lib.hs b/src/Lib.hs
index 2a548e4..0f0dc98 100755
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -20,7 +20,17 @@ handler person context =
else
return (Left "A person's age must be positive")
-netcashflow income outcome = zipWith (-) income outcome
-
+-- recursion
power n 1 = n
power n m = n * (power n (m-1))
+
+-- high order function
+netcashflow income outcome = zipWith (-) income outcome
+
+-- recursion
+powervalue m = 1 / (power (1 + interest) m)
+
+-- currying (variable nya bisa hilang)
+-- factorpresentvalue ns = map powervalue ns
+-- ns nya bisa dihilangkan
+factorpresentvalue = map powervalue
--
GitLab