Skip to content

Instantly share code, notes, and snippets.

View color_stuff.js
(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))
View NBT.pm
#!/usr/bin/env perl
package NBT;
use strict;
use warnings;
sub parse {
my ($fh) = @_;
@tron1point0
tron1point0 / keymap.pl
Created Sep 24, 2012
Generates a keyboard map given a list of keybinds
View keymap.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Template::Toolkit::Simple;
use YAML qw(Load);
my %config = Load do {local $/;<DATA>};
@tron1point0
tron1point0 / fizzbuzz.hs
Created Jun 19, 2012
Point-free style, monads, arrows, and a partridge in a pear tree
View fizzbuzz.hs
import Control.Monad
import Control.Arrow
import Data.Monoid
import Data.List(unlines)
import System.Environment(getArgs)
fizzbuzz = uncurry (flip maybe id) . (arr show &&& arr forb)
where tests = map ((.) (==0) . flip mod) [3,5]
fb = map Just ["Fizz","Buzz"]
View rev_case.c
#include <stdlib.h>
#define lc(var) (var >= 'A' && var <= 'Z' ? var + 32 : var)
#define uc(var) (var >= 'a' && var <= 'z' ? var - 32 : var)
#define vowelp(var) ( \
uc(var) == 'A' || \
uc(var) == 'E' || \
uc(var) == 'I' || \
uc(var) == 'O' || \
uc(var) == 'U')
View Makefile
VERSION := 4.1.0
ZIPFILE := ext-$(VERSION)-gpl.zip
download := http://cdn.sencha.io/$(ZIPFILE)
downloader := $(shell which curl)
downloader ?= $(shell which wget)
COFFEE := $(shell which coffee)
UNZIP := $(shell which unzip)
View Magento.pm
package Magento;
use v5.14;
use warnings;
use Carp;
use XML::RPC;
sub new {
my ($class,$uri,$user,$pass) = @_;
my $client = XML::RPC->new("$uri/api/xmlrpc/");
View factor.hs
npto :: (Integral a) => a -> [a]
npto x = [2,3] ++ concat [[x*6-1,x*6+1] | x <- [1..n]]
where n = ((+1) . round . sqrt . fromIntegral $ x) `div` 6
factors :: (Integral a) => a -> [a]
factors 1 = []
factors x = least : factors (x `div` least)
where least = head $ fs ++ [x]
fs = filter ((==0) . mod x) . npto $ x
View pascal.hs
pascal' :: [Int] -> [Int]
pascal' l
| length l < 2 = [1]
| otherwise = (a + b) : (pascal' (b:rest))
where a:(b:rest) = l
pascal :: [Int] -> [Int]
pascal = (1:) . pascal'
View lib_mysqludf_fwrite.c
#ifdef STANDARD
#include <string.h>
#include <stdlib.h>
#include <time.h>
#else
#include <my_global.h>
#include <my_sys.h>
#endif
#include <mysql.h>
#include <m_ctype.h>