luxbock

(def sudoku-board [[5 3 0 0 7 0 0 0 0]
                   [6 0 0 1 9 5 0 0 0]
                   [0 9 8 0 0 0 0 6 0]
                   [8 0 0 0 6 0 0 0 3]
                   [4 0 0 8 0 3 0 0 1]
                   [7 0 0 0 2 0 0 0 6]
                   [0 6 0 0 0 0 2 8 0]
                   [0 0 0 4 1 9 0 0 5]
                   [0 0 0 0 8 0 0 7 9]])

luxbock

(define-generic-mode 'ebnf-mode
  '(("(*" . "*)"))
  '("=" ":" ":=" "::=")
  '(
    ("^[^ \t\n][^=]+" . font-lock-variable-name-face)
    ("<" . font-lock-constant-face)
    (">" . font-lock-constant-face)
    ("['\"].*?['\"]" . font-lock-string-face)
    ("\\[\\|\\]\\|{\\|}\\|(\\|)\\||\\|,\\|;" . font-lock-type-face)
    ("\\?" . font-lock-builtin-face)

luxbock

user> (defmacro fundef [a b]
        `(defn ~(symbol (str "plus-" a "-" b)) [arg#] (+ ~a ~b arg#)))
#'user/fundef
user> (fundef 1 2)
#'user/plus-1-2
user> (plus-1-2 3)
6
user> (map #(fundef %1 %2) (range 3) (range 3))
(#'user/plus-p1__10068#-p2__10069# #'user/plus-p1__10068#-p2__10069# #'user/plus-p1__10068#-p2__10069#)
user> (plus-0-0 1)

luxbock

(ns lein-plz-nicknames
  "Tiny script to check for additional projects discovered by crawling
  crossclj.info and filtering for the popularity of the project."
  (:require [me.raynes.laser :as l]
            [clojure.string :as str]
            [leiningen.plz :refer [fallback-nicknames]]))

(def prj-from-crossclj
  "Fetches a list of projects from crossclj.info"
  (apply str

luxbock

(deftype Bar [a]
  Object
  (equals [self other] true)
  (toString [_] (str a)))

(defn barme [a] (->Bar a))

(set! *data-readers* {'bar myns/barme})

;; #bar :foo => nil

luxbock

(setq clojure-imenu-generic-expression
      '((nil "^\\s-*(\\(?:s\\|t/\\)?defn-?\\s-+\\(?:\\^[^[:space:]\n]+\\s-+\\)?\\([^[:space:]\n]+\\)" 1)
        ("Variable""^\\s-*(\\(?:s\\|t/\\)?def[[:space:]\n]+\\(?:\\(?:\\^{[^}]+}[[:space:]\n]+\\)\\|\\(?:\\^:[^[:space:]\n]+\\s-+\\)\\)?\\([^[:space:]\n\)]+\\)" 1)
        ("Macro" "^\\s-*(defmacro\\s-+\\([^[:space:]\n]+\\)" 1)
        ("Record" "^\\s-*(\\(?:s/\\)?defrecord\\s-+\\([^[:space:]\n]+\\)" 1)
        ("Type" "^\\s-*(deftype\\+?\\s-+\\([^[:space:]\n]+\\)" 1)
        ("Protocol" "^\\s-*(\\(?:def\\(?:-abstract-type\\|interface\\+?\\|protocol\\)\\)\\s-+\\([^[:space:]\n]+\\)" 1)
        ("Multimethod" "^\\s-*(defmulti\\s-+\\([^[:space:]\n]+\\)" 1)
        ("Multimethod" "^\\s-*(defmethod\\s-+\\([^[:space:]\n]+\\)" 1)))

luxbock

~/Google Drive/projects/demo_app $ mono SubgameConsole.exe 
SubgameConsole - type ? for help

Unhandled Exception:
System.DllNotFoundException: libsubgame
  at (wrapper managed-to-native) SubgameConsole.libsubgame:libsubgame_init (int)
  at SubgameConsole.Program.Main (System.String[] args) [0x00000] in <filename unknown>:0 
[ERROR] FATAL UNHANDLED EXCEPTION: System.DllNotFoundException: libsubgame
  at (wrapper managed-to-native) SubgameConsole.libsubgame:libsubgame_init (int)
  at SubgameConsole.Program.Main (System.String[] args) [0x00000] in <filename unknown>:0 

luxbock

Mono: DllImport error loading library '/Users/Olli/Google Drive/projects/demo_app/libsubgame.dylib': 'dlopen(/Users/Olli/Google Drive/projects/demo_app/libsubgame.dylib, 9): image not found'.
Mono: DllImport error loading library '/Users/Olli/Google Drive/projects/demo_app/libsubgame.so': 'dlopen(/Users/Olli/Google Drive/projects/demo_app/libsubgame.so, 9): no suitable image found.  Did find:
	/Users/Olli/Google Drive/projects/demo_app/libsubgame.so: unknown file type, first eight bytes: 0x7F 0x45 0x4C 0x46 0x02 0x01 0x01 0x00'.

luxbock

Course name: Cryptography 1 URL: https://class.coursera.org/crypto-007/class

Lectures

Week 1

Course Overview (11 min)

• HTTPS is actually not a protocol of its own. It’s simply regular HTTP on top of SSL/TLS.

luxbock

(def scen-c
  {:algorithm   0
   :abstraction 0
   :rules       {:stack 1000, :pot 100, :bb 20, :to-act 0
                 :max-bets 3 :actions [[1/2 3/4 1 :all-in] [1/2 1 :all-in]]}
   :init-node   {:player 1, :prev-action :check, :street 3}
   :board       [(card "2h") (card "3s") (card "4d") (card "Ts")]
   :range-sb    (hand-range "5s5h 6s5s 7c2h Th9h 9c9s AcAd KsKd")
   :range-bb    (hand-range "AcAd AsAh AdAh AsAd 7c9h")})