maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Package math.el

Browse source 
Another Elisp library that I wrote during my manic experience of switching to
EXWM.

Change-Id: I652f5c7228332a7f5822bd408a0c0be8f7bc4b4f
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6018
Tested-by: BuildkiteCI
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
This commit is contained in:
William Carroll 2022-07-30 11:29:31 -07:00 • committed by clbot
parent 9f325f01bf
commit f957a57ad8
3 changed files with 55 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
users/wpcarro/emacs/.emacs.d/wpc/math.el
View file

@ -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