Skip to content

Instantly share code, notes, and snippets.

View mlen's full-sized avatar

Mateusz Lenik mlen

54 followers · 30 following
View GitHub Profile
@mlen
mlen / gameoflife.py
Created January 29, 2019 15:58
import unittest
class Life(object):
def __init__(self, state):
self.state = state
def next(self):
cells_to_consider = set()
@mlen
mlen / gen.rb
Last active October 9, 2015 08:44
quine generator in ruby
head = "#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <unistd.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <netinet/in.h>
char *s = "
@mlen
mlen / keybase.md
Created April 15, 2015 11:31

Keybase proof

I hereby claim:

  • I am mlen on github.
  • I am mlen (https://keybase.io/mlen) on keybase.
  • I have a public key whose fingerprint is B865 E86A D36C 11A5 C1F8 C1D9 AAD4 CEC9 6B94 92C4

To claim this, I am signing this object:

@mlen
mlen / gist:a5863f3861ba8b662264
Last active August 29, 2015 14:13
Script started on Wed Jan 7 18:45:58 2015
aquila ~ % cat Test.hs
module Main where
import Control.Concurrent
main = do
threadDelay 1000000
putStrLn "hello"
aquila ~ % ghc Test.hs
@mlen
mlen / foo.diff
Created October 30, 2014 09:46
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index 953797e..30f1f09 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -810,7 +810,7 @@ pprHsChar c | c > '\x10ffff' = char '\\' <> text (show (fromIntegral (ord c) ::
-- | Special combinator for showing string literals.
pprHsString :: FastString -> SDoc
pprHsString fs = [-v-]{+h+}cat (map text (showMultiLineString (unpackFS fs)))
@mlen
mlen / strings.rb
Created October 29, 2014 10:39
require 'parslet'
module Strings
class Parser < Parslet::Parser
rule(:spaces) { match['\s\n'].repeat }
rule(:eq) { str("=") >> spaces }
rule(:colon) { str(";") >> spaces }
rule(:string) { str('"') >> (str('\\') >> any | str('"').absent? >> any).repeat.as(:internal) >> str('"') >> spaces }
@mlen
mlen / HLoris.hs
Created July 4, 2014 10:29
Slowloris reimplementation: https://en.wikipedia.org/wiki/Slowloris_%28software%29
module Main where
import Control.Applicative ((<$>), (<*>))
import Control.Concurrent (Chan, ThreadId, forkIO,
getChanContents, killThread, newChan,
threadDelay, writeChan)
import Control.Exception.Base (SomeException (..), catch, finally,
handle)
import Control.Monad (forM_, forever)
import Control.Monad.IO.Class (MonadIO, liftIO)
@mlen
mlen / GADTs.hs
Created June 22, 2014 16:49
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TypeOperators #-}
import GHC.TypeLits
data Stack :: * -> Nat -> * where
Nil :: Stack t 0
Cons :: a -> Stack a b -> Stack a (1 + b)
@mlen
mlen / gist:9688268
Last active August 29, 2015 13:57
upload :: Verbosity -> [Repo] -> Maybe Username -> Maybe Password -> [FilePath] -> IO ()
upload verbosity repos mUsername mPassword paths = do
let uploadURI = if isOldHackageURI targetRepoURI
then legacyUploadURI
else targetRepoURI{uriPath = uriPath targetRepoURI `FilePath.Posix.combine` "upload"}
Username username <- maybe promptUsername return mUsername
Password password <- maybe promptPassword return mPassword
let auth = addAuthority AuthBasic {
auRealm = "Hackage",
auUsername = username,
@mlen
mlen / Blink.hs
Created December 27, 2013 20:48 — forked from puffnfresh/Blink.hs