cooldaemon

%% @author Masahito Ikuta <cooldaemon@gmail.com> [http://d.hatena.ne.jp/cooldaemon/]
%% @copyright Masahito Ikuta 2008
%% @doc UDP Server Behaviour.

%% Copyright 2008 Masahito Ikuta
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%

cooldaemon

-module(couchdb_btree_vs_dets).
-author('cooldaemon@gmail.com').

-export([test/0, test/1]).

test() -> test(1000).
test(Count) ->
  KVs = lists:map(
    fun (N) -> {N, {foo, bar, baz}} end,
    lists:seq(1, Count)

cooldaemon

%% @author Masahito Ikuta <cooldaemon@gmail.com> [http://d.hatena.ne.jp/cooldaemon/]
%% @copyright Masahito Ikuta 2008
%%
%% @doc The sample module for the EDoc.
%%
%%  I'm practicing writing the EDoc. 
%%  This file was made because of the practice.
%%
%%  Here's a quick example illustrating how to use edoc_test:
%%  ```

cooldaemon

PortSystem 1.0
name		erlang
version		R12B-3
revision	0
categories	lang erlang
maintainers	cooldaemon@gmail.com
platforms	darwin
description	The Erlang Programming Language
long_description	\
		Erlang is a programming language designed at the	\

cooldaemon

-module(call_code_change).
-export([call_code_change/2, call_code_change/4]).

call_code_change(Name, OldVer) ->
  call_code_change(Name, Name, OldVer, {}).

call_code_change(Pid, Module, OldVer, Extra) when is_pid(Pid) ->
  sys:suspend(Pid),
  sys:change_code(Pid, Module, OldVer, Extra),
  sys:resume(Pid),

cooldaemon

-module(lists_vs_func_vs_comp).
-author('cooldaemon@gmail.com').

-export([test/0]).

test() ->
  Seqs = lists:seq(0, 500000),
  lists:foreach(
    fun
      ({F, TargetName}) ->

cooldaemon

var create_class = function () {
  var m = MochiKit.Base;
  var iter = MochiKit.Iter;

  var new_func = function () {
    if (typeof this._new !== 'function') {
      return;
    }
    this._new.apply(this, arguments);
  };

cooldaemon

list_utils:pmap(fun (N) -> N * N end, lists:seq(1, 10)).

cooldaemon

package Echo::Client;

use strict;
use warnings;

use IO::Socket::INET;
use Danga::Socket;
use Danga::Socket::Callback;

sub new {

cooldaemon

#!/usr/bin/env perl
use strict;
use warnings;
use ExtUtils::MakeMaker qw(prompt);
use File::Basename;
use File::Path;
use File::Spec;
use Template;
use YAML;
use Config::Pit;