;; -*- 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 !uniq
  (!uniq '()) => '()
  (!uniq '(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)