christianromney

Keybase proof

I hereby claim:

• I am christianromney on github.
• I am christianromney (https://keybase.io/christianromney) on keybase.
• I have a public key whose fingerprint is 1A2D 2EE2 4C25 03FD 7D2F CDF6 111F 9EEB 195F 184E

To claim this, I am signing this object:

christianromney

LDHkw

A Pen by Christian Romney on CodePen.

License.

christianromney

ack                       # search
ansible                   # config mgmt
apachetop                 # how's apache
apple-gcc42               # helps to build certain software
aria2                     # faster downloads
asciidoc                  # documentation
aspell                    # for emacs/vim spell-checking
bazaar                    # every now and then I clone a repo hosted by ubuntu
brew-desc                 # get better descriptions of homebrew utils
casperjs                  # javascript testing and screenscraping

christianromney

;; Geiser settings
(setq geiser-active-implementations '(racket))
(setq geiser-repl-startup-time 10000)
(setq geiser-repl-history-filename "~/.emacs.d/geiser-history")
(setq geiser-repl-query-on-kill-p nil)
(setq geiser-implementations-alist
      '(((regexp "\\.scm$") racket)
        ((regexp "\\.ss$") racket)
        ((regexp "\\.rkt$") racket)))

christianromney

;; Geiser settings
(setq geiser-active-implementations '(racket))
(setq geiser-repl-startup-time 10000)
(setq geiser-repl-history-filename "~/.emacs.d/geiser-history")
(setq geiser-repl-query-on-kill-p nil)
(setq geiser-implementations-alist
      '(((regexp "\\.scm$") racket)
        ((regexp "\\.ss$") racket)
        ((regexp "\\.rkt$") racket)))

christianromney

;; BinOp ::= [Symbol Operand Operand]
;; Operand ::= Number | BinaryOperation

(defprotocol Numerical
  "A thing which has a numerical value"
  (value [this]))

(defprotocol PrintableMathExpression
  "A mathematical expression which can be printed
  using infix or prefix notation"

christianromney

(defn filter-col [a]
  (filter (juxt #(< 30 %) odd?)  a))

(defn report-results [col]
  (println col)
  col)

(-> (range 100)
    filter-col
    report-results)

christianromney

#lang racket

;; Non-tail
(define sum1
  (λ (n)
    (if (= n 0) n
        (+ n (sum1 (- n 1))))))

(sum1 10)

christianromney

/* 
 Hi, I'm Reservation. 
  I dont need an interface because I am a carrier of data.
  Like a good carrier, I can be instantiated in any layer and used
  in any other layer.

  If you need to do stuff with me you should know to instantiate the correct
  service and pass me to it.
  Makes sense too since I you might need other classes to instantiate service

christianromney

(ns async.core
  (:require [clojure.core.async :as async :refer :all]
            [clojure.data.generators :as gen])
  (:gen-class))

(defrecord SyncMessage [text wake])

(defmacro forever [& body]
  `(while true
     ~@body))