You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.3 KiB
77 lines
2.3 KiB
;; -*- lexical-binding: t -*- |
|
|
|
;; Only the first three examples per function are shown in the docs, |
|
;; so make those good. |
|
|
|
(require 'bang) |
|
|
|
(defun even? (num) (= 0 (% num 2))) |
|
(defun square (num) (* num num)) |
|
|
|
(defexamples !map |
|
(!map (lambda (num) (* num num)) '(1 2 3 4)) => '(1 4 9 16) |
|
(!map 'square '(1 2 3 4)) => '(1 4 9 16) |
|
(!!map (* it it) '(1 2 3 4)) => '(1 4 9 16)) |
|
|
|
(defexamples !reduce-from |
|
(!reduce-from '+ 7 '(1 2)) => 10 |
|
(!reduce-from (lambda (memo item) (+ memo item)) 7 '(1 2)) => 10 |
|
(!!reduce-from (+ acc it) 7 '(1 2 3)) => 13 |
|
(!reduce-from '+ 7 '()) => 7 |
|
(!reduce-from '+ 7 '(1)) => 8) |
|
|
|
(defexamples !reduce |
|
(!reduce '+ '(1 2)) => 3 |
|
(!reduce (lambda (memo item) (format "%s-%s" memo item)) '(1 2 3)) => "1-2-3" |
|
(!!reduce (format "%s-%s" acc it) '(1 2 3)) => "1-2-3" |
|
(!reduce '+ '()) => 0 |
|
(!reduce '+ '(1)) => 1 |
|
(!!reduce (format "%s-%s" acc it) '()) => "nil-nil") |
|
|
|
(defexamples !filter |
|
(!filter (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) => '(2 4) |
|
(!filter 'even? '(1 2 3 4)) => '(2 4) |
|
(!!filter (= 0 (% it 2)) '(1 2 3 4)) => '(2 4)) |
|
|
|
(defexamples !remove |
|
(!remove (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) => '(1 3) |
|
(!remove 'even? '(1 2 3 4)) => '(1 3) |
|
(!!remove (= 0 (% it 2)) '(1 2 3 4)) => '(1 3) |
|
(let ((mod 2)) (!remove (lambda (num) (= 0 (% num mod))) '(1 2 3 4))) => '(1 3) |
|
(let ((mod 2)) (!!remove (= 0 (% it mod)) '(1 2 3 4))) => '(1 3)) |
|
|
|
(defexamples !concat |
|
(!concat '(1)) => '(1) |
|
(!concat '(1) '(2)) => '(1 2) |
|
(!concat '(1) '(2 3) '(4)) => '(1 2 3 4) |
|
(!concat) => nil) |
|
|
|
(defexamples !mapcat |
|
(!mapcat 'list '(1 2 3)) => '(1 2 3) |
|
(!mapcat (lambda (item) (list 0 item)) '(1 2 3)) => '(0 1 0 2 0 3) |
|
(!!mapcat (list 0 it) '(1 2 3)) => '(0 1 0 2 0 3)) |
|
|
|
(defexamples !partial |
|
(funcall (!partial '+ 5) 3) => 8 |
|
(funcall (!partial '+ 5 2) 3) => 10) |
|
|
|
(defexamples !difference |
|
(!difference '() '()) => '() |
|
(!difference '(1 2 3) '(4 5 6)) => '(1 2 3) |
|
(!difference '(1 2 3 4) '(3 4 5 6)) => '(1 2)) |
|
|
|
(defexamples !intersection |
|
(!intersection '() '()) => '() |
|
(!intersection '(1 2 3) '(4 5 6)) => '() |
|
(!intersection '(1 2 3 4) '(3 4 5 6)) => '(3 4)) |
|
|
|
(defexamples !distinct |
|
(!distinct '()) => '() |
|
(!distinct '(1 2 2 4)) => '(1 2 4)) |
|
|
|
(defexamples !contains? |
|
(!contains? '(1 2 3) 1) => t |
|
(!contains? '(1 2 3) 2) => t |
|
(!contains? '(1 2 3) 4) => nil |
|
(!contains? '() 1) => nil |
|
(!contains? '() '()) => nil)
|
|
|