joe-warren

joe-warren / move-untracked.sh

Created August 25, 2022 22:26

Move untracked files in git into a subdirectory

	mkdir junk
	for file in $(git ls-files --others --exclude-standard); do mv "$file" junk; done

joe-warren / Picture-rail-extension.hs

Created March 17, 2022 22:37

	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	module Object where

	import qualified Csg
	import qualified Csg.STL
	import Data.List
	import Data.Serialize
	import Data.Semigroup
	import Data.Vec3 as V3

joe-warren / hlint-matcher.json

Created October 28, 2021 13:29

joe-warren / nearestInc.hs

Created October 12, 2021 18:27

	import Data.List (minimumBy)
	import Data.Function (on)

	nearestInc :: Int -> [Int] -> Int
	nearestInc n xs =
	case span (<n) xs of
	([], h:_) -> h
	(ss, []) -> last ss
	(ss, l:_) -> minimumBy (compare `on` abs . (`subtract` n)) [last ss, l]

joe-warren / haskell_dice.hs

Created August 14, 2019 00:11

	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	module Object where

	import qualified Csg
	import Data.List
	import Data.Serialize
	import Data.Semigroup
	import Data.Vec3 as V3

joe-warren / lambdale_dice.hs

Created August 7, 2019 00:00

	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	module Object where

	import qualified Csg
	import Data.List
	import Data.Serialize
	import Data.Semigroup
	import Data.Vec3 as V3