http://www.thelastcitadel.com/ 2010-01-26T15:43:17-08:00 http://www.thelastcitadel.com/ http://www.thelastcitadel.com/lib/images/favicon.ico text/html 2010-01-26T14:52:56-08:00 Kevin Downey http://www.thelastcitadel.com/me?rev=1264546376&do=diff1264546376 <redchin@gmail.com> <hiredman@thelastcitadel.com> tag:thelastcitadel.com,1984-09-25:KevinDowney text/html 2010-01-06T13:59:13-08:00 Kevin Downey http://www.thelastcitadel.com/ideas?rev=1262815153&do=diff1262815153 * Online Dihime * AppEngine * Facebook * chat use facebook ids, figure this out * fb connect, least possible permissions * <http://forum.developers.facebook.com/viewtopic.php?id=21892> * currently fighting with lien * adding GAE plugin text/html 2009-12-21T12:59:08-08:00 Kevin Downey http://www.thelastcitadel.com/dirt-simple-clojure?rev=1261429148&do=diff1261429148 Steps: * mkdir $HOME/.jars/ * copy, move, or syslink all the jars you want to use into $HOME/.jars/ * Check your java version using java -version * If you are using a JRE version 1.6 or higher, continue, if not GOTO Step VII * in the init file for the shell of your choice, set the environment variable CLASSPATH=”$HOME/.jars/*” (the star should not be expanded by the shell) * GOTO Step VIII * in the init file for the shell of your choice, set the environment variable CLASSPATH… text/html 2009-08-19T02:07:15-08:00 Kevin Downey http://www.thelastcitadel.com/blag/super_structure?rev=1250672835&do=diff1250672835 text/html 2009-06-04T12:11:06-08:00 Kevin Downey http://www.thelastcitadel.com/blag/clojure_multi-method?rev=1244142666&do=diff1244142666 sort of pattern matchie (defmulti fib identity) (defmethod fib 0 [x] 0) (defmethod fib 1 [x] 1) (defmethod fib :default [n] (+ (fib (- n 2)) (fib (- n 1)))) text/html 2009-02-06T13:58:51-08:00 Kevin Downey http://www.thelastcitadel.com/blag/a_vision_of_the_future?rev=1233957531&do=diff1233957531 I have the sneaking suspicion that some time the next 30 days I am going to build a freebsd gateway/router/NAT/dhcp box. text/html 2009-02-03T21:30:49-08:00 Kevin Downey http://www.thelastcitadel.com/blag/i_am_really_tired_of_this_bullshit?rev=1233725449&do=diff1233725449 the soho router/gateway/dhcp boxes most people have in their homes are crap. all they do is cause problems. And I have to deal with this shit. At home, at work, and other people’s homes. Ugh. I hate it. D-Link, Belkin, Linksys, etc. Burn in fire. text/html 2008-11-21T02:31:32-08:00 Kevin Downey http://www.thelastcitadel.com/blag/i_am_undone?rev=1227263492&do=diff1227263492 A blackard, A villain. text/html 2008-11-19T21:18:25-08:00 Kevin Downey http://www.thelastcitadel.com/blag/form_at_line_n?rev=1227158305&do=diff1227158305 overly simple form parser (defn form-reader [charsource] (loop [[c & r] (seq charsource) open-parens-count 0 out []] (cond (= \( c) (recur r (inc open-parens-count) (conj out c)) (= \) c) (recur r (dec open-parens-count) (conj out c)) (and (not= 0 (count out)) (= open-parens-count 0)) (apply str out) :else (recur r open-parens-count (conj out c))))) (defn… text/html 2008-11-17T23:26:06-08:00 Kevin Downey http://www.thelastcitadel.com/clojure/arithmetic-mean?rev=1226993166&do=diff1226993166 (defn arith-mean [f n] (let [a (fn a [x & [w & i]] (fn [& [y & u]] (if (number? y) (a (+ x y) (inc w)) (/ x w ))))] (if (number? f) ((a f 1) n) (f n)))) text/html 2008-11-17T13:49:16-08:00 Kevin Downey http://www.thelastcitadel.com/kitten/shell?rev=1226958556&do=diff1226958556 5001 hiredman rincewind ~% [ -z $foo ] && echo "Way to go ace" Way to go ace 5002 hiredman rincewind ~% foo="a" 5003 hiredman rincewind ~% [ -z $foo ] && echo "Way to go ace" zsh: exit 1 5004 hiredman rincewind ~% text/html 2008-11-16T13:22:06-08:00 Kevin Downey http://www.thelastcitadel.com/clojure/time-meta?rev=1226870526&do=diff1226870526 (defmacro time-meta [expr] `(let [start# (. System (nanoTime)) ret# ~expr tim# (/ (- (. System (nanoTime)) start#))] (with-meta [ret#] {:time tim#}))) user=> (time-meta (math/f! 5)) [120] user=> (meta (time-meta (math/f! 5))) {:time 1/43581} user=> text/html 2008-11-16T10:27:01-08:00 Kevin Downey http://www.thelastcitadel.com/blag/combinator_fn?rev=1226860021&do=diff1226860021 (defn combinate [& x] (loop [i x f I] (if (> (count i) 2) (recur (rest i) (f (first i))) f))) text/html 2008-11-16T01:31:09-08:00 Kevin Downey http://www.thelastcitadel.com/blag/combinator?rev=1226827869&do=diff1226827869 (defn K [x] (fn [y] x )) (defn S [x] (fn [y] (fn [z] ((x z) (y z))))) (defn I [x] (((S K) K) x)) (defmacro combinate [& x] (loop [i x] (if (> (count i) 2) (recur (conj (drop 2 i) (list (first i) (second i)))) i))) text/html 2008-11-13T12:57:21-08:00 Kevin Downey http://www.thelastcitadel.com/blag/pipe_macro?rev=1226609841&do=diff1226609841 (defmacro |> [& x] (loop [q (rest x) w (first x)] (if q (recur (rest q) (list (first q) w)) w))) This macro is rather similar to -->. In fact I wrote it because I did not understand -->. |> is simpler then -->. |> can also take function literals in the pipeline, which --> tends to make a mess of. text/html 2008-08-28T19:15:05-08:00 Kevin Downey http://www.thelastcitadel.com/blag/barbie?rev=1219976105&do=diff1219976105 text/html 2008-07-18T11:32:29-08:00 Kevin Downey http://www.thelastcitadel.com/blag/friday_working?rev=1216405949&do=diff1216405949 text/html 2008-07-15T13:21:42-08:00 Kevin Downey http://www.thelastcitadel.com/blag/cat?rev=1216153302&do=diff1216153302 text/html 2008-07-10T12:31:06-08:00 Kevin Downey http://www.thelastcitadel.com/blag/budgetting_for_budgets?rev=1215718266&do=diff1215718266 Yesterday the $OWNER of $COMPANY was in a tizzy about budgets. I keep the budgets for the business. The budgets are basically just lists of expenses on a job. Expenses break down as labor and material. So $OWNER asked me to print out info on a lot of budgets so she could micromanage them. This got me to thinking that maybe I should do a weekly budget report available to everyone in the office. When I ran the idea by my immediate boss his reaction was “No, no no, No”. text/html 2008-07-07T10:31:42-08:00 Kevin Downey http://www.thelastcitadel.com/blag/pro_tip?rev=1215451902&do=diff1215451902 Yesterday I went to Red Robin with some out of towners who were in town for T2. We left a 15% tip. And a paper crane, a stick of gum, a fifty-cent piece, a cough-drop, and a Lowe’s coupon for $25 off a purchase of $250 or more.