maxcountryman

(definterface INode
  (getNext [])
  (setNext [n])
  (getPrev [])
  (setPrev [n]))

(deftype Node
  [data
   ^:unsynchronized-mutable prev
   ^:unsynchronized-mutable next]

maxcountryman

(definterface INode
  (getCar [])
  (setCar [x])
  (getCdr [])
  (setCdr [n])
  (cons [x])
  (reverse []))

(deftype Node
  [^:volatile-mutable car ^:volatile-mutable ^INode cdr]

maxcountryman

(ns datastructures.skip-list)

(defn lt [a b]
  (if (nil? a)
    false
    (case (compare a b)
      1 false
      0 false
      -1 true)))

maxcountryman

(ns brander.core
  (:require [clojure.java.io :as io]
            [clojure.java.shell :refer [sh]]
            [clojure.string :as string]))

(def words
  (lazy-seq
    (with-open [r (io/reader "/usr/share/dict/words")]
      (doall (map (comp string/lower-case string/trim) (line-seq r))))))

maxcountryman

HTTP Interface

Skuld exposes an HTTP interface on a per-node basis. The available endpoints are outlined below.

Queue

Count queues

Where r is the read concern.

maxcountryman

;; Singly-Linked List
(definterface INode
  (getCar [])
  (getCdr [])
  (setCar [x])
  (setCdr [x]))

(deftype Node
  [^:volatile-mutable car ^:volatile-mutable cdr]
  INode

maxcountryman

(definterface INode
  (getCar [])
  (getCdr [])
  (setCar [x])
  (setCdr [x]))

(deftype Node
  [^:volatile-mutable car ^:volatile-mutable cdr]
  INode
  (getCar [_] car)

maxcountryman

;; Singly-Linked List
(definterface INode
  (getCar [])
  (getCdr [])
  (setCar [x])
  (setCdr [x]))

(deftype Node
  [^:volatile-mutable car ^:volatile-mutable cdr]
  INode

maxcountryman

;; Singly-Linked List
(definterface INode
  (getCar [])
  (getCdr [])
  (setCar [x])
  (setCdr [x]))

(deftype Node [^:volatile-mutable car ^:volatile-mutable cdr]
  INode
  (getCar [_] car)

maxcountryman

(definterface INode
  (getCar [])
  (getCdr [])
  (setCar [x])
  (setCdr [x])
  (valAt [i]))

(deftype Node [^:volatile-mutable car ^:volatile-mutable cdr]
  INode
  (getCar [_] car)