Skip to content

Instantly share code, notes, and snippets.

View bchase's full-sized avatar

Brad Chase bchase

16 followers · 21 following
View GitHub Profile
@bchase
bchase / Scratch.elm
Last active July 10, 2020 23:35
module Types.Scratch exposing (HasComments)
import RemoteData as RD exposing (RemoteData(..), WebData)
import Types.Clip.Comment as Comment exposing (Comment)
type alias HasComments m =
@bchase
bchase / nihongo.md
Last active June 4, 2019 01:10
@bchase
bchase / nothing.hs
Last active May 16, 2019 23:28
-- haskell syntax, btw
data Maybe a
= Nothing
| Just a
noStringHere :: Maybe String
noStringHere = Nothing
aStringHere :: Maybe String
@bchase
bchase / map_module_method_to_proc.rb
Last active January 17, 2019 19:31
module Email
def self.get_domain(email_address)
email_address&.split('@')&.last
end
end
emails = [ 'brad@these8bits.com' ]
p emails.map(&Email.method(:get_domain))
@bchase
bchase / App.js
Last active October 10, 2018 22:15
// app/assets/javascripts/App.js
class App {
static initJobShow() {
$(document).ready(function(){
let user_id = $(".user-id").data("id")
let job_id = $(".job-id").data("id")
$.get(`/users/${user_id}/jobs/${job_id}.json`, function(data) {
let job = new Job(date, user_id)
@bchase
bchase / JobView.js
Created October 10, 2018 20:30
// app/assets/javascripts/jobs/show.js
$(document).ready(function(){
const displayJobDetails = function (job) {
$('#foo').append(JobView.renderJobShow(job))
}
})
// // jobs/show.html.erb
// ...
@bchase
bchase / tz.js
Last active October 6, 2018 18:49
// what we get
new Date('2018-10-01')
// Sun Sep 30 2018 20:00:00 GMT-0400 (Eastern Daylight Time)
// what we want
new Date('2018-10-01 GMT-0400')
// Mon Oct 01 2018 00:00:00 GMT-0400 (Eastern Daylight Time)
@bchase
bchase / chess-pawn.rb
Last active October 1, 2018 04:09
#!/usr/bin/env ruby
class Pawn
def move_down?(x,y)
can_move_distance?(x,y)
end
def move_up?(x,y)
can_move_distance?(x,y)
@bchase
bchase / consecutive-sums.js
Last active September 29, 2018 19:43
#!/usr/local/bin/node
//////////////////
// Combinations //
//////////////////
// build all consecutive combination of elements, given an array
function getConsecutiveCombinations(orig_arr) {
@bchase
bchase / MonadTransConfigEx.hs
Created September 28, 2018 16:11
#!/usr/bin/env stack
-- stack runghc --resolver lts-9.14 --install-ghc --package mtl
{-# LANGUAGE CPP #-}
import Control.Monad.Trans.Maybe (MaybeT(MaybeT), runMaybeT)
import Control.Monad.Trans.Except (ExceptT(ExceptT), runExceptT)
import System.Environment (lookupEnv)