crdrost

package parse_argo

import (
	"io"
	"regexp"

	"github.com/go-logfmt/logfmt"
	"github.com/msoap/byline"
)

crdrost

I wanted to know what sorts of equal temperament systems were objectively better than others as 12-TET occupies a very distinctive place in music theory right now.

More description to come later.

Feel free to use/modify the below code under the MPLv2 license.

crdrost

The Privilege of Buda united Hungary and Poland, similarly Buda notation unites Hungarian notation (name variables after their type) with Polish notation (use prefixes of known arity to process things without ambiguity).

Operators: the character ' is reserved for functions, and it accepts two types. Following Joel Spolsky the first type is the output and the second type is the input. So 'yx is a segment of a variable name identifying a function variable of type x -> y.

Leading ' characters are inferred at the beginning of the variable name to make the name make sense.

crdrost

Calculating best rational approximations incrementally

So best rational approximations come from a continued fraction expansion.

A continued fraction expansion comes from the loop,

function* continuedFraction(x: number): Iterable<number> {
  let n = Math.floor(x)
  yield n

crdrost

-- paper of the day
-- RJM Hughes, A Novel Representation of Lists and its Application to the Function "Reverse"
-- Information Processing Letters 22:141-144 (1986)
-- https://www.cs.tufts.edu/~nr/cs257/archive/john-hughes/lists.pdf

{-# LANGUAGE DeriveFunctor, DeriveFoldable #-}

module HughesLists where
import Data.Monoid
import Data.Foldable

crdrost

Iterorecursive algorithms

Picture the following scene: you are in a job interview, and the interviewer defines a tree-based data structure and asks you to traverse it. You do a good quick job, maybe using recursion:

// provided by the interviewer: nonempty rose trees carrying the values on the internal nodes
interface ITree<x> {
  value: x;
  children: Array<ITree<x>>;

crdrost

const isUndefined = obj => typeof obj === 'undefined'
const validatePath = path => path.charAt(0) !== '/' ? '/' + path : path;
const pathToRegexp = require('path-to-regexp');

function validateRoutePathNew(path) {
  if (isUndefined(path)) {
      return '';
    }
  let pathWithParams = '';
  for (const item of pathToRegexp.parse(path)) {

crdrost

//json interpolation for string subs. Just used in shape().
const in_json = (strs, ...vals) =>
  strs[0] + vals.map((v, i) => JSON.stringify(v) + strs[i + 1]).join("");

// validate shape of an object having appropriate methods.
// PLEASE do this, using if() makes this sort of "that fn doesn't handle this particular event"
// unassertable, and that means that you have whole undebuggable pipelines where "somewhere in
// this pipeline that information gets lost, I don't know where!"
const shape = (obj, ...method_names) => {
  const missing_methods = method_names.some(m => typeof obj[m] !== "function");

crdrost

#!/usr/bin/env node

/* Copyright 2017 CR Drost.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. If a copy of
 * the MPL was not distributed with this file, uou can obtain one at https://mozilla.org/MPL/2.0/. 
 */

const fs = require('fs'),
  bold = text => '\u001b[1m' + text + '\u001b[22m',

crdrost

module MyServer.Routes (route) where
import FictitiousRoutingLib

-- Can't decide if I'd rather embed this into do-notation or just use lists; seems like the type param
-- ends up being a phantom type in the end?
route :: HttpRouter x
route = do 
    -- one thing you always want is static serving of files:
    dom "static.myapp.example.com" % staticServe "/var/www/staticAssets"
    -- maybe also `(excludePatterns [] $ staticServe "...")` to specify "these things shall never be served from that dir."