about summary refs log tree commit diff
path: root/configs/shared/.emacs.d/wpc/math.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-01-30T16·00+0000
committerWilliam Carroll <wpcarro@gmail.com>2020-01-30T16·00+0000
commit578ed1ba98510058cf48f897a9bf4e3391684120 (patch)
tree5eadabd3d232151c75ac2424eaa8771ab25e927e /configs/shared/.emacs.d/wpc/math.el
parent3684adf23f847114e1beeaab162398628ba571aa (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.el59
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