rampion

#include <stdlib.h>	
#include <string.h>
int shuffle(size_t const * input, size_t const size, size_t ** p_output)
{
		int retval = 0;
		size_t i;
		char in_place = 0;
		char cleanup_output = 0;

		if (size == 0)

rampion

<!-- 
	I'm making a javascript version of a DnD character sheet.
	This is a tool I made to let me design the location and dimensions
	of various form fields I'm going to add to it.

	To add a form field, click and drag.  On release, the
	page will ask for a name for the field.

	I'm using Firebug to save the results.
	Once I'm done with the design stage, I'll normalize the sizes, and

rampion

#include <string.h>
#include <stdlib.h>
size_t get_combinations( char const * mappings[256], char const * source, char *** p_combinations )
{
  size_t num_mappings[256] = {0};
  size_t const source_len = strlen(source);
  size_t num_combinations = 1;

  if (mappings == NULL || source == NULL || p_combinations == NULL)
  {

rampion

// ==UserScript==
// @name           undecorate-links
// @namespace      http://rampion.myopenid.com
// @description    change javascript:method('url') links into normal links
// @include        https://www.rci.com*
// @include        http://www.rci.com*
// ==/UserScript==
const as = document.getElementsByTagName('a');
for (var i = 0; i < as.length; ++i) (function(a){
  if (!a.href.match(/^javascript:/)) return;

rampion

class Object
  # delegate targetless methods to o 
  # within the passed block,
  # as with a DSL, w/o modifying self
  #
  # checking order will be
  #   defined methods of self
  #   method mising of self
  #   defined methods of o
  #   method mising of o

rampion

#!/usr/bin/env perl

#============================================================================#
# perl2con 
#
# Fetches all bookmarks from a del.icio.us account and posts them to a 
# Connotea account. Either username and password for both del.icio.us and 
# Connotea are supplied via command line or only usernames via commandline 
# and passwords interactively, i.e.
#

rampion

module ArrowOperatorQuestion where
import Control.Arrow ((***))

f :: u -> v -> w
f _ _ = error "f" 

g :: x -> y -> z
g _ _ = error "g" 

h :: (u,x) -> (v,y) -> (w,z)

rampion

{-# LANGUAGE ScopedTypeVariables,RankNTypes #-}
module Temp where
newtype Mu a = Mu (Mu a -> a)

replaceMthNth :: Int -> Int -> a -> [[a]] -> [[a]]
replaceMthNth = ( \(replaceNth :: Int -> forall b.b -> [b] -> [b]) ->
                    -- definition of replaceMthNth in terms of some replaceNth
                    \m n v arg -> replaceNth m (replaceNth n v (arg !! m)) arg
                )$
                -- y combinator

rampion

{-# LANGUAGE ScopedTypeVariables,Rank2Types #-}
module Temp where
newtype Mu a = Mu (Mu a -> a)

replaceMthNth :: Int -> Int -> a -> [[a]] -> [[a]]
replaceMthNth = ( \(replaceNth :: forall b.Int -> b -> [b] -> [b]) ->
                    -- definition of replaceMthNth in terms of some replaceNth
                    \m n v arg -> replaceNth m (replaceNth n v (arg !! m)) arg 
                )$  
                -- y combinator

rampion

moveDisc :: Column -> Column -> Towers -> Maybe Towers
moveDisc from to = foldr check Nothing . tails
  where check (c:cs)
          | c == from   = const . Just $ to : cs
          | c == to     = const Nothing
          | otherwise   = fmap (c:)