gdbassett

#!/usr/bin/env python
# -*- encoding: utf-8 -*-

"""
 AUTHOR: Gabriel Bassett
 DATE: 11-19-2014
 DEPENDENCIES: py2neo
 Copyright 2014 Gabriel Bassett

nn.clj

(ns martha.core
  (:require [clojurewerkz.titanium.graph    :as g]
            [clojurewerkz.titanium.vertices :as v]
            [clojurewerkz.titanium.edges    :as e]
            [clojurewerkz.titanium.types    :as t]
            [ogre.core                      :as q]))

(def conf {:storage {:backend "embeddedcassandra"
                     :hostname "127.0.0.1"
                     :keyspace "martha"

fogus

(defn commatize [n]
  (-> (->> n str seq reverse (partition-all 3) (interpose \,))
      flatten
      reverse
      (#(apply str %))))


(commatize 1000)    ;=> "100"
(commatize 100)     ;=> "1,000"
(commatize 1000000) ;=> "1,000,000"

david-mcneil

(ns people
  (:use [clojure.string :only (join)]
        [clojure.pprint :only (pprint simple-dispatch)]))

;; we can make maps using the special literal form:

{:a 100
 :b 200}

(class {:a 100 :b 200})

tce

(comment "wildcardfilter from http://corfield.org/blog/post.cfm/real-world-clojure-powermta-log-files")

(defn- wildcard-filter
  "Given a regex, return a FilenameFilter that matches."
  [re]
  (reify java.io.FilenameFilter
    (accept [_ dir name] (not (nil? (re-find re name))))))

(defn- nonhidden-filter
  "return a FilenameFilter that ignores files that begin with dot or end with ~."

biesnecker

(import '(org.joda.time LocalDate))

(defn today [] (LocalDate.))

;; basic functions to increment or decrement a date
(defn inc-date [#^LocalDate ds] (.plusDays ds 1))
(defn dec-date [#^LocalDate ds] (.minusDays ds 1))

;; generate infinite streams of LocalDate objects starting with start-ds
(defn inc-date-stream [#^LocalDate start-ds] (iterate inc-date start-ds))

claj

(ns dsstuff
"things i used to do in duckstreams in clojure 1.2.0")

;;read-lines from files

(defn read-lines-from-file [filename]
  (with-open [rdr (clojure.java.io/reader filename)]
    (line-seq rdr)))

;;thank you Abhinav Sarkar (http://stackoverflow.com/questions/4118123/read-a-very-large-text-file-into-a-list-in-clojure)

oneness

(ns gcount.core
  "generates charts out of the result from google search term(s)."
  (:use (incanter core charts))
  (:require [clj-http.client :as http-client]))

(def *search-provider* "http://www.google.com/search?hl=en&q=")
(def *search-pattern* #"About.*?([\d,]+).*?")

(defn search-for-term [term]
  (let [encoded-term (.replaceAll (apply str term) " " "+")

JunKikuchi

#(take (- %2 %1) (iterate inc %1))

JunKikuchi

reduce #(conj %1 %2 %2) []