Alexy Khrabrov alexy

alexy / more_useable_enumeration.scala

Created June 12, 2009 22:21 — forked from slyphon/more_useable_enumeration.scala

	import java.util.{ Enumeration => JavaEnumeration }

	class EnumerationIterator[T](private[this] val jenum:JavaEnumeration[T]) extends Iterator[T] {
	def hasNext = jenum.hasMoreElements()
	def next:T = jenum.nextElement()
	}

alexy / mongo-scala-driver first example.scala

Created November 14, 2009 20:07 — forked from alaz/mongo-scala-driver first example.scala

	// Model
	case class User(val name: String)

	// Factory object:
	object User extends AbstractShape[User] {
	// one scalar field called "name"
	object name extends Scalar[String]("name", _.name) with Functional[String]

	// fields list
	override lazy val * = name :: Nil

alexy / foo.clj

Created December 2, 2009 08:32 — forked from hiredman/foo.clj


	(defn sig [x]
	(:sig (meta (resolve x))))

	(defmulti type-of (comp type first list))

	(defmethod type-of :function [thing & _] (sig thing))

	(defmethod type-of java.util.List [expr & a]
	(conj (map #(type-of % (first a)) (rest expr))

alexy / gist:247575

Created December 2, 2009 21:03 — forked from richhickey/gist:247172

	;variants of the code from point #2 of:
	; http://www.tbray.org/ongoing/When/200x/2009/12/01/Clojure-Theses

	;original

	(apply merge-with +
	(pmap count-lines
	(partition-all batch-size
	(line-seq (reader filename)))))

alexy / Using Database.TokyoCabinet

Created January 6, 2010 22:08 — forked from tom-lpsd/Using Database.TokyoCabinet

	tom-desktop% pwd [~]
	/home/tom
	tom-desktop% ghci [~]
	GHCi, version 6.10.4: http://www.haskell.org/ghc/ :? for help
	Loading package ghc-prim ... linking ... done.
	Loading package integer ... linking ... done.
	Loading package base ... linking ... done.
	Prelude> :module Database.TokyoCabinet
	Prelude Database.TokyoCabinet> runTCM $ do { db <- new :: TCM HDB; open db "foo.tch" [OWRITER, OCREAT]; put db "bar" "baz"; close db }
	Loading package bytestring-0.9.1.4 ... linking ... done.

alexy / imperative cursor bashing

Created January 16, 2010 00:44 — forked from aboekhoff/imperative cursor bashing

	(let [cursor (fetch-eager :where {... whatever ...})
	res (transient [])]
	(while (.hasNext cursor)
	(conj! res (-> cursor .next .toClojure)))
	(persistent! res))

	;;

alexy / omega-arrow.clj

Created February 7, 2010 01:11 — forked from francoisdevlin/omega-arrow.clj

	(defmacro ->r
	"The proposed Rohner arrow"
	([x] x)
	([x form] (if (seq? form)
	(with-meta (replace {'_ x} form) (meta form))
	(list form x)))
	([x form & more] `(->r (->r ~x ~form) ~@more)))

	(use 'clojure.walk)

alexy / growl.clj

Created March 19, 2010 00:41 — forked from hiredman/growl.clj

	(defn process-args [m]
	(mapcat (fn [[flag value]] [(format "--%s" (name flag)) value]) m))

	(defn growl [m]
	(-> (Runtime/getRuntime)
	(.exec
	(into-array
	String
	(cons "/usr/local/bin/growlnotify" (process-args m))))))

alexy / str-to-int.clj

Created March 28, 2010 03:07 — forked from swannodette/str-to-int.clj

alexy / autoincrementmap.clj

Created March 28, 2010 03:07 — forked from ato/autoincrementmap.clj