Scott Fleischman scott-fleischman

Naming

	Astound me, for Your laws are delightful.
	As Your servant, keep me dedicated to Your words.
	Always let me keep Your laws, hidden in my heart.
	Abide in me and instruct me in Your ways.
	Advocate for Your decrees, I will, by recounting all Your laws.
	Amidst Your statutes, I will rejoice, as if over a great treasure.
	Affectionately, I will meditate on Your precepts and consider Your ways.
	Admire Your decrees I will, never forgetting Your word.
	Blessed are You, Lord; teach me Your statutes.
	By my lips, I recount all the judgments from Your mouth.

	[@react.component]
	let make = (~measureRef) => {
	let (show, setShow) = React.useState(_ => false);
	if (!show) {
	<button onClick={_ => setShow(_ => true)}>
	{ReasonReact.string("Show child")}
	</button>;
	} else {
	<h1 ref={ReactDOMRe.Ref.callbackDomRef(measureRef)}>
	{ReasonReact.string("Hello, world")}

	#!/usr/bin/env bash

	# NOTE: This is a modified version of another script (not sure the location at the moment).

	# This script builds on the excellent work by Lucas Jenß, described in his blog
	# post "Integrating a submodule into the parent repository", but automates the
	# entire process and cleans up a few other corner cases.
	# https://x3ro.de/2013/09/01/Integrating-a-submodule-into-the-parent-repository.html

	function usage(){

	{-# LANGUAGE ScopedTypeVariables #-}

	module Main where

	import qualified Data.Digits

	biggie :: Integer
	biggie = 277777788888899

	mDecimalDigitsRev :: Integer -> Maybe [Integer]


	module Main where

	import Control.Monad.Trans.State.Lazy
	import Control.Monad.IO.Class (liftIO)

	nextIntAndPrint :: StateT Int IO Int
	nextIntAndPrint = do
	currentValue <- get
	let newValue = succ currentValue

	-- https://twitter.com/pigworker/status/1068897189227913223

	newtype B t = B t

	class DeBruijn d where
	deBruijn :: Applicative f => (s -> Int -> f t) -> d s -> Int -> f (d t)

	instance DeBruijn B where
	deBruijn f (B s) i = B <$> f s (i + 1)