Carin Meier gigasquid

## switch.clj
(ns switch
  (:require [clojure.pprint :as pprint]))

(defn project-clj-map [filename]
  (->> (slurp filename)
       (read-string)
       (drop 1)
       (partition 2)
       (map vec)
       (into {})))

## rich-already-answered-that.md

      
              1 file
            
          
              33 forks
            
          
              9 comments
            
          
              538 stars
            
          
                reborg
                / rich-already-answered-that.md
            
            
              Last active
              February 23, 2024 13:09
            
              
                A curated collection of answers that Rich gave throughout the history of Clojure
              
          
    Rich Already Answered That!

A list of commonly asked questions, design decisions, reasons why Clojure is the way it is as they were answered directly by Rich (even when from many years ago, those answers are pretty much valid today!).
Feel free to point friends and colleagues here next time they ask (again). Answers are pasted verbatim (I've made small adjustments for readibility, but never changed a sentence) from mailing lists, articles, chats.
How to use:

The link in the table of content jumps at the copy of the answer on this page.
The link on the answer itself points back at the original post.

Table of Content


## transducers.clj
(comment ; Fun with transducers, v2

  ;; Still haven't found a brief + approachable overview of Clojure 1.7's new
  ;; transducers in the particular way I would have preferred myself - so here goes:

  ;;;; Definitions
  ;; Looking at the `reduce` docstring, we can define a 'reducing-fn' as:
  (fn reducing-fn ([]) ([accumulation next-input])) -> new-accumulation
  ;; (The `[]` arity is actually optional; it's only used when calling
  ;; `reduce` w/o an init-accumulator).

## index.html
<html>
<head>
</head>
<body>
<script type="text/javascript" src="/js/repl-test.js"></script>
</body>
</html>

## gist:5960953
(ns ml-jam.core
  (:use clojure-csv.core))

(def training-data
  (for [row (rest (parse-csv (slurp "./digitssample.csv")))]
    (for [x row] ( Integer/parseInt x))))

(def check-data
  (for [row (rest (parse-csv (slurp "./digitssample.csv")))]
    (for [x row] ( Integer/parseInt x))))

## spellcheck.clj
;; Example implementation of Norvig's Spellchecker in Clojure,
;; using core.async
;;
;; There are probably some bugs in this.
;;
;; Original problem: https://github.com/ericnormand/spelling-jam
;; from Lambda Jam, Chicago, 2013: http://lambdajam.com/
;;
;; Clojure core.async introduction:
;; http://clojure.com/blog/2013/06/28/clojure-core-async-channels.html

## tiff-to-png.sh
#!/bin/bash

echoerr() { echo "$@" 1>&2; }

if [ "X" == "X$1" ]; then
  echoerr "error: requires argument: path to .tiff file"
  exit 1
fi

exe=`which sips`

## adhoc.sh
# This script should be run on the drone.
# Change the IP address to be difference
# for each drone on the same ad-hoc network
#
killall udhcpd
ifconfig ath0 down
iwconfig ath0 mode ad-hoc essid ardrone2_070401 channel auto commit
ifconfig ath0 192.168.1.100 netmask 255.255.255.0 up

## 0-build-opencv.sh
#Build OpenCV and the new Java JNI interface described here: https://github.com/emchristiansen/opencv/commit/0d323087fadaf931dbaf4120b69f0839b745b888

git clone git://github.com/Itseez/opencv.git
cd opencv
cmake -DBUILD_opencv_java=ON
ant jar

## gist:1980351
;; lein settings
(defproject foo "1.0.0-SNAPSHOT"
  :description "Test App"
  :dependencies [[com.datomic/datomic "0.1.2678"]
                 [frinj "0.1.2" :exclusions [org.clojure/clojure]]])

;; load libs
(use 'frinj.core 'frinj.calc)
(frinj-init!)
(use '[datomic.api :only (q db) :as d])
	(ns switch
	(:require [clojure.pprint :as pprint]))

	(defn project-clj-map [filename]
	(->> (slurp filename)
	(read-string)
	(drop 1)
	(partition 2)
	(map vec)
	(into {})))
	(comment ; Fun with transducers, v2

	;; Still haven't found a brief + approachable overview of Clojure 1.7's new
	;; transducers in the particular way I would have preferred myself - so here goes:

	;;;; Definitions
	;; Looking at the `reduce` docstring, we can define a 'reducing-fn' as:
	(fn reducing-fn ([]) ([accumulation next-input])) -> new-accumulation
	;; (The `[]` arity is actually optional; it's only used when calling
	;; `reduce` w/o an init-accumulator).
	<html>
	<head>
	</head>
	<body>
	<script type="text/javascript" src="/js/repl-test.js"></script>
	</body>
	</html>
	(ns ml-jam.core
	(:use clojure-csv.core))

	(def training-data
	(for [row (rest (parse-csv (slurp "./digitssample.csv")))]
	(for [x row] ( Integer/parseInt x))))

	(def check-data
	(for [row (rest (parse-csv (slurp "./digitssample.csv")))]
	(for [x row] ( Integer/parseInt x))))
	;; Example implementation of Norvig's Spellchecker in Clojure,
	;; using core.async
	;;
	;; There are probably some bugs in this.
	;;
	;; Original problem: https://github.com/ericnormand/spelling-jam
	;; from Lambda Jam, Chicago, 2013: http://lambdajam.com/
	;;
	;; Clojure core.async introduction:
	;; http://clojure.com/blog/2013/06/28/clojure-core-async-channels.html
	#!/bin/bash

	echoerr() { echo "$@" 1>&2; }

	if [ "X" == "X$1" ]; then
	echoerr "error: requires argument: path to .tiff file"
	exit 1
	fi

	exe=`which sips`
	# This script should be run on the drone.
	# Change the IP address to be difference
	# for each drone on the same ad-hoc network
	#
	killall udhcpd
	ifconfig ath0 down
	iwconfig ath0 mode ad-hoc essid ardrone2_070401 channel auto commit
	ifconfig ath0 192.168.1.100 netmask 255.255.255.0 up
	#Build OpenCV and the new Java JNI interface described here: https://github.com/emchristiansen/opencv/commit/0d323087fadaf931dbaf4120b69f0839b745b888

	git clone git://github.com/Itseez/opencv.git
	cd opencv
	cmake -DBUILD_opencv_java=ON
	ant jar
	;; lein settings
	(defproject foo "1.0.0-SNAPSHOT"
	:description "Test App"
	:dependencies [[com.datomic/datomic "0.1.2678"]
	[frinj "0.1.2" :exclusions [org.clojure/clojure]]])

	;; load libs
	(use 'frinj.core 'frinj.calc)
	(frinj-init!)
	(use '[datomic.api :only (q db) :as d])