Skip to content

Instantly share code, notes, and snippets.

View ChristopherKing42's full-sized avatar

Christopher King ChristopherKing42

  • Milky Way Galaxy
View GitHub Profile

See this issue

Time and Space

It is said that an object at rest continues to stay in rest, unless acted upon by an outside force. It is universally recognized truth, however, that matter is never too long let alone.

All around there was gas and dust. Some places more, some places less. Some of it moved, some of it was still. Gradually over time, in certain places, the gas and dust collected into small clumps. These small clumps did swirl around each other in a circular motion. For matter, in all places and times, had a tendency to attract other matter, and so it was with the matter around here. Nothing could be more natural.

There is a certain potential in the isolation of things. The tendency, previously noted, to attract of things to attract things, contain a certain energy. When the matter moves closer to itself, this potential is released, one way or another, has some form of energy. In the case of the

{-# LANGUAGE Rank2Types #-}
import Control.Applicative (Alternative(..))
import Data.Foldable (asum, traverse_)
newtype Parser a = Parser {run :: forall f. Alternative f => (Char -> f ()) -> f a}
instance Functor Parser where
fmap f (Parser cont) = Parser $ \char -> f <$> cont char
Using cabal packages:
- haste-compiler.cabal
- libraries/haste-prim/haste-prim.cabal
- libraries/ghc-7.10/base/base.cabal
- libraries/ghc-7.10/array/array.cabal
- libraries/ghc-7.10/ghc-prim/ghc-prim.cabal
- libraries/ghc-7.10/integer-gmp/integer-gmp.cabal
- libraries/haste-lib/haste-lib.cabal
- libraries/ghc-7.8/base/base.cabal
- libraries/ghc-7.8/array/array.cabal
{-# LANGUAGE Rank2Types, GADTs, LambdaCase #-}
data Stream a res where
Head :: Stream a a
Tail :: Stream a (CoData (Stream a))
newtype CoData con = CoD {unCoD :: forall r. con r -> r}
appendList :: [a] -> CoData (Stream a) -> CoData (Stream a)
appendList [] s = s
{-# LANGUAGE Rank2Types #-}
import Control.Exception
class ErrorF a where
fromErrorF :: a -> SomeException
class ErrorG a where
fromErrorG :: a -> SomeException
class ErrorH a where
1. Bitcoin1 shall fork away from Bitcoin core.
2. Bitcoin1 shall have blocks larger than 1 MB.
3. This constitution is neither final nor official, being only a template. Fork it to propose changes.
@ChristopherKing42
ChristopherKing42 / trollboxMonero.js
Last active September 30, 2016 06:00 — forked from xCoreDev/trollbox.js
Node.JS - Quick & Dirty Poloniex Trollbox IRC Relay. Debian/Ubuntu: apt-get install libicu-dev / NPM Modules: npm install autobahn ent irc irc-colors
var autobahn = require('autobahn');
var ent = require('ent');
var irc = require('irc');
var c = require('irc-colors');
var channelName = '##trollboxtest';
var captureDuration = 60 * 1000; // 60 seconds in milis
var wsuri = "wss://api.poloniex.com";
var connection = new autobahn.Connection({
@ChristopherKing42
ChristopherKing42 / trollboxMonero.js
Last active August 31, 2016 20:34 — forked from ifandswitch/trollboxMonero.js
Node.JS - Quick & Dirty Poloniex Trollbox IRC Relay. Debian/Ubuntu: apt-get install libicu-dev / NPM Modules: npm install autobahn ent irc irc-colors
// Poloniex Trollbox IRC Relay with filter
var autobahn = require('autobahn');
var ent = require('ent');
var irc = require('irc');
var c = require('irc-colors');
// set it up
var config = {
network: 'irc.freenode.net',
@ChristopherKing42
ChristopherKing42 / monero.svg
Created October 6, 2016 05:05
A cartoony monero logo
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.