adamnew123456

#!/usr/bin/Rscript
printf <- function(fmt, ...) cat(sprintf(fmt, ...))

# Reads a Ledger file by doing CSV export on the CLI, and then slurping
# it into R's CSV reader.
#
# start and end can be used to limit which entries are allowed in by time,
# and accounts can be used to limit which accounts are read.
ledger.read <- function(filename,
                        start=NA,

adamnew123456

using System;
using System.IO;
using System.Xml;
using System.Xml.Xsl;

namespace XSLTEvaluator
{
    public class MainClass
    {
        public static void Main(string[] Args)

adamnew123456

#!/usr/bin/python3
#
# Command Line
# ------------
# ``python3 leaderkey.py CONFIG-FIlE``
#
# Configuration format
# --------------------
#
# A leaderkey configuration is a normal Python file, with the following

adamnew123456

function clickAll(elems) {
  for (var i = 0; i < elems.length; i++) {
    elems[i].click();
  }
}

function driveByUpvote() {
  clickAll($('[aria-label="upvote"]'));
}

adamnew123456

vec4 colorAt(in vec2 coord, in int channel) {      
    if (channel == 0) return texture2D(iChannel0, coord.xy / iChannelResolution[0].xy);
    if (channel == 1) return texture2D(iChannel1, coord.xy / iChannelResolution[1].xy);
    if (channel == 2) return texture2D(iChannel2, coord.xy / iChannelResolution[2].xy);
    if (channel == 3) return texture2D(iChannel3, coord.xy / iChannelResolution[3].xy);
}

float monochrome(in vec4 color) {
    return (color.r + color.g + color.b) / 3.0;
}

adamnew123456

class Bean {}

class Main {
    // Visibility Access Type id
    public static int x;
    public int[] x;
    private static boolean x;
    private Bean x;
    private Bean[] xIs_A_Good_Variable_Name18283_28AXY;

adamnew123456

from collections import namedtuple
import random
import string
import sys

Node = namedtuple('Node', ['grammar'])
Output = namedtuple('Output', ['text'])

# All of these are easier to compute than to specify literally in the grammar
ALPHABET_NODES = [[Output(letter)] for letter in string.letters]

adamnew123456

' Creates a prepared statement and populates its parameters
'
' Usage:
'
'    Dim stmt as QueryDef
'    Set stmt = PrepareStatement(CurrentDb, "SELECT * FROM T WHERE A = [aval] AND B = [bval]", _
'                                "aval", 42, _
'                                "bval", "Carrot Cake")
'
Public Function PrepareStatement(db As Database, sql As String, ParamArray params()) As QueryDef

adamnew123456

"""
An NDFA-based regular expression evaluator, built in the style of the Thompson NFA.
"""
from collections import deque, namedtuple

# These are both singletons indicating:
#
# - A split in the NDFA. These never read any characters, so the matcher has to
#   evaluate every side of the split in order to continue.
# - The end of the NDFA.

adamnew123456

#!/bin/bash
help() {
    echo "`basename $0` [-h] -d <DEPLOY-DIR> -r <REPO-DIR>

    Does the necessary work to use a Git repository for deployment.

    This creates two directories - DEPLOY-DIR and REPO-DIR. REPO-DIR is
    a bare repository that you can push to and pull from like any repository,
    while DEPLOY-DIR contains the contents of the 'master' branch. Git hooks
    are used to keep DEPLOY-DIR up to date with REPO-DIR."