Skip to content

Instantly share code, notes, and snippets.

View faustind's full-sized avatar
🥞

Faustin Date faustind

🥞
View GitHub Profile
# table.py
import sys
from pathlib import Path
from math import log2
def H(p):
"""Return the value of the entropy function a p."""
@faustind
faustind / let_case.hs
Created September 12, 2021 20:14
Example of Haskell rewrite rules with case and let exprs
module LC where
import Data.Char (ord, chr)
{-# Rules
"f/case" forall x. foo2int x = case x of
Bar n -> n
Baz n c -> ord c;
#-}
@faustind
faustind / github-haskell-projects.csv
Last active July 6, 2023 22:32
Github id's of non-forked Haskell projects on GitHub from GHTorrent 2018_04_01
We can't make this file beautiful and searchable because it's too large.
si14/desktop-config
nachivpn/replay
McGizzle/haxchange
vapourismo/type-interpreter
nicholaspun/learnYouAHaskell
EmileDreyer/Stuffs
easimonenko/haskell-examples
bsdlp/zsh-git-prompt
fosskers/servant-xml
tully-gray/FuglyBot
@faustind
faustind / fake-dogstatsd.go
Created August 23, 2023 00:10
Listens for dogstatsd metrics on localhost:8125 and prints them to stdout
package main
import (
"fmt"
"net"
"time"
)
func main() {
// Address to listen for incoming UDP packets