bodil

Keybase proof

I hereby claim:

• I am bodil on github.
• I am bodil (https://keybase.io/bodil) on keybase.
• I have a public key whose fingerprint is 2D44 9044 793B 9F78 2E8B 7A0B 2374 7866 393D FC57

To claim this, I am signing this object:

bodil

/* @flow -*- mode: flow -*- */

/*
 * Example:
 *
 * var p = require("./parse");
 *
 * var parser = p.str([
 *   p.many1(p.letter),
 *   p.many(p.digit)

bodil

;;; -*- lexical-binding: t -*-
(require 'dash)

(defun var (c) (vector c))
(defun var? (x) (vectorp x))
(defun var=? (x1 x2) (= (elt x1 0) (elt x2 0)))

(defun assp (pred l)
  (-first (lambda (i) (funcall pred (car i))) l))

bodil

# To install dependencies:
# $ npm install express mongoose connect-mongoose

fs = require "fs"
express = require 'express'
mongoose = require 'mongoose'
sessionStore = require("connect-mongoose")(express)
Schema = mongoose.Schema

mongo_uri = "mongodb://localhost/bodilpwnz"

bodil

(ns lol
  (:use clojure.test))

(def board [nil   :bomb nil   nil
            :bomb nil   nil   nil
            nil   nil   :bomb nil
            :bomb nil   nil   :bomb])

(with-test
    (defn bomb?

bodil

(ns lol
  (:use clojure.test))

(def board [[nil   :mine nil   nil  ]
            [:mine nil   nil   nil  ]
            [nil   nil   :mine nil  ]
            [:mine nil   nil   :mine]])

(defn y [c] (c 0))
(defn x [c] (c 1))

bodil

(ns ohai
  (:use clojure.test))

(def words
  '("foo"
    "rab"
    "rba"))

(with-test
  (defn anagram? [a b]

bodil

(ns addagram.core
  (:use [clojure.test]
        [clojure.java.io :only [reader]]))

(with-test
    (defn sort-largest [l]
      (sort-by #(- (count %)) l))
  (is (= ["blerk" "quux" "foo" "bar"]
         (sort-largest ["foo" "quux" "bar" "blerk"]))))

bodil

core.async example thing

To run:

• checkout https://github.com/clojure/core.async and install it using lein install
• make a project directory for this code
• put omgcoreasync.cljs in a src subdirectory, project.clj and index.html in the root
• go lein cljsbuild once to build
• load index.html in a browser and watch it go

bodil

(ns ring.adapter.webbit
  (:require [clojure.string :as s]
            [clojure.java.io :as io])
  (:import [org.webbitserver WebServer WebServers HttpHandler]
           [java.io File InputStream]))

(defn- transform-headers [headers]
  (apply hash-map (mapcat (fn [e] [(s/lower-case (.getKey e))
                                  (.getValue e)]) headers)))