edw

def containsMatch(nums, lower, upper, match):
  """Returns `True` if `match` occurs within indices
    [`lower`, `upper`] of sorted list `nums`."""
  while True:
    i = (upper + lower) // 2
    cur = nums[i]
    
    if match == cur:
      return True
    elif lower >= upper:

edw

(define-syntax let-optionally
  (syntax-rules (_)
    ((_ vs () e f ...)
     (let () e f ...))
    ((_ vs (_ xv ...) e f ...)
     (if (null? vs)
         (let-optionally '() (xv ...) e f ...)
         (let-optionally (cdr vs) (xv ...) e f ...)))
    ((_ vs ((x v) xv ...) e f ...)
     (if (null? vs)

edw

(defn get-pid
  "Get pid under Linux for older Java implementations"
  []
  (-> (java.io.File. "/proc/self")
      .getCanonicalFile
      .getName
      Integer/parseInt))

edw

Docs for Writing Clojure Web Sites

In no particular order.

• JSON: https://github.com/dakrone/cheshire
• Templating: https://github.com/weavejester/comb
• Web server: https://github.com/ring-clojure/ring
• JDBC_DATABASE_URL env var in Heroku: https://devcenter.heroku.com/articles/connecting-to-relational-databases-on-heroku-with-java
• Composing infrasturcture and interactive development: https://github.com/weavejester/integrant
• Embracing SQL in Clojure: https://www.hugsql.org

edw

[  ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀]

edw

;;; Solution to https://projecteuler.net/problem=61

(defn quadratic-formula [a b c]
  (let [x (Math/sqrt (- (* b b) (* 4 a c)))]
    (set [(/ (+ (* -1 b) x) (* 2 a))
          (/ (- (* -1 b) x) (* 2 a))])))

(defn whole-number? [n]
  (when (and (number? n)
             (== (Math/round n) n))

edw

(add-hook 'before-save-hook 'whitespace-cleanup)

(defun smart-open-line-above ()
  "Insert an empty line above the current line.
Position the cursor at it's beginning, according to the current mode."
  (interactive)
  (move-beginning-of-line nil)
  (newline-and-indent)
  (forward-line -1)
  (indent-according-to-mode))

edw

> (load "/Users/edw/dev/i7t/thunknyc/names/index.ss")
"/Users/edw/dev/i7t/thunknyc/names/index.ss"
> (def e (all-exports))
> (hash-ref e 'display)
((gerbil/compiler/ssxi (imported syntax))
 (gerbil/core (imported syntax))
 (scheme/r5rs (imported syntax))
 (scheme/write (imported syntax))
 (std/parser/grammar (imported syntax)))

edw

Zippers

Please see .

edw

In Gerbil Scheme, how do I …

Import R7RS libraries?

In the root of the directory structure that contains your libraries:

$ cat > gerbil.pkg
(prelude: :scheme/r7rs)
^D