tron1point0
/ volume.sh
Created Feb 6, 2018
View volume.sh
| #!/usr/bin/env bash | |
| ME=$(basename $0) | |
| MUTEFILE=~/.channels.mute | |
| usage() { | |
| cat <<END | |
| $ME COMMAND [ARGS...]: Volume control / muting | |
| Commands: |
tron1point0
/ totp.pl
Created Feb 6, 2018
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)) */ |
tron1point0
/ Machine.java
Created May 8, 2014
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