http://clojuredocs.org Sat, 04 Feb 2012 15:27:03 GMT Recently updated examples and comments from ClojureDocs.org. http://clojuredocs.org/clojure_core/clojure.core/*clojure-version* Sat, 04 Feb 2012 15:27:03 GMT http://clojuredocs.org/clojure_core/clojure.core/bound_q Sat, 04 Feb 2012 15:23:05 GMT http://clojuredocs.org/clojure_core/clojure.core/first Fri, 03 Feb 2012 23:48:28 GMT http://clojuredocs.org/clojure_core/clojure.core/rest Fri, 03 Feb 2012 23:47:32 GMT http://clojuredocs.org/clojure_contrib/clojure.contrib.prxml/prxml Tue, 31 Jan 2012 21:44:24 GMT http://clojuredocs.org/clojure_contrib/clojure.contrib.prxml/prxml A&nbsp;good&nbsp;discussion&nbsp;of&nbsp;how&nbsp;to&nbsp;use&nbsp;this&nbsp;can&nbsp;be&nbsp;found&nbsp;<a&nbsp;href="http://nakkaya.com/2009/10/10/processing-xml-with-clojure/">here</a>. <br&nbsp;/> <br&nbsp;/>Also,&nbsp;a&nbsp;1.3&nbsp;compatible&nbsp;port&nbsp;is&nbsp;<a&nbsp;href="https://github.com/weissjeffm/clojure.prxml">available&nbsp;on&nbsp;github</a>. Tue, 31 Jan 2012 21:44:11 GMT http://clojuredocs.org/clojure_core/clojure.xml/emit A&nbsp;1.3&nbsp;compatible&nbsp;version&nbsp;of&nbsp;prxml&nbsp;can&nbsp;be&nbsp;found&nbsp;here: <br&nbsp;/> <br&nbsp;/>https://github.com/weissjeffm/clojure.prxml Tue, 31 Jan 2012 21:41:26 GMT http://clojuredocs.org/clojure_core/clojure.core/ns-resolve user=>&nbsp;(defn&nbsp;f&nbsp;[n]&nbsp;(*&nbsp;n&nbsp;n&nbsp;n))<br&nbsp;/>#'user/f<br&nbsp;/>user=>&nbsp;((ns-resolve&nbsp;*ns*&nbsp;(symbol&nbsp;"f"))&nbsp;10)<br&nbsp;/>1000 Tue, 31 Jan 2012 02:50:15 GMT http://clojuredocs.org/clojure_core/clojure.core/min-key ;&nbsp;"min-key"/"max-key"&nbsp;to&nbsp;"min"/"max"&nbsp;like&nbsp;"sort-by"&nbsp;to&nbsp;"sort"<br&nbsp;/>(min-key&nbsp;#(Math/abs&nbsp;%)&nbsp;-3&nbsp;1&nbsp;4)<br&nbsp;/>;&nbsp;1<br&nbsp;/><br&nbsp;/>(apply&nbsp;min-key&nbsp;#(Math/abs&nbsp;%)&nbsp;[-3&nbsp;1&nbsp;4])<br&nbsp;/>;&nbsp;1<br&nbsp;/> Tue, 31 Jan 2012 02:40:03 GMT http://clojuredocs.org/clojure_core/clojure.core/assoc! Sun, 29 Jan 2012 14:10:49 GMT http://clojuredocs.org/clojure_core/clojure.core/assoc! ;;&nbsp;The&nbsp;key&nbsp;concept&nbsp;to&nbsp;understand&nbsp;here&nbsp;is&nbsp;that&nbsp;transients&nbsp;are&nbsp;<br&nbsp;/>;;&nbsp;not&nbsp;meant&nbsp;to&nbsp;be&nbsp;`bashed&nbsp;in&nbsp;place`;&nbsp;always&nbsp;use&nbsp;the&nbsp;value&nbsp;<br&nbsp;/>;;&nbsp;returned&nbsp;by&nbsp;either&nbsp;assoc!&nbsp;or&nbsp;other&nbsp;functions&nbsp;that&nbsp;operate<br&nbsp;/>;;&nbsp;on&nbsp;transients.&nbsp;<br&nbsp;/><br&nbsp;/>(defn&nbsp;merge2<br&nbsp;/>&nbsp;&nbsp;"An&nbsp;example&nbsp;implementation&nbsp;of&nbsp;`merge`&nbsp;using&nbsp;transients."<br&nbsp;/>&nbsp;&nbsp;[x&nbsp;y]<br&nbsp;/>&nbsp;&nbsp;(persistent!&nbsp;(reduce<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(fn&nbsp;[res&nbsp;[k&nbsp;v]]&nbsp;(assoc!&nbsp;res&nbsp;k&nbsp;v))<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(transient&nbsp;x)<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y))) Sun, 29 Jan 2012 14:10:26 GMT http://clojuredocs.org/clojure_core/clojure.core/isa_q Sat, 28 Jan 2012 23:09:51 GMT http://clojuredocs.org/clojure_core/clojure.core/sort-by ;sort&nbsp;entries&nbsp;in&nbsp;a&nbsp;map&nbsp;by&nbsp;value<br&nbsp;/>user=>&nbsp;(sort-by&nbsp;val&nbsp;>&nbsp;{:foo&nbsp;7,&nbsp;:bar&nbsp;3,&nbsp;:baz&nbsp;5})<br&nbsp;/>([:foo&nbsp;7]&nbsp;[:baz&nbsp;5]&nbsp;[:bar&nbsp;3]) Sat, 28 Jan 2012 04:04:46 GMT http://clojuredocs.org/clojure_core/clojure.core/ns-name ;;&nbsp;get&nbsp;the&nbsp;namespace&nbsp;name&nbsp;as&nbsp;string<br&nbsp;/>user=>&nbsp;(ns-name&nbsp;(the-ns&nbsp;'user))<br&nbsp;/>user<br&nbsp;/> Thu, 26 Jan 2012 04:09:33 GMT http://clojuredocs.org/clojure_core/clojure.core/refer Wed, 25 Jan 2012 10:16:29 GMT http://clojuredocs.org/clojure_core/clojure.core/refer-clojure Wed, 25 Jan 2012 10:16:11 GMT http://clojuredocs.org/clojure_core/clojure.core/dotimes Wed, 25 Jan 2012 06:30:44 GMT http://clojuredocs.org/clojure_core/clojure.core/repeat Wed, 25 Jan 2012 06:30:29 GMT http://clojuredocs.org/clojure_core/clojure.core/locking user=>&nbsp;(def&nbsp;o&nbsp;(Object.)) <br&nbsp;/> <br&nbsp;/>user=>&nbsp;(future&nbsp;(locking&nbsp;o&nbsp; <br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Thread/sleep&nbsp;10000)&nbsp; <br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(println&nbsp;"done"))) <br&nbsp;/> <br&nbsp;/>;;&nbsp;Now&nbsp;run&nbsp;this&nbsp;again&nbsp;before&nbsp;10&nbsp;seconds&nbsp;is&nbsp;up&nbsp;and&nbsp;you'll&nbsp; <br&nbsp;/>;;&nbsp;find&nbsp;the&nbsp;second&nbsp;instance&nbsp;prints&nbsp;done&nbsp;10&nbsp;seconds&nbsp;after&nbsp;the&nbsp; <br&nbsp;/>;;&nbsp;first&nbsp;instance&nbsp;has&nbsp;released&nbsp;the&nbsp;lock <br&nbsp;/> <br&nbsp;/>user=>&nbsp;(future&nbsp;(locking&nbsp;o&nbsp; <br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Thread/sleep&nbsp;10000)&nbsp; <br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(println&nbsp;"done"))) <br&nbsp;/> <br&nbsp;/>;;&nbsp;Operates&nbsp;like&nbsp;the&nbsp;synchronized&nbsp;keyword&nbsp;in&nbsp;Java. <br&nbsp;/> Fri, 20 Jan 2012 13:11:58 GMT http://clojuredocs.org/clojure_core/clojure.core/*read-eval* ;;just&nbsp;from&nbsp;the&nbsp;doc<br&nbsp;/><br&nbsp;/>(binding&nbsp;[*read-eval*&nbsp;false]&nbsp;(read-string&nbsp;"#=(eval&nbsp;(def&nbsp;x&nbsp;3))"))<br&nbsp;/>=>&nbsp;EvalReader&nbsp;not&nbsp;allowed&nbsp;when&nbsp;*read-eval*&nbsp;is&nbsp;false.<br&nbsp;/>&nbsp;&nbsp;[Thrown&nbsp;class&nbsp;java.lang.RuntimeException]<br&nbsp;/><br&nbsp;/>;;remove&nbsp;the&nbsp;anonymous&nbsp;function:<br&nbsp;/><br&nbsp;/>(binding&nbsp;[*read-eval*&nbsp;false]&nbsp;(read-string&nbsp;"(def&nbsp;x&nbsp;3)"))<br&nbsp;/>=>&nbsp;(def&nbsp;x&nbsp;3)<br&nbsp;/><br&nbsp;/>;;which&nbsp;is&nbsp;evaluable<br&nbsp;/><br&nbsp;/>(eval&nbsp;(binding&nbsp;[*read-eval*&nbsp;false]&nbsp;(read-string&nbsp;"(def&nbsp;x&nbsp;3)")))<br&nbsp;/>=>&nbsp;#'user/x<br&nbsp;/><br&nbsp;/>x<br&nbsp;/>=>3 Fri, 20 Jan 2012 12:19:20 GMT http://clojuredocs.org/clojure_core/clojure.core/associative_q user=>&nbsp;(associative?&nbsp;[1&nbsp;2&nbsp;3])&nbsp;;&nbsp;vector<br&nbsp;/>true<br&nbsp;/>user=>&nbsp;(associative?&nbsp;'(1&nbsp;2&nbsp;3))&nbsp;;&nbsp;list<br&nbsp;/>false<br&nbsp;/>user=>&nbsp;(associative?&nbsp;{:a&nbsp;1&nbsp;:b&nbsp;2})&nbsp;;&nbsp;map<br&nbsp;/>true<br&nbsp;/>user=>&nbsp;(associative?&nbsp;#{:a&nbsp;:b&nbsp;:c})&nbsp;;&nbsp;set<br&nbsp;/>false<br&nbsp;/>user=>&nbsp;(associative?&nbsp;"fred")&nbsp;;&nbsp;string<br&nbsp;/>false<br&nbsp;/> Fri, 20 Jan 2012 04:08:17 GMT http://clojuredocs.org/clojure_core/clojure.core/defmacro (defmacro&nbsp;unless&nbsp;[pred&nbsp;a&nbsp;b]<br&nbsp;/>&nbsp;&nbsp;`(if&nbsp;(not&nbsp;~pred)&nbsp;~a&nbsp;~b))<br&nbsp;/><br&nbsp;/>;;&nbsp;usage:<br&nbsp;/><br&nbsp;/>(unless&nbsp;false&nbsp;(println&nbsp;"Will&nbsp;print")&nbsp;(println&nbsp;"Will&nbsp;not&nbsp;print")) Fri, 20 Jan 2012 03:51:14 GMT http://clojuredocs.org/clojure_core/clojure.core/set-validator! (let&nbsp;[atm&nbsp;(atom&nbsp;[2])]<br&nbsp;/>&nbsp;&nbsp;(set-validator&nbsp;atm&nbsp;#(every?&nbsp;even?&nbsp;%))&nbsp;;&nbsp;side&nbsp;effect<br&nbsp;/>&nbsp;&nbsp;(swap!&nbsp;g&nbsp;into&nbsp;[5]))<br&nbsp;/>&nbsp;&nbsp;;&nbsp;#<CompilerException&nbsp;java.lang.IllegalStateException:&nbsp;Invalid&nbsp;reference&nbsp;state&nbsp;(NO_SOURCE_FILE:0)><br&nbsp;/>&nbsp;&nbsp;(set-validator&nbsp;atm&nbsp;nil)<br&nbsp;/>&nbsp;&nbsp;(swap!&nbsp;g&nbsp;into&nbsp;[5]))<br&nbsp;/>&nbsp;&nbsp;;&nbsp;>>>&nbsp;[2&nbsp;5] Wed, 18 Jan 2012 00:09:45 GMT http://clojuredocs.org/clojure_core/clojure.core/bit-shift-right From&nbsp;the&nbsp;IRC&nbsp;channel,&nbsp;a&nbsp;way&nbsp;to&nbsp;get&nbsp;zero-fill&nbsp;bit-shift-right: <br&nbsp;/> <br&nbsp;/><pre>06:08&nbsp;&lt;&nbsp;mikera&gt;&nbsp;(defn&nbsp;&gt;&gt;&gt;&nbsp;[v&nbsp;bits]&nbsp;(bit-shift-right&nbsp;(bit-and&nbsp;0xFFFFFFFF&nbsp;v)&nbsp;bits))</pre> <br&nbsp;/> <br&nbsp;/>There's&nbsp;also&nbsp;an&nbsp;open&nbsp;ticket&nbsp;for&nbsp;a&nbsp;[built-in&nbsp;version](http://dev.clojure.org/jira/browse/CLJ-827). Tue, 17 Jan 2012 00:38:17 GMT http://clojuredocs.org/clojure_core/clojure.core/restart-agent Mon, 16 Jan 2012 19:01:19 GMT http://clojuredocs.org/clojure_core/clojure.core/restart-agent Mon, 16 Jan 2012 19:01:15 GMT http://clojuredocs.org/clojure_core/clojure.core/satisfies_q Sat, 14 Jan 2012 23:09:18 GMT http://clojuredocs.org/clojure_core/clojure.core/extend Sat, 14 Jan 2012 23:08:36 GMT http://clojuredocs.org/clojure_core/clojure.core/extend Sat, 14 Jan 2012 23:08:31 GMT http://clojuredocs.org/clojure_core/clojure.core/extend Sat, 14 Jan 2012 23:08:27 GMT http://clojuredocs.org/clojure_core/clojure.core/ref Fri, 13 Jan 2012 22:14:14 GMT http://clojuredocs.org/clojure_core/clojure.core/dosync Fri, 13 Jan 2012 22:13:45 GMT http://clojuredocs.org/clojure_core/clojure.core/re-find ;;It's&nbsp;possible&nbsp;to&nbsp;get&nbsp;variables&nbsp;out&nbsp;of&nbsp;your&nbsp;string&nbsp;with&nbsp;regexp<br&nbsp;/><br&nbsp;/>user=>&nbsp;(re-find&nbsp;#"(\d\d\d)&nbsp;(USD)"&nbsp;"450&nbsp;USD")<br&nbsp;/>["450&nbsp;USD"&nbsp;"450"&nbsp;"USD"]<br&nbsp;/>user=>&nbsp;(nth&nbsp;*1&nbsp;1)<br&nbsp;/>"450"<br&nbsp;/><br&nbsp;/>;;thanks&nbsp;kotarak&nbsp;@&nbsp;stackoverflow.com&nbsp;for&nbsp;this&nbsp;one Thu, 12 Jan 2012 19:56:19 GMT http://clojuredocs.org/clojure_core/clojure.core/if-let I&nbsp;wonder&nbsp;what&nbsp;motivates&nbsp;the&nbsp;restriction&nbsp;of&nbsp;only&nbsp;one&nbsp;binding,&nbsp;e.g.&nbsp;many&nbsp;Schemes&nbsp;implement&nbsp;an&nbsp;`and-let*`&nbsp;form&nbsp;which&nbsp;allows&nbsp;multiple&nbsp;bindings,&nbsp;evaluating&nbsp;them&nbsp;in&nbsp;order&nbsp;and&nbsp;breaking&nbsp;out&nbsp;on&nbsp;the&nbsp;first&nbsp;binding&nbsp;that&nbsp;evaluates&nbsp;to&nbsp;false.&nbsp;Can&nbsp;somebody&nbsp;shed&nbsp;some&nbsp;light&nbsp;on&nbsp;this? Wed, 11 Jan 2012 18:24:42 GMT http://clojuredocs.org/clojure_core/clojure.core/binding ;;Use&nbsp;t&nbsp;like&nbsp;a&nbsp;"template"<br&nbsp;/><br&nbsp;/>(declare&nbsp;^:dynamic&nbsp;t)<br&nbsp;/><br&nbsp;/>(defn&nbsp;addt&nbsp;[]&nbsp;<br&nbsp;/>&nbsp;&nbsp;(+&nbsp;t&nbsp;10))<br&nbsp;/><br&nbsp;/>(binding&nbsp;[t&nbsp;1]<br&nbsp;/>&nbsp;&nbsp;(addt))<br&nbsp;/>=>&nbsp;11 Wed, 11 Jan 2012 17:01:37 GMT http://clojuredocs.org/clojure_core/clojure.core/alter Sun, 08 Jan 2012 12:08:08 GMT http://clojuredocs.org/clojure_core/clojure.core/ns-unalias ;;&nbsp;You&nbsp;are&nbsp;having&nbsp;a&nbsp;problem&nbsp;loading&nbsp;a&nbsp;redefined&nbsp;namespace:<br&nbsp;/>user=>&nbsp;(load&nbsp;"src/clj/com/tizra/layout_expander.clj")<br&nbsp;/>#<IllegalStateException&nbsp;java.lang.IllegalStateException:&nbsp;Alias&nbsp;xml&nbsp;already&nbsp;exists&nbsp;in&nbsp;namespace&nbsp;com.tizra.layout-expander,&nbsp;aliasing&nbsp;com.tizra.xml-match><br&nbsp;/><br&nbsp;/>;;&nbsp;ns-unalias&nbsp;to&nbsp;the&nbsp;rescue!<br&nbsp;/>user=>&nbsp;(ns-unalias&nbsp;(find-ns&nbsp;'com.tizra.layout-expander)&nbsp;'xml)<br&nbsp;/>nil<br&nbsp;/><br&nbsp;/>user=>&nbsp;(load&nbsp;"src/clj/com/tizra/layout_expander.clj")<br&nbsp;/>#'com.tizra.layout-expander/junk<br&nbsp;/> Sun, 08 Jan 2012 04:30:00 GMT http://clojuredocs.org/clojure_contrib/clojure.contrib.math/gcd Sat, 07 Jan 2012 15:43:21 GMT http://clojuredocs.org/clojure_core/clojure.core/gen-class ;;&nbsp;I&nbsp;found&nbsp;managing&nbsp;state&nbsp;a&nbsp;bit&nbsp;confusing&nbsp;at&nbsp;first.<br&nbsp;/>;;&nbsp;here's&nbsp;a&nbsp;dumb&nbsp;little&nbsp;class&nbsp;with&nbsp;a&nbsp;getter&nbsp;and&nbsp;setter&nbsp;for&nbsp;a&nbsp;"location"&nbsp;field.<br&nbsp;/><br&nbsp;/>(ns&nbsp;com.example&nbsp;)<br&nbsp;/><br&nbsp;/>(gen-class<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:name&nbsp;com.example.Demo<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:state&nbsp;state<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:init&nbsp;init<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:prefix&nbsp;"-"<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:main&nbsp;false<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;declare&nbsp;only&nbsp;new&nbsp;methods,&nbsp;not&nbsp;superclass&nbsp;methods<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:methods&nbsp;[[setLocation&nbsp;[String]&nbsp;void]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[getLocation&nbsp;[]&nbsp;String]])<br&nbsp;/><br&nbsp;/>;;&nbsp;when&nbsp;we&nbsp;are&nbsp;created&nbsp;we&nbsp;can&nbsp;set&nbsp;defaults&nbsp;if&nbsp;we&nbsp;want.<br&nbsp;/>(defn&nbsp;-init&nbsp;[]<br&nbsp;/>&nbsp;&nbsp;"store&nbsp;our&nbsp;fields&nbsp;as&nbsp;a&nbsp;hash"<br&nbsp;/>&nbsp;&nbsp;[[]&nbsp;(atom&nbsp;{:location&nbsp;"default"})])<br&nbsp;/><br&nbsp;/>;;&nbsp;little&nbsp;functions&nbsp;to&nbsp;safely&nbsp;set&nbsp;the&nbsp;fields.<br&nbsp;/>(defn&nbsp;setfield<br&nbsp;/>&nbsp;&nbsp;[this&nbsp;key&nbsp;value]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(swap!&nbsp;(.state&nbsp;this)&nbsp;into&nbsp;{key&nbsp;value}))<br&nbsp;/><br&nbsp;/>(defn&nbsp;getfield<br&nbsp;/>&nbsp;&nbsp;[this&nbsp;key]<br&nbsp;/>&nbsp;&nbsp;(@(.state&nbsp;this)&nbsp;key))<br&nbsp;/><br&nbsp;/>;;&nbsp;"this"&nbsp;is&nbsp;just&nbsp;a&nbsp;parameter,&nbsp;not&nbsp;a&nbsp;keyword<br&nbsp;/>(defn&nbsp;-setLocation&nbsp;[this&nbsp;loc]<br&nbsp;/>&nbsp;&nbsp;(setfield&nbsp;this&nbsp;:location&nbsp;loc))<br&nbsp;/><br&nbsp;/>(defn&nbsp;&nbsp;-getLocation<br&nbsp;/>&nbsp;&nbsp;[this]<br&nbsp;/>&nbsp;&nbsp;(getfield&nbsp;this&nbsp;:location))<br&nbsp;/><br&nbsp;/>;;&nbsp;running&nbsp;it&nbsp;--&nbsp;you&nbsp;must&nbsp;compile&nbsp;and&nbsp;put&nbsp;output&nbsp;on&nbsp;the&nbsp;classpath<br&nbsp;/>;;&nbsp;create&nbsp;a&nbsp;Demo,&nbsp;check&nbsp;the&nbsp;default&nbsp;value,&nbsp;then&nbsp;set&nbsp;it&nbsp;and&nbsp;check&nbsp;again.<br&nbsp;/>user=>&nbsp;(def&nbsp;ex&nbsp;(com.example.Demo.))<br&nbsp;/>#'user/ex<br&nbsp;/>user=>&nbsp;(.getLocation&nbsp;ex)<br&nbsp;/>"default"<br&nbsp;/>user=>&nbsp;(.setLocation&nbsp;ex&nbsp;"time")<br&nbsp;/>nil<br&nbsp;/>user=>&nbsp;(.getLocation&nbsp;ex)<br&nbsp;/>"time"<br&nbsp;/> Fri, 06 Jan 2012 13:18:05 GMT http://clojuredocs.org/clojure_core/clojure.core/merge-with ;;&nbsp;Use&nbsp;union&nbsp;to&nbsp;merge&nbsp;sets&nbsp;of&nbsp;elements<br&nbsp;/>user=>&nbsp;(use&nbsp;'clojure.set)<br&nbsp;/>user=>&nbsp;(merge-with&nbsp;union<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:a&nbsp;#{1&nbsp;2&nbsp;3},&nbsp;<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:b&nbsp;#{4&nbsp;5&nbsp;6}}<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:a&nbsp;#{2&nbsp;3&nbsp;7&nbsp;8},<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:c&nbsp;#{1&nbsp;2&nbsp;3}})<br&nbsp;/><br&nbsp;/>{:c&nbsp;#{1&nbsp;2&nbsp;3},&nbsp;:a&nbsp;#{1&nbsp;2&nbsp;3&nbsp;7&nbsp;8},&nbsp;:b&nbsp;#{4&nbsp;5&nbsp;6}} Fri, 06 Jan 2012 12:35:51 GMT http://clojuredocs.org/clojure_core/clojure.core/inc Fri, 06 Jan 2012 03:47:14 GMT http://clojuredocs.org/clojure_core/clojure.core/when user=>&nbsp;(when&nbsp;(=&nbsp;1&nbsp;1)&nbsp;true)<br&nbsp;/>true<br&nbsp;/><br&nbsp;/>user=>&nbsp;(when&nbsp;(not=&nbsp;1&nbsp;1)&nbsp;true)<br&nbsp;/>nil Fri, 06 Jan 2012 02:26:55 GMT http://clojuredocs.org/clojure_core/clojure.core/read <br&nbsp;/>;;&nbsp;read&nbsp;wants&nbsp;*in*&nbsp;set&nbsp;to&nbsp;a&nbsp;java.io.PushbackReader.<br&nbsp;/>;;&nbsp;with-open&nbsp;sets&nbsp;*in*&nbsp;and&nbsp;closes&nbsp;it&nbsp;after&nbsp;it's&nbsp;done.<br&nbsp;/>;;&nbsp;*read-eval*&nbsp;specifies&nbsp;whether&nbsp;to&nbsp;evaluate&nbsp;#=()&nbsp;forms<br&nbsp;/>;;&nbsp;when&nbsp;reading.&nbsp;&nbsp;This&nbsp;is&nbsp;a&nbsp;very&nbsp;good&nbsp;idea&nbsp;if&nbsp;you&nbsp;are<br&nbsp;/>;;&nbsp;reading&nbsp;forms&nbsp;from&nbsp;untrusted&nbsp;sources.<br&nbsp;/>(defn&nbsp;read-from-file-safely&nbsp;[filename]<br&nbsp;/>&nbsp;&nbsp;(with-open<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;[r&nbsp;(java.io.PushbackReader.<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(clojure.java.io/reader&nbsp;filename))]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(binding&nbsp;[*read-eval*&nbsp;false]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(read&nbsp;r))))<br&nbsp;/><br&nbsp;/>user=>&nbsp;(spit&nbsp;"testfile.txt"&nbsp;"{:a&nbsp;1&nbsp;:b&nbsp;2&nbsp;:c&nbsp;3}")<br&nbsp;/>nil<br&nbsp;/>user=>&nbsp;(read-from-file-safely&nbsp;"testfile.txt")<br&nbsp;/>{:a&nbsp;1,&nbsp;:b&nbsp;2,&nbsp;:c&nbsp;3}<br&nbsp;/> Thu, 05 Jan 2012 22:24:46 GMT http://clojuredocs.org/clojure_core/clojure.core/reduce ;&nbsp;Combine&nbsp;a&nbsp;set&nbsp;of&nbsp;collections&nbsp;into&nbsp;a&nbsp;single&nbsp;collection<br&nbsp;/>user=>&nbsp;(reduce&nbsp;into&nbsp;[[1&nbsp;2&nbsp;3]&nbsp;[:a&nbsp;:b&nbsp;:c]&nbsp;'([4&nbsp;5]&nbsp;6)])<br&nbsp;/>[1&nbsp;2&nbsp;3&nbsp;:a&nbsp;:b&nbsp;:c&nbsp;[4&nbsp;5]&nbsp;6] Mon, 02 Jan 2012 23:02:01 GMT http://clojuredocs.org/clojure_core/clojure.core/to-array-2d user>&nbsp;(def&nbsp;a&nbsp;(to-array-2d&nbsp;[[1&nbsp;2&nbsp;3][4&nbsp;5&nbsp;6]]))<br&nbsp;/>#'user/a<br&nbsp;/>user>&nbsp;(alength&nbsp;a)<br&nbsp;/>2<br&nbsp;/>user>&nbsp;(alength&nbsp;(aget&nbsp;a&nbsp;0))<br&nbsp;/>3<br&nbsp;/>user>&nbsp;(aget&nbsp;a&nbsp;0&nbsp;0)<br&nbsp;/>1<br&nbsp;/>user>&nbsp;(aget&nbsp;a&nbsp;0&nbsp;1)<br&nbsp;/>2<br&nbsp;/>user>&nbsp;(aget&nbsp;a&nbsp;0&nbsp;2)<br&nbsp;/>3<br&nbsp;/>user>&nbsp;(aget&nbsp;a&nbsp;1&nbsp;0)<br&nbsp;/>4<br&nbsp;/>user>&nbsp;(aget&nbsp;a&nbsp;2&nbsp;0)<br&nbsp;/>→&nbsp;ERROR<br&nbsp;/>nil<br&nbsp;/><br&nbsp;/>user>&nbsp; Mon, 02 Jan 2012 07:44:03 GMT http://clojuredocs.org/clojure_core/clojure.string/replace ;;&nbsp;Note:&nbsp;When&nbsp;replace-first&nbsp;or&nbsp;replace&nbsp;have&nbsp;a&nbsp;regex&nbsp;pattern&nbsp;as&nbsp;their<br&nbsp;/>;;&nbsp;match&nbsp;argument,&nbsp;dollar&nbsp;sign&nbsp;($)&nbsp;and&nbsp;backslash&nbsp;(\)&nbsp;characters&nbsp;in<br&nbsp;/>;;&nbsp;the&nbsp;replacement&nbsp;string&nbsp;are&nbsp;treated&nbsp;specially.<br&nbsp;/><br&nbsp;/>;;&nbsp;Example:&nbsp;first&nbsp;substring&nbsp;that&nbsp;the&nbsp;pattern&nbsp;matches&nbsp;is&nbsp;"fodder",&nbsp;with<br&nbsp;/>;;&nbsp;(o+)&nbsp;matching&nbsp;"o"&nbsp;and&nbsp;(\S+)&nbsp;matching&nbsp;"dder".&nbsp;&nbsp;Replacement&nbsp;string<br&nbsp;/>;;&nbsp;says&nbsp;to&nbsp;replace&nbsp;the&nbsp;entire&nbsp;match&nbsp;"fodder"&nbsp;with&nbsp;$2,&nbsp;the&nbsp;string<br&nbsp;/>;;&nbsp;matched&nbsp;by&nbsp;the&nbsp;second&nbsp;parenthesized&nbsp;group,&nbsp;"dder",&nbsp;followed&nbsp;by&nbsp;$1,<br&nbsp;/>;;&nbsp;"o".<br&nbsp;/>user=>&nbsp;(str/replace&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;"$2$1")<br&nbsp;/>"fabulous&nbsp;ddero&nbsp;oo&nbsp;doo"<br&nbsp;/><br&nbsp;/>;;&nbsp;To&nbsp;avoid&nbsp;this&nbsp;special&nbsp;treatment&nbsp;of&nbsp;$&nbsp;and&nbsp;\,&nbsp;you&nbsp;must&nbsp;escape&nbsp;them&nbsp;with<br&nbsp;/>;;&nbsp;\.&nbsp;&nbsp;Because&nbsp;it&nbsp;is&nbsp;in&nbsp;a&nbsp;Clojure&nbsp;string,&nbsp;to&nbsp;get&nbsp;one&nbsp;\&nbsp;we&nbsp;must&nbsp;escape<br&nbsp;/>;;&nbsp;*that*&nbsp;with&nbsp;its&nbsp;own&nbsp;\.<br&nbsp;/>user=>&nbsp;(str/replace&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;"\\$2\\$1")<br&nbsp;/>"fabulous&nbsp;$2$1&nbsp;$2$1&nbsp;$2$1"<br&nbsp;/><br&nbsp;/>;;&nbsp;To&nbsp;ensure&nbsp;the&nbsp;replacement&nbsp;is&nbsp;treated&nbsp;literally,&nbsp;call<br&nbsp;/>;;&nbsp;java.util.regex.Matcher/quoteReplacement&nbsp;on&nbsp;it.&nbsp;&nbsp;A&nbsp;shorter&nbsp;name<br&nbsp;/>;;&nbsp;like&nbsp;re-qr&nbsp;can&nbsp;be&nbsp;handy.<br&nbsp;/>user=>&nbsp;(import&nbsp;'(java.util.regex&nbsp;Matcher))<br&nbsp;/>java.util.regex.Matcher<br&nbsp;/><br&nbsp;/>user=>&nbsp;(defn&nbsp;re-qr&nbsp;[replacement]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Matcher/quoteReplacement&nbsp;replacement))<br&nbsp;/>#'user/re-qr<br&nbsp;/><br&nbsp;/>user=>&nbsp;(str/replace&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;(re-qr&nbsp;"$2$1"))<br&nbsp;/>"fabulous&nbsp;$2$1&nbsp;$2$1&nbsp;$2$1"<br&nbsp;/> Sat, 31 Dec 2011 23:00:13 GMT http://clojuredocs.org/clojure_core/clojure.string/replace-first ;;&nbsp;Note:&nbsp;When&nbsp;replace-first&nbsp;or&nbsp;replace&nbsp;have&nbsp;a&nbsp;regex&nbsp;pattern&nbsp;as&nbsp;their<br&nbsp;/>;;&nbsp;match&nbsp;argument,&nbsp;dollar&nbsp;sign&nbsp;($)&nbsp;and&nbsp;backslash&nbsp;(\)&nbsp;characters&nbsp;in<br&nbsp;/>;;&nbsp;the&nbsp;replacement&nbsp;string&nbsp;are&nbsp;treated&nbsp;specially.<br&nbsp;/><br&nbsp;/>;;&nbsp;Example:&nbsp;pattern&nbsp;matches&nbsp;string&nbsp;"fodder",&nbsp;with&nbsp;(o+)&nbsp;matching&nbsp;"o"<br&nbsp;/>;;&nbsp;and&nbsp;(\S+)&nbsp;matching&nbsp;"dder".&nbsp;&nbsp;Replacement&nbsp;string&nbsp;says&nbsp;to&nbsp;replace&nbsp;the<br&nbsp;/>;;&nbsp;entire&nbsp;match&nbsp;"fodder"&nbsp;with&nbsp;$2,&nbsp;the&nbsp;string&nbsp;matched&nbsp;by&nbsp;the&nbsp;second<br&nbsp;/>;;&nbsp;parenthesized&nbsp;group,&nbsp;"dder",&nbsp;followed&nbsp;by&nbsp;$1,&nbsp;"o".<br&nbsp;/>user=>&nbsp;(str/replace-first&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;"$2$1")<br&nbsp;/>"fabulous&nbsp;ddero&nbsp;foo&nbsp;food"<br&nbsp;/><br&nbsp;/>;;&nbsp;To&nbsp;avoid&nbsp;this&nbsp;special&nbsp;treatment&nbsp;of&nbsp;$&nbsp;and&nbsp;\,&nbsp;you&nbsp;must&nbsp;escape&nbsp;them&nbsp;with<br&nbsp;/>;;&nbsp;\.&nbsp;&nbsp;Because&nbsp;it&nbsp;is&nbsp;in&nbsp;a&nbsp;Clojure&nbsp;string,&nbsp;to&nbsp;get&nbsp;one&nbsp;\&nbsp;we&nbsp;must&nbsp;escape<br&nbsp;/>;;&nbsp;*that*&nbsp;with&nbsp;its&nbsp;own&nbsp;\.<br&nbsp;/>user=>&nbsp;(str/replace-first&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;"\\$2\\$1")<br&nbsp;/>"fabulous&nbsp;$2$1&nbsp;foo&nbsp;food"<br&nbsp;/><br&nbsp;/>;;&nbsp;To&nbsp;ensure&nbsp;the&nbsp;replacement&nbsp;is&nbsp;treated&nbsp;literally,&nbsp;call<br&nbsp;/>;;&nbsp;java.util.regex.Matcher/quoteReplacement&nbsp;on&nbsp;it.&nbsp;&nbsp;A&nbsp;shorter&nbsp;name<br&nbsp;/>;;&nbsp;like&nbsp;re-qr&nbsp;can&nbsp;be&nbsp;handy.<br&nbsp;/>user=>&nbsp;(import&nbsp;'(java.util.regex&nbsp;Matcher))<br&nbsp;/>java.util.regex.Matcher<br&nbsp;/><br&nbsp;/>user=>&nbsp;(defn&nbsp;re-qr&nbsp;[replacement]<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Matcher/quoteReplacement&nbsp;replacement))<br&nbsp;/>#'user/re-qr<br&nbsp;/><br&nbsp;/>user=>&nbsp;(str/replace-first&nbsp;"fabulous&nbsp;fodder&nbsp;foo&nbsp;food"&nbsp;#"f(o+)(\S+)"&nbsp;(re-qr&nbsp;"$2$1"))<br&nbsp;/>"fabulous&nbsp;$2$1&nbsp;foo&nbsp;food"<br&nbsp;/> Sat, 31 Dec 2011 22:58:01 GMT http://clojuredocs.org/clojure_core/clojure.core/delay_q Sat, 31 Dec 2011 15:53:48 GMT http://clojuredocs.org/clojure_core/clojure.xml/emit this&nbsp;one&nbsp;have&nbsp;a&nbsp;problem&nbsp;when&nbsp;trying&nbsp;to&nbsp;export&nbsp;xml&nbsp;with&nbsp;string&nbsp;containing&nbsp;&&nbsp;etc&nbsp;(should&nbsp;be&nbsp;escaped).&nbsp;Contribs&nbsp;prxml&nbsp;has&nbsp;this&nbsp;functionality. Fri, 30 Dec 2011 15:15:42 GMT http://clojuredocs.org/clojure_contrib/clojure.contrib.trace/deftrace ;;Example&nbsp;courtesy&nbsp;to&nbsp;Jonas&nbsp;Enlund&nbsp;on&nbsp;clojure@googlegroups.com&nbsp;2011-12-30:<br&nbsp;/><br&nbsp;/>(ns&nbsp;trc.core<br&nbsp;/>&nbsp;(:use&nbsp;[clojure.tools.trace&nbsp;:only&nbsp;[deftrace]]))<br&nbsp;/><br&nbsp;/>(deftrace&nbsp;fib&nbsp;[n]<br&nbsp;/>&nbsp;(if&nbsp;(or&nbsp;(=&nbsp;n&nbsp;0)&nbsp;(=&nbsp;n&nbsp;1))<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1<br&nbsp;/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(+&nbsp;(fib&nbsp;(-&nbsp;n&nbsp;1))&nbsp;(fib&nbsp;(-&nbsp;n&nbsp;2)))))<br&nbsp;/><br&nbsp;/>the&nbsp;following&nbsp;is&nbsp;printed&nbsp;when&nbsp;(fib&nbsp;4)&nbsp;is&nbsp;evaluated:<br&nbsp;/><br&nbsp;/>TRACE&nbsp;t2302:&nbsp;(fib&nbsp;4)<br&nbsp;/>TRACE&nbsp;t2303:&nbsp;|&nbsp;(fib&nbsp;3)<br&nbsp;/>TRACE&nbsp;t2304:&nbsp;|&nbsp;|&nbsp;(fib&nbsp;2)<br&nbsp;/>TRACE&nbsp;t2305:&nbsp;|&nbsp;|&nbsp;|&nbsp;(fib&nbsp;1)&nbsp;<br&nbsp;/>TRACE&nbsp;t2305:&nbsp;|&nbsp;|&nbsp;|&nbsp;=>&nbsp;1<br&nbsp;/>TRACE&nbsp;t2306:&nbsp;|&nbsp;|&nbsp;|&nbsp;(fib&nbsp;0)<br&nbsp;/>TRACE&nbsp;t2306:&nbsp;|&nbsp;|&nbsp;|&nbsp;=>&nbsp;1<br&nbsp;/>TRACE&nbsp;t2304:&nbsp;|&nbsp;|&nbsp;=>&nbsp;2<br&nbsp;/>TRACE&nbsp;t2307:&nbsp;|&nbsp;|&nbsp;(fib&nbsp;1)<br&nbsp;/>TRACE&nbsp;t2307:&nbsp;|&nbsp;|&nbsp;=>&nbsp;1<br&nbsp;/>TRACE&nbsp;t2303:&nbsp;|&nbsp;=>&nbsp;3<br&nbsp;/>TRACE&nbsp;t2308:&nbsp;|&nbsp;(fib&nbsp;2)<br&nbsp;/>TRACE&nbsp;t2309:&nbsp;|&nbsp;|&nbsp;(fib&nbsp;1)<br&nbsp;/>TRACE&nbsp;t2309:&nbsp;|&nbsp;|&nbsp;=>&nbsp;1<br&nbsp;/>TRACE&nbsp;t2310:&nbsp;|&nbsp;|&nbsp;(fib&nbsp;0)<br&nbsp;/>TRACE&nbsp;t2310:&nbsp;|&nbsp;|&nbsp;=>&nbsp;1<br&nbsp;/>TRACE&nbsp;t2308:&nbsp;|&nbsp;=>&nbsp;2<br&nbsp;/>TRACE&nbsp;t2302:&nbsp;=>&nbsp;5 Fri, 30 Dec 2011 13:50:11 GMT