acj

// This implementation assumes that the origin is at the upper-left corner of the
// drawing surface.
//
// Sample usage:
//
// Paint paint = new Paint();
// paint.setStyle(Paint.Style.STROKE);
// float centerX = 200;
// float centerY = 200;
// float radius = 100;

acj

; Example usage: (mergesort [5 1 8 16 25 11 4])
(ns mergesort
  (:use clojure.contrib.math))

(defn merge-two
  "Merge two (already sorted) vectors"
  [vec1 vec2]
  (let [v1f (first vec1) v2f (first vec2)]
    (cond
      (empty? vec1) vec2