pcomans

(defn throw-catch [f]
  [(try
     (f)
     (catch ArithmeticException e "No dividing by zero!")
     (catch Exception e (str "You are so bad " (.getMessage e)))
     (finally (println "returning... ")))])

pcomans

(throw (Exception. "Oh noes!"))
(defn throw-catch [f]
  (try
    (f)
    (catch ArithmeticException e "Are you bad at math?")
    (catch Exception e (str "That didn't work!" e))
    (finally (println "returning..."))))

pcomans

(defn xors
  "Returns bitwise XORs"
  [max-x max-y]
  (for [x (range max-x)
        y (range max-y)]
    [x y (bit-xor x y)]))

(def frame (java.awt.Frame.))
(.setVisible frame true)
(.setSize frame (java.awt.Dimension. 512 512))

pcomans

(defn mkframe []
  (let [frame (java.awt.Frame.)]
    (.setVisible frame true)
    (.setSize frame (java.awt.Dimension. 512 512))
    (let [gfx (.getGraphics frame)]
      (.drawString gfx (.. (java.util.Date.) toString) 160 256))))

pcomans

(defn frac-pp [x]
  (let [rat (if (rational? x) x (rationalize x))
        num (numerator rat)
        den (denominator rat)]
    (println num)
    (println "-----")
    (println den)))

(frac-pp 1.5)
(frac-pp (/ 3 2))

pcomans

(ns lang-map
  (:use [clojure.data.json :only (json-str write-json read-json)]))

(defn wiki-lookup [word]
  (let [query (str "http://en.wikipedia.org/w/api.php?action=opensearch&search=" word "&namespace=0&format=json")]
    (read-json (slurp query))))

(wiki-lookup "Scheme")

pcomans

(defn acc-tail-merge
  "Trololo"
  [acc list1 list2 func]
  (cond
   (empty? list1) (concat acc list2)
   (empty? list2) (concat acc list1)
   :else (let [[first1 & rest1] list1
               [first2 & rest2] list2
               [small-first small-rest large-list] (if (func first1 first2) [first1 rest1 list2] [first2 rest2 list1])
               new-acc (concat acc [small-first])]

pcomans

trololo!

pcomans

// ==UserScript==
// @name          Instapaper Fonts
// @namespace     http://www.philippcomans.de/userscripts
// @description   Changes fonts on Instapaper
// @match         http://www.instapaper.com/read/*
// ==/UserScript==

(function() {
  var head = document.getElementsByTagName('head')[0];
  var wf = document.createElement('link');

pcomans