about summary refs log tree commit diff
path: root/users/wpcarro/emacs/.emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'users/wpcarro/emacs/.emacs.d')
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/math.el63
1 files changed, 0 insertions, 63 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/math.el b/users/wpcarro/emacs/.emacs.d/wpc/math.el
deleted file mode 100644
index dbc527928a30..000000000000
--- a/users/wpcarro/emacs/.emacs.d/wpc/math.el
+++ /dev/null
@@ -1,63 +0,0 @@
-;;; math.el --- Math stuffs -*- lexical-binding: t -*-
-
-;; Author: William Carroll <wpcarro@gmail.com>
-;; Version: 0.0.1
-;; Package-Requires: ((emacs "24.3"))
-
-;;; Commentary:
-;; Containing some useful mathematical functions.
-
-;;; Code:
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Dependencies
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(require 'dash)
-(require 'maybe)
-(require 'cl-lib)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; 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)
-  (cond
-   ((-all? #'maybe-some? (list base power result))
-    (error "All three arguments should not be set"))
-   ((-all? #'maybe-some? (list power result))
-    (message "power and result"))
-   ((-all? #'maybe-some? (list base result))
-    (log result base))
-   ((-all? #'maybe-some? (list 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