Skip to content

Instantly share code, notes, and snippets.

import System.Environment
import Control.Parallel.Strategies
import Math.NumberTheory.Primes.Sieve (primes)
import Math.NumberTheory.Primes.Testing (isPrime)
-- Converts 42d -> 101010d
binread :: Integer -> Integer
binread 0 = 0
binread n = let (q, r) = n `divMod` 2
import System.Environment
import Control.Parallel.Strategies
import Math.NumberTheory.Primes.Sieve (primes)
import Math.NumberTheory.Primes.Testing (isPrime)
-- Converts 42d -> 101010d
binread :: Integer -> Integer
binread 0 = 0
binread n = let (q, r) = n `divMod` 2
#############################################################
################### OFFICIAL UBUNTU REPOS ###################
#############################################################
###### Ubuntu Main Repos
deb http://archive.ubuntu.com/ubuntu trusty main restricted universe multiverse
deb-src http://archive.ubuntu.com/ubuntu trusty main
###### Ubuntu Update Repos
deb http://archive.ubuntu.com/ubuntu trusty-security main restricted universe multiverse
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.ByteString as B
import Control.Monad (forever, liftM)
import Control.Exception.Base
import Network.Socket hiding (recv, send)
import Network.Socket.ByteString (recv, send)
import Network.BSD
@utdemir
utdemir / .Xresources
Created January 24, 2015 15:24
urxvt molokai
Xft.dpi: 96
Xft.antialias: true
Xft.rgba: rgb
Xft.hinting: true
Xft.hintstyle: hintfull
urxvt.scrollBar: false
urxvt.font : xft:Meslo LG M DZ:regular:size=9
urxvt.boldfont: xft:Meslo LG M DZ:bold :size=9

Keybase proof

I hereby claim:

  • I am utdemir on github.
  • I am utdemir (https://keybase.io/utdemir) on keybase.
  • I have a public key ASAInLiBAn184Dj_EtkRZrSXt_iQk9eOkjy3b_ld_6stTwo

To claim this, I am signing this object:

@utdemir
utdemir / loop.hs
Last active November 5, 2017 09:16
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE DataKinds #-}
{-
This piece of code makes GHC never terminate.
$ ghc --version
The Glorious Glasgow Haskell Compilation System, version 8.0.2
$ ghc-pkg list | grep servant
servant-0.11
#!/usr/bin/env bash
set -o errexit
set -o nounset
FULL_PATH=$(realpath "$1")
TMPDIR="$(mktemp -d)"
set -o xtrace
#!/usr/bin/env python
import re
import sys
import argparse
from typing import *
from pprint import pprint
from multiprocessing import Pool
from datetime import datetime, timedelta
import sys
import json
from pprint import pprint
from datetime import datetime
with open(sys.argv[1], "r") as f:
js = json.load(f)
items = js["items"]