| ; Exercise 1.3: Define a procedure that takes threee numbers as arguments | |
| ; and returns the sum of the squares of the two larger numbers | |
| (define (toptwosq x y z) | |
| (if (and (< x y) (< x z)) | |
| (+ (* y y) (* z z)) | |
| (if (and (< y x) (< y z)) | |
| (+ (* x x) (* z z)) | |
| (+ (* x x) (* z z)) | |
| ) | |
| ) |
| (defn take-randnth [num coll] | |
| (take num | |
| (rest | |
| (map first | |
| (iterate (fn [[ret items]] | |
| (let [idx (rand-int (count items))] | |
| [(items idx) | |
| (subvec (assoc items idx (items 0)) | |
| 1)])) | |
| [nil |
| (require '[noir.server :as server]) | |
| (use 'noir.core 'aleph.http 'lamina.core) | |
| (defn async-response [response-channel request] | |
| (enqueue response-channel | |
| {:status 200 | |
| :headers {"content-type" "text/plain"} | |
| :body "async response"})) | |
| (defpage "/" [] "hey from Noir!") |
| ;; | |
| ;; Using this to store the CouchDB connection and put auth credentials on requests that need them | |
| ;; | |
| (ns couch-client.client | |
| (:require [com.ashafa.clutch.utils :as clutch])) | |
| (defonce ^:dynamic *dbs* (atom {})) | |
| (defn put-auth [db] | |
| (let [credentials (select-keys (meta @*dbs*) [:username :password])] |
| (ns noir-couchdb.core | |
| (:use [com.ashafa.clutch :only [get-database put-document delete-document | |
| get-document database-info all-documents | |
| get-view]]) | |
| (:require [com.ashafa.clutch.utils :as clutch] | |
| [clojure.string :as string]) | |
| (:refer-clojure :exclude (conj! assoc! dissoc!))) | |
| (defprotocol CouchOps | |
| "Defines side-effecting operations on a CouchDB database. |
| (ns please.core | |
| (:require [please.help :as help] | |
| [cljs.reader :as reader]) | |
| (:refer-clojure :exclude [get])) ; please? | |
| ;; | |
| ;; Event handler delegation | |
| ;; | |
| (def ^{:doc "If this is nil, no events will be sent. Use please.core/set-request-event-fn! to | |
| change this value"} |
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="utf-8"> | |
| <title>Sample gist</title> | |
| <style> | |
| * { background: #434321; color: #d3d3e4; } | |
| </style> | |
| </head> | |
| <body> |
| You can run the command `elnode-make-webserver' with C-c h | |
| elnode-error: elnode--sentinel 'open from 127.0.0.1.' for process *elnode-webserver-proc*<1> <127.0.0.1:51600> with buffer nil | |
| elnode-error: Elnode status: *elnode-webserver-proc*<1> <127.0.0.1:51600> open from 127.0.0.1 | |
| error in process filter: elnode--http-parse: Wrong number of arguments: #[(alist) "ÁÂ\"" [alist kvalist-keys->* #[(key) "ÁÂÃ\"!" [key intern format "%s"] 4]] 3 ("/home/mu/.emacs.d/elpa/kv-20130217.1638/kv.elc" . 8640)], 3 | |
| error in process filter: Wrong number of arguments: #[(alist) "ÁÂ\"" [alist kvalist-keys->* #[(key) "ÁÂÃ\"!" [key intern format "%s"] 4]] 3 ("/home/mu/.emacs.d/elpa/kv-20130217.1638/kv.elc" . 8640)], 3 |
| <!DOCTYPE html> | |
| <head> | |
| <meta charset="utf-8"> | |
| </head> | |
| <div id="table-of-contents"> | |
| <h2>Table of Contents</h2> | |
| <div id="text-table-of-contents"> | |
| <ul> | |
| <li><a href="#sec-1">1 Create partition(s) and file system</a> | |
| <ul> |