Add anaphoric example to --max-by and --min-by

master
Magnar Sveen 13 years ago
parent 2a7fbdc507
commit 9a149bf85a
  1. 2
      dev/examples.el

@ -117,6 +117,7 @@
(defexamples -min-by
(-min-by '> '(4 3 6 1)) => 1
(-min-by (-on '> 'length) '((1 2 3) (1) (1 2))) => '(1)
(--min-by (> (length it) (length other)) '((1 2 3) (1) (1 2))) => '(1)
(-min-by (-on 'string-lessp 'int-to-string) '(2 100 22)) => 22
(-min-by '< '(4 3 6 1)) => 6)
@ -128,6 +129,7 @@
(defexamples -max-by
(-max-by '> '(4 3 6 1)) => 6
(-max-by (-on '> 'car) '((2 2 3) (3) (1 2))) => '(3)
(--max-by (> (car it) (car other)) '((2 2 3) (3) (1 2))) => '(3)
(-max-by (-on '> 'string-to-int) '("1" "2" "3")) => "3"
(-max-by '< '(4 3 6 1)) => 1)

Loading…
Cancel
Save