- ([x] true)
- ([x y] (not (neg? (db/value-compare x y))))
- ([x y & more]
- (if (greater-equal x y)
- (if (next more)
- (recur y (first more) (next more))
- (greater-equal y (first more)))
- false)))
- (def query-fns {
- '= =, '== ==, 'not= not=, '!= not=,
- '< less, '> greater, '<= less-equal, '>= greater-equal,
- '+ +, '- -, '* *, '/ /,
- 'quot quot, 'rem rem, 'mod mod, 'inc inc, 'dec dec, 'max max, 'min min,
- 'zero? zero?, 'pos? pos?, 'neg? neg?, 'even? even?, 'odd? odd?, 'compare compare,
- 'rand rand, 'rand-int rand-int,
- 'true? true?, 'false? false?, 'nil? nil?, 'some? some?, 'not not, 'and and-fn, 'or or-fn,
- 'complement complement, 'identical? identical?,
- 'identity identity, 'keyword keyword, 'meta meta, 'name name, 'namespace namespace, 'type type,
- 'vector vector, 'list list, 'set set, 'hash-map hash-map, 'array-map array-map,
- 'count count, 'range range, 'not-empty not-empty, 'empty? empty?, 'contains? contains?,