Codebase list ohcount / 6ef9399e-69b6-464b-98a8-52915e284046/upstream test / src_dir / clj1.clj
6ef9399e-69b6-464b-98a8-52915e284046/upstream

Tree @6ef9399e-69b6-464b-98a8-52915e284046/upstream (Download .tar.gz)

clj1.clj @6ef9399e-69b6-464b-98a8-52915e284046/upstream — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
;;; Copyright (C) 2009 Brendan Ribera. All rights reserved.
;;; Distributed under the MIT License; see the file LICENSE
;;; at the root of this distribution.
(ns kdtree)

(defn dist-squared [a b]
    "Compute the K-dimensional distance between two points"
      (reduce + (for [i (range (count a))]
                                (let [v (- (nth a i)
                                            (nth b i))]
                                                  (* v v)))))

;;; Simple accessors
(defn- node-value [n] (first n))
(defn- node-left  [n] (first (rest n)))
(defn- node-right [n] (first (rest (rest n))))