michiakig

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ant sim ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
;   which can be found in the file CPL.TXT at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

;dimensions of square world

j05h

#!/usr/bin/env ruby

require 'rubygems'
require 'mechanize'

def download path, site
  url = "http://reddpics.com/moreimages/#{site}/#{path}"
  agent = Mechanize.new
  page = agent.get url
  page.links_with(:href => /i.imgur.com/).map(&:href).uniq.each do |img|

stonegao

(ns evolvefn) ;; Lee Spector (lspector@hampshire.edu) 20111018

;; This code defines and runs a genetic programming system on the problem
;; of finding a function that fits a particular set of [x y] pairs.

;; The aim here is mostly to demonstrate how genetic programming can be 
;; implemented in Clojure simply and clearly, and several things are 
;; done in somewhat inefficient and/or non-standard ways. But this should 
;; provide a reasonable starting point for developing more efficient/
;; standard/capable systems. 

brentertz

## Prepare ###################################################################

# Remove RVM
rvm implode

# Ensure your homebrew is working properly and up to date
brew doctor
brew update

## Install ###################################################################

owainlewis

(ns graph.core)

;; Graph algorithms

;; Simple adjacency list using maps

(def weighted-graph
  {:A {:B 0, :C 0 }, :B { :C 0 }, :C {} })

;;     a --> b

rm-hull

(ns lindenmayer-systems.demo
  (:use [turtle.core :only [draw!]]
        [turtle.renderer.vector :only [->svg]]
        [turtle.renderer.canvas :only [->canvas]]
        [enchilada :only [ctx canvas svg]]
        [dommy.core :only [set-html! insert-after! replace! hide! show!]]
        [jayq.core :only [show]])
  (:use-macros [dommy.macros :only [sel1]]))

(def L '(:left 36))

allgress

(ns reagent-test.core
  (:require [reagent.core :as reagent :refer [atom]]
            [datascript :as d]
            [cljs-uuid-utils :as uuid]))

(enable-console-print!)

(defn bind
  ([conn q]
   (bind conn q (atom nil)))

john2x

Clojure Destructuring Tutorial and Cheat Sheet

(Related blog post)

Simply put, destructuring in Clojure is a way extract values from a datastructure and bind them to symbols, without having to explicitly traverse the datstructure. It allows for elegant and concise Clojure code.

Vectors and Sequences

daveliepmann

(ns localstorage)

(defn set-item!
  "Set `key' in browser's localStorage to `val`."
  [key val]
  (.setItem (.-localStorage js/window) key val))

(defn get-item
  "Returns value of `key' from browser's localStorage."
  [key]

matthewmueller

# OSX for Hackers (Mavericks/Yosemite)
#
# Source: https://gist.github.com/brandonb927/3195465

#!/bin/sh

# Some things taken from here
# https://github.com/mathiasbynens/dotfiles/blob/master/.osx

# Ask for the administrator password upfront