1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(in-package senzill.math)
(defmacro % (number divisor)
"Different name for the mod function"
`(mod ,number ,divisor))
(defmacro op= (operation value &rest others)
"Executes operation on all values and stores result in first argument"
`(setf ,value (funcall ,operation ,value ,@others)))
(defmacro += (value &rest numbers)
"Sums all numbers and stores result in name (first argument)"
`(op= '+ ,value ,@numbers))
(defmacro ++1 (value)
"Adds increments value by one"
`(+= ,value 1))
(defmacro -= (value &rest numbers)
"Adds all numbers and stores result in name (first argument)"
`(op= '- ,value ,@numbers))
(defmacro -- (value)
"Decrements value by one"
`(-= ,value 1))
(defmacro //= (value &rest numbers)
"Divides all numbers and stores result in name (first argument)"
`(op= '/ ,value ,@numbers))
(defmacro *= (value &rest numbers)
"Multiplies all numbers and stores result in name (first argument)"
`(op= '* ,value ,@numbers))
(defun ^ (number power)
"Calculates number to the power"
(let ((prod 1))
(dotimes (x power)
(setq prod (* prod number)))
prod))
(defun avg (&rest numbers)
"Calculates the average of all given numbers. If no numbers are given, returns 0."
(if (not numbers)
0
(/ (apply '+ numbers) (length numbers))))
|
