ray1729

# cms - simple CMS
#
# The simple-cms server is a Compojure application serving content for cms.1729.org.uk

description     "CMS server"

start on filesystem or runlevel [2345]
stop on runlevel [!2345]

respawn

ray1729

(ns ring-of-primes
  (:gen-class))

(defn prime?
  [n]
  (and (> n 1)
       (not-any? #(zero? (mod n %)) (range 2 (inc (int (Math/sqrt n)))))))

(defn neighbours
  [xs ring]

ray1729

(ns square-roots
  (:require [criterium.core :refer [bench]]))

(defn square [x] (* x x))

(defn abs [x] (if (< 0 x) (- x) x))

(defn sqrt-repeated-average
  [x lo hi tolerance]
  (if (<= (- hi lo) tolerance)

ray1729

(ns sliding-window-counter.core
  (:refer-clojure :exclude [inc]))

(defprotocol ICounter
  (reset [this])
  (inc [this])
  (value [this]))

(defrecord SlidingWindowCounter [window-size bucket-size num-buckets buckets]
  ICounter

ray1729

(defn split-after
  [pred coll]
  (let [post-accum (fn [accum x]
                     (update accum :after conj x))
        pre-accum (fn [accum x]
                    (cond-> (update accum :before conj x)
                      (pred x) (assoc :f post-accum)))]
    ((juxt :before :after)
     (reduce (fn [{:keys [f] :as accum} x] (f accum x))
             {:before [] :after [] :f pre-accum}

ray1729

(defn insert-after
  [pred coll x]
  (let [[before after] (split-with (complement pred) coll)]
    (concat before (take 1 after)  x (drop 1 after))))

(defn insert-before
  [pred coll x]
  (let [[before after] (split-with (complement pred) coll)]
    (concat before x after)))

ray1729

package main

import (
    "fmt"
    "io/ioutil"
    "log"
    "net/http"
    "strings"
)