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.
97 lines
3.1 KiB
97 lines
3.1 KiB
;; -*- lexical-binding: t; eval: (font-lock-add-keywords nil '(("defexamples\\| => " (0 'font-lock-keyword-face)))); -*- |
|
|
|
;; 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 !keep |
|
(!keep 'cdr '((1 2 3) (4 5) (6))) => '((2 3) (5)) |
|
(!keep (lambda (num) (when (> num 3) (* 10 num))) '(1 2 3 4 5 6)) => '(40 50 60) |
|
(!!keep (when (> it 3) (* 10 it)) '(1 2 3 4 5 6)) => '(40 50 60)) |
|
|
|
(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) |
|
|
|
(defexamples !some |
|
(!some 'even? '(1 2 3)) => t |
|
(!some 'even? '(1 3 5)) => nil |
|
(!!some (= 0 (% it 2)) '(1 2 3)) => t) |
|
|
|
(defexamples !every? |
|
(!every? 'even? '(1 2 3)) => nil |
|
(!every? 'even? '(2 4 6)) => t |
|
(!!every? (= 0 (% it 2)) '(2 4 6)) => t) |
|
|
|
(defexamples !each |
|
(let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s))))) => nil |
|
(let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s)))) s) => '(3 2 1) |
|
(let (s) (!!each '(1 2 3) (setq s (cons it s))) s) => '(3 2 1))
|
|
|