best-examples.nydp

(examples-for best
  ("finds minimum of list"
   (best < '(3 5 4 7 8 2))
   2)

  ("finds minimum of list of syms"
   (best < '(c g d o p b m e g z m))
   b)

  ("finds minimum of list of strings"
   (best < '("c" "g" "d" "o" "p" "b" "z" "m"))
   "b")

  ("finds maximum of list of strings"
   (best > '("c" "g" "d" "o" "p" "b" "y" "m"))
   "y")

  ("finds maximum of list of syms"
   (best > '(c g d o a p b m e g a z m))
   z)

  ("finds object with max size"
   (to-string:best (map-compare-f > &size)
              (list { i 0 size 3 }
                    { i 1 size 1 }
                    { i 2 size 7 }
                    { i 3 size 4 }
                    { i 4 size 5 }))
   "{:i=>2, :size=>7}")

  ("finds maximum of list of numbers"
   (best > '(3 5 4 7 8 2))
   8))

(examples-for min
  ("finds minimum of list"
   (min 3 5 4 7 8 2)
   2))

(examples-for max
  ("finds minimum of list"
   (max 3 5 4 7 8 2)
   8))