marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update bundle--stats

Browse source
This commit is contained in:
Marcus Kammer 2024-02-24 12:46:13 +01:00
parent 7e4b92e459
commit c4028a0ffa
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
bundle/bundle--stats.el
View file

@ -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)) (if (= 0 (% number 2))
t t
nil)) nil))
(defun oddp (number) (defun stats:oddp (number)
(not (evenp number))) (not (evenp number)))
(defun stats:mean (list) (defun stats:mean (list)
@ -21,3 +27,6 @@
(let ((m (stats:mean list))) (let ((m (stats:mean list)))
(sqrt (/ (seq-reduce (lambda (x acc) (+ x (expt (- x m) 2))) list 0) (sqrt (/ (seq-reduce (lambda (x acc) (+ x (expt (- x m) 2))) list 0)
(length list))))) (length list)))))
(provide 'bundle--stats)
;;; bundle--stats.el ends here