diff options
author | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
commit | 578ed1ba98510058cf48f897a9bf4e3391684120 (patch) | |
tree | 5eadabd3d232151c75ac2424eaa8771ab25e927e /configs/shared/.emacs.d/wpc/math.el | |
parent | 3684adf23f847114e1beeaab162398628ba571aa (diff) |
Move move .emacs.d out of configs/shared
Moving all of my Emacs-related files into their own directory at the root of this repository.
Diffstat (limited to 'configs/shared/.emacs.d/wpc/math.el')
-rw-r--r-- | configs/shared/.emacs.d/wpc/math.el | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/configs/shared/.emacs.d/wpc/math.el b/configs/shared/.emacs.d/wpc/math.el deleted file mode 100644 index 3176d906b466..000000000000 --- a/configs/shared/.emacs.d/wpc/math.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; math.el --- Math stuffs -*- lexical-binding: t -*- -;; Author: William Carroll <wpcarro@gmail.com> - -;;; Commentary: -;; Containing some useful mathematical functions. - -;;; Code: - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Dependencies -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(require 'maybe) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Constants -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defconst math/pi pi - "The number pi.") - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Functions -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; TODO: Support all three arguments. -;; Int -> Int -> Int -> Boolean -(cl-defun math/triangle-of-power (&key base power result) - ;; TODO: Assert two of three are set. - (cond - ((maybe/somes? base power result) - (error "All three arguments should not be set")) - ((maybe/somes? power result) - (message "power and result")) - ((maybe/somes? base result) - (log result base)) - ((maybe/somes? base power) - (expt base power)) - (t - (error "Two of the three arguments must be set")))) - -(defun math/mod (x y) - "Return X mod Y." - (mod x y)) - -(defun math/exp (x y) - "Return X raised to the Y." - (expt x y)) - -(defun math/round (x) - "Round X to nearest ones digit." - (round x)) - -(defun math/floor (x) - "Floor value X." - (floor x)) - -(provide 'math) -;;; math.el ends here |