I hereby claim:
- I am quickdudley on github.
- I am jeremy_list (https://keybase.io/jeremy_list) on keybase.
- I have a public key ASDRamhfOW_zIys8PlETnr8eFosoxhN51kbeibQij9czbwo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
| " 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 |
| {-# 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] |
| {-# 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 |
| 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 |
| {- | |
| 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 |
| 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 |