Skip to content

Instantly share code, notes, and snippets.

Louis Warren louisswarren

Block or report user

Report or block louisswarren

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@louisswarren
louisswarren / bug-2-6-1.agda
Last active Feb 24, 2020
Bug in Agda version 2.6.0.1.20191219
View bug-2-6-1.agda
-- Agda version 2.6.0.1.20191219
open import Agda.Builtin.Equality
open import Agda.Builtin.Nat renaming (Nat to ℕ)
open import Agda.Builtin.Sigma
ℕ×ℕ : Set
ℕ×ℕ = Σ ℕ λ _
record Cont : Set where
@louisswarren
louisswarren / listdays.sh
Last active Feb 20, 2020
List all of the days in a given year
View listdays.sh
#!/bin/sh
if [ "$1" = "--help" ] || [ $1 = "-h" ]; then
echo "Usage: listdays [year] [format]"
exit
fi
if [ -n "$1" ]; then
year="$1"
else
year=`date "+%Y"`
@louisswarren
louisswarren / wtype.agda
Last active Jan 29, 2020
W-types in agda
View wtype.agda
-- Based on https://mazzo.li/epilogue/index.html%3Fp=324.html
data W (S : Set) (P : S Set) : Set where
_◁_ : (s : S) (P s W S P) W S P
data 𝟘 : Set where
data 𝟙 : Set where
: 𝟙
@louisswarren
louisswarren / lift.agda
Last active Jan 10, 2020
Lift types by instance resolution in Agda
View lift.agda
data : Set where
zero :
suc :
data : Set where
nonneg :
negsuc :
data : Set where
frac_/suc_ :
@louisswarren
louisswarren / Discrete.agda
Last active Dec 18, 2019
Instance resolution for decidable equality of discrete types
View Discrete.agda
module Discrete where
open import Agda.Builtin.Equality public
data : Set where
¬_ : {a} Set a Set a
¬ A = A
data Dec {a} (A : Set a) : Set a where
@louisswarren
louisswarren / basic.agda
Created Dec 16, 2019
A basic imperitive language in agda
View basic.agda
open import Agda.Builtin.List
open import Agda.Builtin.Nat renaming (Nat to ℕ)
open import Agda.Builtin.String
Num =
record Var : Set where
constructor var
field
idx :
@louisswarren
louisswarren / stdouttofile.py
Created Dec 9, 2019
Redirect stdout to a file in python using with block
View stdouttofile.py
import sys
class stdout_to_file:
def __init__(self, f):
self.f = f
self.stdout = sys.stdout
def __enter__(self):
sys.stdout = self.f
@louisswarren
louisswarren / Graph.agda
Last active Nov 27, 2019
Graphs in agda
View Graph.agda
module Graph where
open import Agda.Builtin.List
open import Agda.Builtin.Nat renaming (Nat to ℕ)
data Fin : Set where
zero : {n} Fin (suc n)
suc : {n} Fin n Fin (suc n)
len : {A : Set} List A
@louisswarren
louisswarren / pips.py
Created Nov 18, 2019
Graph sequence thing
View pips.py
def run(G, n):
for _ in range(n):
i = len(G[0]) - 1
for j in range(len(G)):
s = 0
if 0 <= j - 1:
s += G[j - 1][i]
if j + 1 < len(G):
s += G[j + 1][i]
G[j] += (s, )
@louisswarren
louisswarren / obviously.py
Created Nov 6, 2019
Decorator for adding obvious assertions to functions
View obviously.py
def obviously(v, msg=''):
def outer(f):
def inner(*args, **kwargs):
r = f(*args, **kwargs)
if not v(r):
if msg:
errmsg = f.__name__ + ': ' + msg
else:
errmsg = f.__name__ + ': obviously not true'
raise Exception(errmsg)
You can’t perform that action at this time.