ihodes

Eligibility
  Select attribution
    insurance -> Insurance validation
    employed -> Employment validation
    self-pay -> Self-pay
  Insurance validation
    valid-coverage -> Validated
    invalid-coverage -> Try Again
  Employment validation
    valid-employment -> Validated

ihodes

Keybase proof

I hereby claim:

• I am ihodes on github.
• I am isaachodes (https://keybase.io/isaachodes) on keybase.
• I have a public key whose fingerprint is C093 FCAE CDC9 A4FA 0531 4AFF AE11 6745 B9BD A8EB

To claim this, I am signing this object:

ihodes

#use "topfind";;
#thread
#require "coclobas.ketrew_backend,biokepi,cmdliner,nonstd,sosa,csv";;

(* You must have a biokepi_machine.ml file in this directory that has a
   `biokepi_machine` defined at the top level. *)
#use "biokepi_machine.ml"

open Nonstd
module String = Sosa.Native_string

ihodes

#use "topfind";;
#thread
#require "coclobas.ketrew_backend,biokepi,cmdliner,nonstd";;

(* You must have a biokepi_machine.ml file in this directory that has a
   biokepi_machine defined at the top level. *)
#use "biokepi_machine.ml"

open Nonstd

ihodes

(ns cljson-shootout.core
  (:require cheshire.core clj-json.core clojure.data.json
            [criterium.core :refer :all]))



(def +json+ "{\"apple\":\"pie\", \"banana\":{\"qwertyuiopasdfghjklzxcvbnm,\":100, \"askdfj adlskfj\":[1,2,3,4,5,1,2,3,4,1,2,3,4,3,3,2,2,2,2,2,2,2,\"Whoa there!\"]}, \"anarray\":[893172,19203809,12093810928309123,1237732,123,0.111]}")


(defn cheshire-test

ihodes

# because... emacs
unbind C-b
set -g prefix C-z


# intuitive  window splitting
unbind %
bind | split-window -h
bind _ split-window -v

ihodes

(ns fun.matching 
  (:require [clojure.core.match :refer [match emit-pattern to-source groupable?]]))

;; adding set literals to match
(defrecord SetPattern [set])
(defmethod emit-pattern clojure.lang.PersistentHashSet
  [pat]
  (SetPattern. pat))

(defmethod groupable? [SetPattern SetPattern]

ihodes

(ns brains.core
  "Provides a functional backpropagation implementation for deep-learning neural
   networks.")


;; POSSIBLE TODOS
;; 1. momentum (requires storing previous weight change deltas)

(def ^:dynamic *learning-rate* 0.2)
(def ^:dynamic *momentum* 0.9)

ihodes

(ns skrio.responses
  (:use [ring.util.response :only (status response)]))


(defn def-json-response
  [code type]
  (letfn [(resp
            ([]     (-> {:error type} response (status code)))
            ([addl] (-> {:error type}
                        (merge addl)

ihodes

(defn def-json-response
  [code type]
  (letfn [(resp
            ([]     (-> {:error type} response (status code)))
            ([addl] (-> {:error type}
                        (merge addl)
                        response
                        (status code))))]
    (intern 'skrio.core (symbol (str "respond-" code)) resp)))