ChanglinZhou

var PGDataSource = Java.type("org.postgresql.ds.PGSimpleDataSource");

function showResultSetHeader(rs) {
  var metadata = rs.getMetaData();
  var result = "";
  for (var i = 1; i < metadata.getColumnCount(); ++i)
	  result = result + metadata.getColumnName(i) + "\t";
  result = result + metadata.getColumnName(metadata.getColumnCount());
  print(result);
}

ChanglinZhou

(let [exp10 #(reduce * 1 (repeat % 10))  
      combine (fn [n1 ev]
                (loop [r n1 n2 (if ev n1 (quot n1 10))]
                  (if (zero? n2) r
                      (recur (+ (* 10 r) (rem n2 10)) (quot n2 10)))))
      gen (fn gen [start end ev]  
            (lazy-cat
             (if ev nil (map #(combine % ev) (range start end)))
             (map #(combine % true) (range (if ev start (quot end 10)) end))
             (gen end (* end 10) false)))