Instantly share code, notes, and snippets.

View designer.html
<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%;
View designer.html
<link rel="import" href="../paper-input/paper-input.html">
<polymer-element name="my-element">
<template>
<style>
:host {
position: absolute;
width: 100%;
height: 100%;
View gist:789530
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
View gist:666980
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)"
View clojure-relational-algebra.clj
;; 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})
View clojure-relational-algebra.clj
(-> (join [:employees :e] [:employees :b] {:e.mgr :b.nr})
(select (= :b.name "John"))
(project :b.name))
View ab
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
View trace-ns.clj
;;; 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))
View client.clj
(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))))
View gist:442044
;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"