bradparker

Manual Rides - From MMF and Strava and Entered through their EDH Account

bradparker

const map = (fn, arr) => {
  if (!arr.length) return []
  const [head, ...tail] = arr
  return [fn(head, ...map(fn, tail)]
}

map :: (a -> b) -> [a] -> [b]

bradparker

decrementBy :: (Ord a, Num a) => a -> a -> a
decrementBy n d
  | n < d = 0
  | otherwise = n - d
  
--- 1 `decrementBy` 2
--- 0
--- 2 `decrementBy` 1
--- 1
--- pi `decrementBy` 1

bradparker

type AssociativeList key value = [(key, value)]

type Name = String
type PhoneNumber = String
type PhoneBook = AssociativeList Name PhoneNumber

bradparker

data List a =
  Empty |
  Cons a (List a)
  deriving (
    Eq,
    Ord
  )

-- Type classes are pretyy cool

bradparker

const assert = require('assert')

const isEqual = (a, b) => {
  if (a.length !== b.length) return false

  return a.every((aElem, index) => aElem === b[index])
}

// flip :: (a -> b -> c) -> (b -> a -> c)
const flip = (f) => (a, b) => f(b, a)

bradparker

const fetch = require('node-fetch')
const Task = require('data.task')

const KEY = 'KEY!'

const asteroidRequest = new Task((reject, resolve) => (
  fetch(`https://api.nasa.gov/neo/rest/v1/feed?start_date=2016-05-05&end_date=2016-05-05&api_key=${KEY}`)
    .then((res) => res.json())
    .then(resolve)
    .catch(reject)

bradparker

Modules example

A module which represents part of a Reaat app could export an array of routes and a reducer.

export {default as routes} from './routes'
export {default as reducer} from './store/reducer'

The top level application can take these exports and collect them together into the root routes def and the root reducer.

bradparker

const { keys, assign } = Object

const exampleSource = {
  first_name: 'Bob',
  last_name: 'Boberson',
  charity_1: '1',
  charity_2: '2',
  charity_3: '3'
}

bradparker

> const curry = require('./curry')
> const add3 = (a, b, c) => a + b + c
> add3(1, 2, 3)
6
> const curAdd3 = curry(add3)
> curAdd3(1)
[Function]
> curAdd3(1, 2)
[Function]