工业聚 Lucifier129

🎯

Focusing

Thinking, coding and writing for fun

Lucifier129 / procedural-abstraction.ts

Created August 16, 2020 03:59

procedural abstraction

Lucifier129 / project-level-fetch-api.js

Created August 2, 2020 03:45

	export const fetch = (url, options = {}) => {
	let { fetch = globalThis.fetch, ...restOptions } = options;

	if (typeof fetch !== 'function') {
	throw new Error(`Expected fetch to be a function, but received ${fetch}`);
	}

	let finalUrl = url;

	let finalOptions = {

Lucifier129 / action-pattern-matching.ts

Created May 19, 2020 01:28

match action of reducer via codata & visitor-pattern

Lucifier129 / foop.ts

Last active May 4, 2020 14:15

functional oop

Lucifier129 / Breadth-First.js

Last active May 2, 2020 15:20

	let identity = x => x
	let createBF = (getChildren) => {
	let handler = (stack = [], results = [], f) => {
	if (stack.length === 0) return results;
	let [head, ...tail] = stack;
	let nextStack = tail.concat(getChildren(head));
	return handler(nextStack, [...results, f(head)], f);
	};
	return (tree, f = identity) => handler([tree], [], f);
	};

Lucifier129 / tree-module.js

Created May 1, 2020 13:50

	const createTreeModule = (operations) => {
	const append = (tree, node) => {
	if (operations.matchChild(tree, node)) {
	return operations.appendChild(tree, node);
	}
	return operations.map(tree, (child) => {
	return append(child, node);
	});
	};

Lucifier129 / algebraic-effects.js

Created April 23, 2020 02:30

poor man's algebraic-effects via throw + hand-written continuations

	let run = (f, handlers) => {
	try {
	return f();
	} catch (effect) {
	if (effect.type in handlers) {
	handlers[effect.type](effect.payload, effect.continuation);
	} else {
	throw effect
	}
	}

Lucifier129 / untyped-tagless-final-interpreters.js

Created January 11, 2020 08:36

	const createOperation = name => (...args) => {
	let operation = interpreter =>
	interpreter[name](
	...args.map(f => (f && f.operation ? f(interpreter) : f))
	);
	operation.operation = true;
	return operation;
	};

	const createOperations = (...names) =>

Lucifier129 / json-parser.purs

Last active October 31, 2019 07:23

naive parser combinator written by purescript

	module Parser where

	import Prelude (($), (<>), (==), (>=), (<=), (&&), (/=), (\|\|), (>>>), negate)
	import Data.Show (class Show, show)
	import Data.Tuple (Tuple(..))
	import Data.Either (Either(..))
	import Data.Array ((:), intercalate)
	import Data.Foldable (foldl, foldr)
	import Data.Maybe (Maybe(..))
	import Data.String (codePointAt)

Lucifier129 / json-parser.re

Last active October 31, 2019 07:58

	type result('a, 'b) =
	\| Ok('a)
	\| Error('b)

	let inject = value => input => (Ok(value), input)

	let error = e => input => (Error(e), input)

	let item = input => {
	let (index, source) = input