View volume.sh
#!/usr/bin/env bash | |
ME=$(basename $0) | |
MUTEFILE=~/.channels.mute | |
usage() { | |
cat <<END | |
$ME COMMAND [ARGS...]: Volume control / muting | |
Commands: |
View totp.pl
#!/usr/bin/env perl | |
use v5.16; | |
use warnings; | |
use Digest::HMAC_SHA1 qw(hmac_sha1); | |
use Convert::Base32 qw(decode_base32); | |
use Getopt::Long; | |
use Pod::Usage; |
View index.html
<!DOCTYPE html> | |
<html> | |
<head> | |
<title>Large Type</title> | |
<link rel="stylesheet/less" type="text/css" href="style.less"> | |
<script type="text/javascript" src="lib/jquery-2.1.4.min.js"></script> | |
<script type="text/javascript" src="lib/less.min.js"></script> | |
</head> | |
<body> | |
<div class="out"><span contenteditable autofocus>*hello*</span></div> |
View totp.pl
#!/usr/bin/env perl | |
use v5.16; | |
use warnings; | |
use Digest::HMAC_SHA1 qw(hmac_sha1); | |
use Convert::Base32 qw(decode_base32); | |
use Getopt::Long; | |
use Pod::Usage; |
View parse.pl
:- module(parse,[parse/3]). | |
:- use_module(library(utils)). | |
parse(Es) --> complation_units(Es). | |
compilation_units([E|Es]) --> compilation_unit(E), compilation_units(Es). | |
compilation_units([],A,A). | |
compilation_unit(unit(Unit)) --> |
View Count.java
import java.util.Date; | |
public class Count { | |
static int[] _counts = { | |
0,1,1,2, | |
1,2,2,3, | |
1,2,2,3, | |
2,3,3,1 | |
}; | |
static int[] counts; |
View merge.c
#include <stdlib.h> | |
#include <stdio.h> | |
void swap(int32_t **a, int32_t **b) { | |
int32_t *tmp = *a; | |
*a = *b; | |
*b = tmp; | |
} | |
/* In-place update of subtree at `i` - O(log(n)) */ |
View Machine.java
import java.util.List; | |
import java.util.Arrays; | |
import java.util.ArrayList; | |
import java.util.Collection; | |
import java.util.Formatter; | |
public class Machine { | |
private Tape<Integer>[] tapes; | |
private int[] memory; | |
private final int scratch; // index of the scratch tape |
View knapsack.hs
import Data.List | |
type Weight = Int | |
type Value = Int | |
type Item = (String,Weight,Value) | |
type Pack = ([String],Weight,Value) | |
knapsack :: (Pack -> Bool) -> [Item] -> [Pack] | |
knapsack f = sortBy (value) . filter (f) . map (foldl (pack) ([],0,0)) . tail . subsequences | |
where value (_,_,v1) (_,_,v2) = compare v2 v1 |
View Makefile
merge: merge.c | |
$(CC) -std=c89 -Wall $^ -o $@ | |
clean: | |
-rm merge |
NewerOlder