camsaul

(ns sudoku.core
  (:require [clojure.test :refer :all]))

;; sample correctly-solved board
(def solved-board
  [[5 3 4  6 7 8  9 1 2]
   [6 7 2  1 9 5  3 4 8]
   [1 9 8  3 4 2  5 6 7]

   [8 5 9  7 6 1  4 2 3]

camsaul

(def ? '?)

(def unsolved-board
  [[5 3 ?  ? 7 ?  ? ? ?]
   [6 ? ?  1 9 5  ? ? ?]
   [? 9 8  ? ? ?  ? 6 7]

   [8 ? ?  ? 6 ?  ? ? 3]
   [4 ? ?  8 ? 3  ? ? 1]
   [7 ? ?  ? 2 ?  ? ? 6]

camsaul

! Use these commands to determine original values:
!
! xmodmap -pke
! xmodmap -pm

! original values
!
! keycode  37 = Control_L NoSymbol Control_L
! keycode  64 = Alt_L Meta_L Alt_L Meta_L
! keycode 109 = Control_R NoSymbol Control_R

camsaul

(doseq [[setting-name {:keys [visibility sensitive?]}] (sort-by first @registered-settings)]
  (println (str (format "%s (visibility: %s)" setting-name (name visibility)) (when sensitive? " (sensitive)"))))
  
abandonment-email-sent (visibility: internal)
admin-email (visibility: authenticated)
anon-tracking-enabled (visibility: public)
api-key (visibility: internal)
application-colors (visibility: public)
application-favicon-url (visibility: public)
application-logo-url (visibility: public)

camsaul

clojure -X:deps tree

camsaul

FROM alpine:edge

MAINTAINER Cam Saul <[email protected]>

WORKDIR /app

RUN apk add --update curl sbcl

# create a unpriviledged user
RUN addgroup -S lisp

camsaul

(ns metabase.query-processor.multiple
  (:require [clojure.core.async :as a]
            [metabase.query-processor :as qp]
            [metabase.query-processor.context :as qp.context]
            [metabase.query-processor.context.default :as context.default]))

(defn- process-query-append-results
  "Reduce the results of a single `query` using `rf` and initial value `init`."
  [query rf init context]
  (if (a/poll! (qp.context/canceled-chan context))

camsaul

(cl-defun cam/visible-buffer-matching (pred &optional return-multiple-values?)
  "Return the first buffer visible in any window on any frame that satisfies PRED."
  (dolist (frame (frame-list))
    (dolist (window (window-list frame))
      (let ((buffer (window-buffer window)))
        (when (funcall pred buffer)
          (cl-return-from cam/visible-buffer-matching (if return-multiple-values?
                                                          (list buffer window frame)
                                                        buffer)))))))

camsaul

;;; -*- lexical-binding: t; -*-

(defun cam/clean-file (file &optional callback)
  (save-current-buffer
    (find-file file)
    (save-buffer)
    (condition-case err
        (cider-load-buffer
         (current-buffer)
         (cider-load-file-handler

camsaul

(ns make-change
  (:refer-clojure :exclude [==])
  (:require [clojure.core.logic :refer :all]
            [clojure.core.logic.fd :as fd]))

(def common-us-coins
  {:penny   1
   :nickel  5
   :dime    10
   :quarter 25})