Add arithmetic functions

Author: P233

README.md

@@ -7,18 +7,39 @@ This project is build for fun :)
 ## Functions
 
 1. Most functions have two arities: `fn($list)` or `fn($list...)`.
-2. Anonymous functions use polish notation (`(add 1 2 3)`) and allow `_` or `_1`, `_2` ... to represent the first, the second arguments and so on.
+2. Anonymous functions use polish notation (`(plus 1 2 3)`) and allow `_` or `_1`, `_2` ... to represent the first, the second arguments and so on.
 
 ### Math Functions
 
-#### `add`
+#### `plus`
 
 ```scss
-add(1, 2, 3) // 6
-add("#", "a", "b", "c") // "#abc"
+plus(1, 2, 3) // 6
+plus("#", "a", "b", "c") // "#abc"
 
-add([1, 2, 3]) // 6
-add(["#", "a", "b", "c"]) // "#abc"
+plus([1, 2, 3]) // 6
+plus(["#", "a", "b", "c"]) // "#abc"
+```
+
+#### `minus`
+
+```scss
+minus(1, 2, 3) // -4
+minus([1, 2, 3]) // -4
+```
+
+#### `multiply`
+
+```scss
+multiply(1, 2, 3) // 6
+multiply([1, 2, 3]) // 6
+```
+
+#### `divide`
+
+```scss
+divide(1, 2, 3) // 1/6
+divide([1, 2, 3]) // 1/6
 ```
 
 #### `inc`
@@ -168,10 +189,10 @@ conj((a: 1, b: 2), (c: 3)); // (a: 1, b: 2, c: 3)
 
 ```scss
 map(inc, 1, 2, 3) // (2, 3, 4)
-map((add _ 1), 1, 2, 3) // (2, 3, 4)
+map((plus _ 1), 1, 2, 3) // (2, 3, 4)
 
 map(inc, [1, 2, 3]) // (2, 3, 4)
-map((add _ 1), [1, 2, 3]) // (2, 3, 4)
+map((plus _ 1), [1, 2, 3]) // (2, 3, 4)
 ```
 
 #### `filter`
@@ -189,11 +210,11 @@ filter((greater _ 1), 1, 2, 3) // (2 3)
 `reduce($fn, $init, $list)` or `redure($fn, $init, $list...)`
 
 ```scss
-reduce((add _1 _2), 0, 1, 2, 3) // 6
-reduce((add _1 _2 _2), "#", "a", "b", "c") // "#aabbcc"
+reduce((plus _1 _2), 0, 1, 2, 3) // 6
+reduce((plus _1 _2 _2), "#", "a", "b", "c") // "#aabbcc"
 
-reduce((add _1 _2), 0, [1, 2, 3]) // 6
-reduce((add _1 _2 _2), "#", ["a", "b", "c"]) // "#aabbcc"
+reduce((plus _1 _2), 0, [1, 2, 3]) // 6
+reduce((plus _1 _2 _2), "#", ["a", "b", "c"]) // "#aabbcc"
 ```
 
 #### `some`
@@ -223,21 +244,21 @@ every(odd, [-1, 0, 9]) // false
 Same as the `as->` macro in Clojure.
 
 ```scss
-thread-as(1, inc, (add 10 _ 5), inc, dec) // 17
+thread-as(1, inc, (plus 10 _ 5), inc, dec) // 17
 ```
 
 #### `thread-first`
 
 Same as the `->` macro in Clojure.
 
 ```scss
-thread-first(1, inc, (add 10 5), inc, dec) // 17
+thread-first(1, inc, (plus 10 5), inc, dec) // 17
 ```
 
 #### `thread-last`
 
 Same as the `->>` macro in Clojure.
 
 ```scss
-thread-last(1, inc, (add 10 5), inc, dec) // 17
+thread-last(1, inc, (plus 10 5), inc, dec) // 17
 ```

__tests__/test.scss

