Add gnosis-algorithm-round-items

1 files changed, 4 insertions, 0 deletions

diff --git a/gnosis-algorithm.el b/gnosis-algorithm.el
index da9a070..35248b9 100644
--- a/gnosis-algorithm.el
+++ b/gnosis-algorithm.el
@@ -80,6 +80,10 @@ NOTE: Do not change this value above 1"
 	   for i from 0
 	   collect (if (= i index) new-item item)))
 
+(defun gnosis-algorithm-round-items (list)
+  "Round all items in LIST to 2 decimal places."
+  (cl-loop for item in list
+	   collect (/ (round (* item 100)) 100.0)))
 
 (defun gnosis-algorithm-date (&optional offset)
   "Return the current date in a list (year month day).