Instantly share code, notes, and snippets.

View display-317
xrandr --size $SIZE
xrandr --output HDMI-1 --auto --output eDP-1 --size $SIZE --same-as HDMI-1
View FastForwardLCG.hs
-- An LCG consists of three values: a multiplier, an offset, and a
-- modulus.
data LCG = LCG
{ multiplier :: Integer
, offset :: Integer
, modulus :: Integer
deriving Show

Keybase proof

I hereby claim:

  • I am byorgey on github.
  • I am byorgey ( on keybase.
  • I have a public key ASAMQjnz-8LDWsvMAibOFPaGzE7zNqiIyIffBb3m9dfzSgo

To claim this, I am signing this object:

View gist:1d39288dd91bde886a5e
08:35 -!- bollu [~Adium@] has joined #diagrams
08:37 -!- bollu [~Adium@] has quit [Client Quit]
08:38 -diagramsbot:#diagrams- [monoid-extras] bergey commented on issue #25: Yes, we should move `monoid-extras` and all the Diagrams packages to containers. If you have time to make a PR, that would be great....
08:43 < cchalmers> it wasn't a complete failure, he did some back and did some work in the end
08:43 < cchalmers> I continued working on it but took a break a couple of months ago and haven't got back into it yet
08:43 < cchalmers>
08:44 < byorgey> cchalmers: oh, cool, I didn't know that
08:44 < byorgey> cchalmers: so do you think there would be room for bollu to work on 'plots' this summer?
08:46 < cchalmers> I'm not sure, hopefully I'll be a useable plotting library by then so I don't know if there's enough for a GSoC
08:46 < byorgey> fair enough
View Decimals.hs
import qualified Data.Map as M
import Data.Maybe
import Data.Ratio
import Data.List
import Data.Char
import Control.Arrow
import Test.QuickCheck
f n (d,r) = ((10*r) `divMod` n)
View Knotty.hs
type AccountName = String
data Account = Account {
aname :: AccountName,
asubs :: [Account]
deriving Show
data Account2 = Account2 {
aname2 :: AccountName,