tron1point0

#!/usr/bin/env bash

ME=$(basename $0)
MUTEFILE=~/.channels.mute

usage() {
    cat <<END
$ME COMMAND [ARGS...]: Volume control / muting

Commands:

tron1point0

#!/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;

tron1point0

:- 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)) -->

tron1point0

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;

tron1point0

#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)) */

tron1point0

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

tron1point0

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

tron1point0

merge: merge.c
	$(CC) -std=c89 -Wall $^ -o $@

clean:
	-rm merge

tron1point0

(function() {
    var color_stuff = function(selector,classes) {
        var nth_of_type = function(len,i) {
            return ':nth-of-type(' + len + 'n+' + i + ')'
        };
        var nested = function(c) {
            return function() {
                var cs = classes.filter(function(e) { return e !== c });
                for (var i = 0; i < cs.length; i++)
                    $(this).children(selector + nth_of_type(cs.length,i))

tron1point0

#!/usr/bin/env perl

package NBT;

use strict;
use warnings;

sub parse {
    my ($fh) = @_;