From c4028a0ffa9c8ae4820161bb52871f6ef5d46241 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sat, 24 Feb 2024 12:46:13 +0100 Subject: [PATCH] Update bundle--stats --- bundle/bundle--stats.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/bundle/bundle--stats.el b/bundle/bundle--stats.el index 23502ff9..2219b55d 100644 --- a/bundle/bundle--stats.el +++ b/bundle/bundle--stats.el @@ -1,9 +1,15 @@ -(defun evenp (number) +;;; bundle--stats.el --- Statistics Lib -*- lexical-binding: t; -*- + +;; Author: Marcus Kammer +;; Version: 0.0.1 +;; Keywords: statistics + +(defun stats:evenp (number) (if (= 0 (% number 2)) t nil)) -(defun oddp (number) +(defun stats:oddp (number) (not (evenp number))) (defun stats:mean (list) @@ -21,3 +27,6 @@ (let ((m (stats:mean list))) (sqrt (/ (seq-reduce (lambda (x acc) (+ x (expt (- x m) 2))) list 0) (length list))))) + +(provide 'bundle--stats) +;;; bundle--stats.el ends here