LauJensen

<link rel="import" href="../core-drawer-panel/core-drawer-panel.html">

<polymer-element name="my-element">

  <template>
    <style>    
      :host {
        position: absolute;
        width: 100%;
        height: 100%;

LauJensen

<link rel="import" href="../paper-input/paper-input.html">

<polymer-element name="my-element">

  <template>
    <style>    
      :host {
        position: absolute;
        width: 100%;
        height: 100%;

LauJensen

clojureql.core> (project (table :t1) 
                         [:id (case :wages 
                                (<= :wage 5)  "low" 
                                (>= :wage 10) "high" 
                                :else "average")])
SELECT t1.id,CASE 
               WHEN (wage <= 5)  THEN low 
               WHEN (wage >= 10) THEN high 
              ELSE average 
             END AS wages 

LauJensen

clojureql.core> (let [photo-counts (table {} :photos [:user_id [:count:* :as :cnt]])]
                     (-> (table {} :users [:*])
                         (join photo-counts (= {:users.user_id :photos.user_id}))
                         compile))
"SELECT users.*,photos_aggregation.cnt FROM users 
LEFT OUTER JOIN 
(SELECT photos.user_id,count(photos.*) AS cnt FROM photos GROUP BY user_id) 
AS photos_aggregation ON (users.user_id = photos_aggregation.user_id)"

LauJensen

;; Examples from: http://www.databasteknik.se/webbkursen/relalg-lecture/index.html

(def employees   (table connection-info :employees))
(def departments (table connection-info :departments))


;;== Projection ==

;; SELECT salary FROM employees
@(project employees #{:salary})

LauJensen

(-> (join [:employees :e] [:employees :b] {:e.mgr :b.nr})
    (select (= :b.name "John"))
    (project :b.name))

LauJensen

Server Software:        aleph
Server Hostname:        localhost
Server Port:            9292

Document Path:          /
Document Length:        6 bytes

Concurrency Level:      50
Time taken for tests:   9.565 seconds
Complete requests:      10000

LauJensen

;;; See the inspirational SO question: http://stackoverflow.com/questions/3346382

(require 'clojure.contrib.trace)

(defn trace-ns
  "Replaces each function from the given namespace with a version wrapped
  in a tracing call. Can be undone with untrace-ns. ns should be a namespace
  object or a symbol."
  [ns]
  (doseq [s (keys (ns-interns ns))

LauJensen

(defn with-timeout [thunk]
  (let [task (FutureTask. thunk)
        thr  (Thread. task)]
    (try
     (.start thr)
     (.get task 10 TimeUnit/SECONDS)
     (catch TimeoutException e
       (.cancel task true)
       (.stop thr (Exception. e))
       nil))))

LauJensen

;new num branch results

(defn fib [n]
  (if (>= 1 n)
    1
    (+ (fib (dec n)) (fib (- n 2)))))

(time (fib 38))

"Elapsed time: 3716.828 msecs"