Sean Lee sleexyz

infinite fun

sleexyz / tidalAsLibrary.hs

Created July 22, 2017 20:12

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary_2017-07-18T00:14:44-04:00.hs

Created July 18, 2017 04:14

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary_2017-07-17T03:06:33-04:00.hs

Created July 17, 2017 07:06

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import Data.Function ((&))
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word8, Word32)
	import Control.Monad.Writer.Lazy
	import Data.String (fromString)
	import Control.Arrow

sleexyz / tidalAsLibrary_2017-07-17T01:05:59-04:00.hs

Created July 17, 2017 05:06

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import Data.Function ((&))
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word8, Word32)
	import Control.Monad.Writer.Lazy
	import Data.String (fromString)
	import Control.Arrow

sleexyz / flowbug.js

Created July 9, 2017 18:36

callable classes cannot be extended

	/* @flow */

	declare class Callable<A, B> {
	(A): B
	}

	class WithFoo<A, B> extends Callable<A, B> {
	foo() {
	}
	}

sleexyz / test_isolation_spec.rb

Created July 7, 2017 04:54

rspec test isolation

	# 1. tests should not leak to sibling describe blocks
	describe "asdf" do
	describe "inner 1" do
	it "works" do
	expect(defined? @foo).to eql nil
	end
	end
	it "(mutation)" do
	@foo = true
	end

sleexyz / test_isolation_demonstration.hs

Created July 7, 2017 04:53

hspec test isolation

	#!/usr/bin/env stack
	-- stack --resolver lts-8.0 --install-ghc runghc --package hspec -- -Wall -Werror

	import Test.Hspec
	import Data.IORef

	-- * test should be isolated from other tests - Pass (expected: Pass) ✔

	main :: IO ()
	main = hspec $ do

sleexyz / Jam_2017_05_21.hs

Created May 21, 2017 22:16

	{-# LANGUAGE GADTs #-}

	module Jam_2017_05_21 where

	import Util

	output = toProgram $ bb
	where
	bb = bbF (texture2D backBuffer) uvN

sleexyz / validate.js

Created April 24, 2017 19:05

	// @flow

	type $Output<A> = $ObjMap<A, <O>(mixed => O) => O>;

	export const Record = <A: {}>(record: A): (mixed => $Output<A>) => (x) => {
	if (typeof(x) !== 'object' \|\| x === null) {
	throw new Error('not object');
	}
	for (const key in record) {
	if (!(key in x)) {

sleexyz / split.py

Created April 18, 2017 01:51

	import sys

	# Splits stdin into separate files, each of which contains {chunkBy} unique prefixes.
	# as the first {charactersToCompareBy} characters of a line
	def chunkByLinePrefix(outputPrefix, chunkBy, prefixLength):
	counter = 0 # updated every line
	lastChunk = None # the last prefix

	fileCounter = 0 # updated every file
	f = open(outputPrefix + str(fileCounter).zfill(4), 'a') # updated every file