@@ -28,28 +28,43 @@
 
   @include test("__call-fn") {
     @include assert-equal(__call-fn("inc", 1), 2);
-    @include assert-equal(__call-fn("add", 1, 2, 3), 6);
+    @include assert-equal(__call-fn("plus", 1, 2, 3), 6);
   }
 
   @include test("__call-lambda") {
-    @include assert-equal(__call-lambda((add _ 10), 1), 11);
-    @include assert-equal(__call-lambda((add _1 _2), 1, 2), 3);
+    @include assert-equal(__call-lambda((plus _ 10), 1), 11);
+    @include assert-equal(__call-lambda((plus _1 _2), 1, 2), 3);
   }
 
   @include test("__auto-call") {
     @include assert-equal(__auto-call("inc", 1), 2);
-    @include assert-equal(__auto-call("add", 1, 2, 3), 6);
-    @include assert-equal(__auto-call((add _ 10), 1), 11);
-    @include assert-equal(__auto-call((add _1 _2), 1, 2), 3);
+    @include assert-equal(__auto-call("plus", 1, 2, 3), 6);
+    @include assert-equal(__auto-call((plus _ 10), 1), 11);
+    @include assert-equal(__auto-call((plus _1 _2), 1, 2), 3);
   }
 }
 
 @include test-module("Test math functions:") {
-  @include test("add") {
-    @include assert-equal(add([1, 2, 3]), 6);
-    @include assert-equal(add([ "#", "a", "b", "c" ]), "#abc");
-    @include assert-equal(add(1, 2, 3), 6);
-    @include assert-equal(add("#", "a", "b", "c"), "#abc");
+  @include test("plus") {
+    @include assert-equal(plus([1, 2, 3]), 6);
+    @include assert-equal(plus(1, 2, 3), 6);
+    @include assert-equal(plus([ "#", "a", "b", "c" ]), "#abc");
+    @include assert-equal(plus("#", "a", "b", "c"), "#abc");
+  }
+
+  @include test("minus") {
+    @include assert-equal(minus([1, 2, 3]), -4);
+    @include assert-equal(minus(1, 2, 3), -4);
+  }
+
+  @include test("multiply") {
+    @include assert-equal(multiply([1, 2, 3]), 6);
+    @include assert-equal(multiply(1, 2, 3), 6);
+  }
+
+  @include test("divide") {
+    @include assert-equal(divide([1, 2, 3]), 1/6);
+    @include assert-equal(divide(1, 2, 3), 1/6);
   }
 
   @include test("inc") {
@@ -217,10 +232,10 @@
 @include test-module("Test iterator functions:") {
   @include test("map") {
     @include assert-equal(map(inc, [1 2 3]), (2 3 4));
-    @include assert-equal(map((add 1 _), [1 2 3]), (2 3 4));
+    @include assert-equal(map((plus 1 _), [1 2 3]), (2 3 4));
     @include assert-equal(map(first, [[1] [2] [3]]), (1 2 3));
     @include assert-equal(map(inc, 1, 2, 3), (2 3 4));
-    @include assert-equal(map((add 1 _), 1, 2, 3), (2 3 4));
+    @include assert-equal(map((plus 1 _), 1, 2, 3), (2 3 4));
     @include assert-equal(map(first, [1], [2], [3]), (1 2 3));
   }
 
@@ -232,14 +247,14 @@
   }
 
   @include test("reduce") {
-    @include assert-equal(reduce((add _1 _2), 0, (1 2 3)), 6);
+    @include assert-equal(reduce((plus _1 _2), 0, (1 2 3)), 6);
     @include assert-equal(
-      reduce((add _1 _2 _2), "#", [ "a", "b", "c" ]),
+      reduce((plus _1 _2 _2), "#", [ "a", "b", "c" ]),
       "#aabbcc"
     );
-    @include assert-equal(reduce((add _1 _2), 0, 1, 2, 3), 6);
+    @include assert-equal(reduce((plus _1 _2), 0, 1, 2, 3), 6);
     @include assert-equal(
-      reduce((add _1 _2 _2), "#", "a", "b", "c"),
+      reduce((plus _1 _2 _2), "#", "a", "b", "c"),
       "#aabbcc"
     );
   }
@@ -261,14 +276,14 @@
 
 @include test-module("Test thread functions:") {
   @include test("thread-as") {
-    @include assert-equal(thread-as(1, inc, (add 10 _ 5), inc, dec), 17);
+    @include assert-equal(thread-as(1, inc, (plus 10 _ 5), inc, dec), 17);
   }
 
   @include test("thread-first") {
-    @include assert-equal(thread-first(1, inc, (add 10 5), inc, dec), 17);
+    @include assert-equal(thread-first(1, inc, (plus 10 5), inc, dec), 17);
   }
 
   @include test("thread-last") {
-    @include assert-equal(thread-last(1, inc, (add 10 5), inc, dec), 17);
+    @include assert-equal(thread-last(1, inc, (plus 10 5), inc, dec), 17);
   }
 }

lambda.scss

@@ -80,7 +80,7 @@
 //  Math functions  //
 // ---------------- //
 
-@function add($list...) {
+@function plus($list...) {
   $_list: __arglist($list);
   $_result: list.nth($_list, 1);
 
@@ -91,6 +91,39 @@
   @return $_result;
 }
 
+@function minus($list...) {
+  $_list: __arglist($list);
+  $_result: list.nth($_list, 1);
+
+  @for $_i from 2 through list.length($_list) {
+    $_result: $_result - list.nth($_list, $_i);
+  }
+
+  @return $_result;
+}
+
+@function multiply($list...) {
+  $_list: __arglist($list);
+  $_result: list.nth($_list, 1);
+
+  @for $_i from 2 through list.length($_list) {
+    $_result: $_result * list.nth($_list, $_i);
+  }
+
+  @return $_result;
+}
+
+@function divide($list...) {
+  $_list: __arglist($list);
+  $_result: list.nth($_list, 1);
+
+  @for $_i from 2 through list.length($_list) {
+    $_result: $_result / list.nth($_list, $_i);
+  }
+
+  @return $_result;
+}
+
 @function inc($n) {
   @return $n + 1;
 }