Skip to content

Instantly share code, notes, and snippets.

@cooldaemon
cooldaemon / TryConcurrent.scala
Created November 24, 2011 09:54
Tried scalaz.concurrent.
package com.github.cooldaemon.scalaz_test
import scalaz._
import scalaz.concurrent._
object TryConcurrent {
import Scalaz._
import java.lang.Thread.currentThread
def run {
@cooldaemon
cooldaemon / CancelSuite.scala
Created November 10, 2011 08:09
Tried CommitBarrier in the Scala STM.
import org.scalatest.fixture.FixtureFunSuite
import scala.concurrent.stm._
import scala.concurrent.ops._
class CancelSuite extends FixtureFunSuite {
case class F(cb: CommitBarrier, ref: Ref[String])
type FixtureParam = F
def withFixture(test: OneArgTest): Unit = test(F(
@cooldaemon
cooldaemon / README
Created January 6, 2011 01:43
Scala Actor vs Scala Actor with Scala STM
curl -O http://scala-tools.org/repo-releases/org/scala-tools/scala-stm_2.8.1/0.2/scala-stm_2.8.1-0.2.jar
fsc -classpath ./scala-stm_2.8.1-0.2.jar SampleForSTM3.scala
scala -classpath .:./scala-stm_2.8.1-0.2.jar SampleForSTM3
@cooldaemon
cooldaemon / get_zen_snippets_list.diff
Created July 9, 2010 11:27
neocomplcache + zencoding
*** zencoding.vim.org 2010-07-09 12:07:33.000000000 +0900
--- zencoding.vim 2010-07-09 20:00:47.000000000 +0900
***************
*** 2131,2134 ****
--- 2131,2143 ----
return [[line("'<"), col("'<")], [line("'>"), col("'>")]]
endfunction
+ function g:get_zen_snippets_list(type)
+ let type = a:type
@cooldaemon
cooldaemon / search_twitter.pl
Created June 18, 2010 14:53
This is ref-vim plugin for Twitter Search.
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode;
use Net::Twitter;
use Term::ANSIColor;
use Readonly;
@cooldaemon
cooldaemon / README
Created March 12, 2010 15:09
Reconnection test for Net::RabbitFoot
% rabbitmq-server -detached
% perl test.pl
% rabbitmqctl list_connections pid
Listing connections ...
<[email protected]>
...done.
% rabbitmqctl close_connection "<[email protected]>" "go away"
@cooldaemon
cooldaemon / acc.erl
Created December 28, 2009 06:22
acc + tail recursion vs no acc in erlang.
-module(acc).
-author('[email protected]').
-export([test/1]).
sum1([]) -> 0;
sum1([X | XS]) when is_number(X) -> X + sum1(XS);
sum1([_X | XS]) -> sum1(XS).
sum2([], Acc) -> Acc;
-module(fold).
-author('[email protected]').
-export([test/1]).
test(Max) ->
lists:map(
fun (F) ->
benchmark(fun () ->
F(fun (N, Acc) -> N + Acc end, 0, lists:seq(1, Max))
@cooldaemon
cooldaemon / _rabbitmqctl
Created December 13, 2009 02:09
A zsh completion function for rabbitmqctl.
#compdef rabbitmqctl
typeset -A opt_args
local context state line
_arguments : \
"*:argument:(stop stop_app start_app reset force_reset cluster status rotate_logs close_connection add_user delete_user change_password list_users add_vhost delete_vhost list_vhosts set_permissions clear_permissions list_permissions list_user_permissions list_queues list_exchanges list_bindings list_connections list_channels list_consumers)" \
&& return 0
return 1;
#import "DDXML.h";
#import "DDXMLNode+HTML.h"
#import "DDXMLDocument+HTML.h"