10 lines
259 B
Plaintext
10 lines
259 B
Plaintext
;;;; A file loaded into a session with no main: a generic and a plain function.
|
|
(defn biggest [xs [$t]] $t
|
|
{:where (is-ordered $t)}
|
|
(let [m (at xs 0)]
|
|
(dotimes [i (length xs)]
|
|
(set m (max m (at xs i))))
|
|
m))
|
|
|
|
(defn twice [n i64] i64 (* 2 n))
|