Skip to content

Instantly share code, notes, and snippets.

Avatar

Jeremy List quickdudley

View GitHub Profile
View vimrc
" An example for a vimrc file.
"
" Maintainer: Bram Moolenaar <Bram@vim.org>
" 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
View Sandpile.hs
{-# 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
@quickdudley
quickdudley / openpgp.txt
Created Sep 28, 2017
OpenKeychain Linked Identity
View openpgp.txt
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]
@quickdudley
quickdudley / Minecraft_settings.md
Last active Sep 16, 2017
My favourite minecraft settings
View Minecraft_settings.md

My favourite Minecraft settings (so far)

  • World type: large biomes

  • World seed: -13510810358

  • Spawn point moved from x:-633, y:64, z:-964 to x:38, y:65, z:0 using NBT editor

  • Survival mode, cheats disabled

@quickdudley
quickdudley / DeMorgan.hs
Last active Jun 29, 2017 — forked from 5outh/DeMorgan.hs
DeMorgan
View DeMorgan.hs
{-# 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
@quickdudley
quickdudley / beer.kinetosis
Last active Oct 16, 2016
Kinetosis: an esoteric language similar to SICKBAY
View beer.kinetosis
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
@quickdudley
quickdudley / sickbay.hs
Created Aug 14, 2016
My implementation of SICKBAY: see https://github.com/catseye/SICKBAY for the reference implementation.
View sickbay.hs
{-
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
View fullhouse.hs
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