This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; based on core.logic 0.8-alpha2 or core.logic master branch | |
(ns sudoku | |
(:refer-clojure :exclude [==]) | |
(:use clojure.core.logic)) | |
(defn get-square [rows x y] | |
(for [x (range x (+ x 3)) | |
y (range y (+ y 3))] | |
(get-in rows [x y]))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns pwprot | |
(:import (java.security MessageDigest Security))) | |
;;generate n random chars | |
(defn gensalt [n] | |
(let [charseq (map char (concat | |
(range 48 58) ; 0-9 | |
(range 97 123)))] ; 0-z | |
(apply str | |
(take n |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
~/Projects/opensource $ rails -v | |
ruby Rails 3.0.5 | |
~/Projects/opensource $ ruby -v | |
ruby 1.9.2p180 (2011-02-18 revision 30909) [x86_64-darwin10.6.0] | |
~/Projects/opensource $ rails new foo | |
create | |
create README | |
... | |
create vendor/plugins/.gitkeep | |
~/Projects/opensource $ cd foo/ |