josephwecker

#!/bin/bash
# License: Public Domain.
# Author:  Joseph Wecker, 2012
#
# -- DEPRICATED --
# This gist is slow and is missing .bashrc_once
# Use the one in the repo instead! https://github.com/josephwecker/bashrc_dispatch
# (Thanks gioele)
#
# Are you tired of trying to remember what .bashrc does vs .bash_profile vs .profile?

jordanorelli

package core

import (
	"net/http"
)

// the Request struct wraps the http.Request struct, providing a slice of
// strings representing the positional arguments found in a url pattern, and a
// map[string]string called kwargs representing the named parameters captured
// in url parsing.

evilpie

/* See: http://0x10c.com/doc/dcpu-16.txt */

function hex(n) {
	return '0x' + n.toString(16);
}

function disassemble (code) {
	var PC = 0;

	var operand = function (bits) {

fogus

(ns pallet.cache.impl
  "An implementation namespace for pallet.cache")

(defprotocol CacheProtocolImpl
  "Cache implementation interface."
  (lookup [cache e] [cache e default]
    "Retrieve the value associated with `e` if it exists")
  (has? [cache e]
    "Checks if the cache contains a value associtaed with `e`"))

mattpodwysocki

JSConf.EU 2011 Slides

JSConf.eu opening song - JavaScript Will Listen - Bella Morningstar

Downstairs (Day 1)

• Plask - Dean McNamee
• Plask

alandipert

(ns ded
  "Structural Data EDitor for Clojure with zippers.  Inspired by Interlisp: http://larry.masinter.net/interlisp-ieee.pdf"
  (:require [clojure.zip :as z])
  (:use [clojure.pprint :only (with-pprint-dispatch code-dispatch pprint)]
        [clojure.repl :only (source-fn)]))

(defn print-hr
  "Prints 30 dashes and a newline."
  [c]
  (println (apply str (repeat 30 c))))

pachacamac

#!/usr/bin/env ruby

class MRISC
  def run(code)
    tokens = code.gsub(/(\*.*?\*)|[^a-z0-9,-;@\._]/,'').split(';')
    @vars,stack,i = {:_pc=>-1,:_oc=>0},[],0
    tokens.map!{|t| t.chars.first=='@' ? (@vars[t.to_sym]=i-1;nil) : (i+=1;t.split(',').map{|e|numeric?(e) ? e.to_i : e.to_sym})}.compact!
    while @vars[:_pc] < tokens.size-1
      @vars[:_pc] += 1
      @vars[:_oc] += 1

apg

(require 'cl)

(defconst count-syllables-negative
  '("cial" "tia" "cius" "cious" "giu" "ion" "iou" "sia$" ".ely$"))

(defconst count-syllables-positive
  '("ia" "riet" "dien" "iu" "io" "li" 
    "[aeiouym]bl$" 
    "[aeiou]\\{3\\}"
    "^mc" 

edw

;; Let's you do this:
;;
;; (make-css
;;  '(("body.loading"
;;     (font-size "12px")
;;     (color "#fff")
;;     (" ul#sidenav"
;;      (" li"
;;       (blah "blah"))))))
;;

fogus

///////////////////// unit tests

unsigned g_test_count;      // count of number of unit tests executed
unsigned g_fault_count;     // count of number of unit tests that fail

template <typename T1, typename T2>
void test_equal_(const T1 & value, const T2 & expected_value, const char * file, int line)
{
    ++g_test_count;
    if (value != expected_value) {