Jeremy List quickdudley

My favourite Minecraft settings (so far)

I hereby claim:

To claim this, I am signing this object:

	import Control.Applicative
	import Control.Monad
	import Data.List
	import Data.Function (on)
	import Data.Ratio
	import Data.Char

	newtype P a = P {probabilities :: [(Rational,a)] }

	instance Functor P where

	{-
	My implementation of http://catseye.tc/node/SICKBAY
	By Jeremy List
	Public domain
	-}

	import qualified Data.Map as M
	import Data.Maybe
	import Data.List
	import Data.IORef

	0 REM Prints the lyrics of the famous song:
	0 REM http://www.99-bottles-of-beer.net/
	(0 - 50) REM printing subroutine
	(0 - 49) LET rf%(sh%) = (0 - 41)
	(0 - 45) PRINT beer%;: PRINT " ";
	((0 - 44) * (1 - ((beer% - 1) / (beer% - 1)))) PRINT "bottle";
	(0 - 44) PRINT "bottles";
	(0 - 42) PRINT " of beer";
	10 LET beer% = 99
	12 LET loop% = 90

	{-# LANGUAGE NoMonomorphismRestriction #-}

	import Text.ParserCombinators.Parsec
	import Text.ParserCombinators.Parsec.Token hiding (parens)
	import Text.ParserCombinators.Parsec.Expr
	import Control.Applicative hiding ((<\|>))
	import Control.Monad
	import Prelude hiding (not)

	data Expr = Not Expr \| And Expr Expr \| Or Expr Expr \| Var Char \| SubExpr Expr deriving Eq

	{-# LANGUAGE FlexibleInstances, OverloadedStrings #-}
	module Main where

	import Data.List
	import qualified Data.Map as M
	import Data.IORef
	import System.Random
	import System.Directory
	import Control.Monad
	import Control.Concurrent

	This Gist confirms the Linked Identity in my OpenPGP key, and links it to this GitHub account.

	Token for proof:
	[Verifying my OpenPGP key: openpgp4fpr:06e3799a19f5abc6af0cc5092fb4463dfc98dc97]

	" An example for a vimrc file.
	"
	" Maintainer: Bram Moolenaar <[email protected]>
	" Last change: 2019 Dec 17
	"
	" To use it, copy it to
	" for Unix: ~/.vimrc
	" for Amiga: s:.vimrc
	" for MS-Windows: $VIM\_vimrc
	" for Haiku: ~/config/settings/vim/vimrc