Public Gists by hakobe

Gravatar
Fri Oct 02 03:38:26 -0700 2009
1
2
3
>28+23 g|
^p32-1 <@
g32<v!:<^
Gravatar
Wed Sep 23 04:25:34 -0700 2009
1
2
3
use strict;
use warnings;
use lib qw(./lib);
Gravatar
Mon Jul 27 08:31:46 -0700 2009
1
2
3
* ホスト名につかえそうなもの
- 将軍の名前
- ローマ皇帝の名前
Gravatar
Tue Jul 14 05:35:13 -0700 2009
1
2
3
 
class Applyer[-A, +B]( f :(A => B)) {
    def apply(x:A) :B = {
Gravatar
Wed Jul 08 10:36:12 -0700 2009
1
2
3
import scala.actors.Actor
import scala.actors.Actor._
import scala.collection.mutable.ListBuffer
Gravatar
Tue Jul 07 08:41:16 -0700 2009
1
2
3
use strict;
use warnings;
use HTTP::Engine;
Gravatar
Sun Jul 05 01:25:45 -0700 2009
1
2
3
abstract class IntSet {
  def incl(x: Int): IntSet
  def contains(x: Int): Boolean
Gravatar
Sat Jul 04 23:04:46 -0700 2009
1
2
3
def iteration(op: (Double, Double) => Double, init: Int)(f: Int => Double)(a: Int, b:Int) :Double = {
  def iter(a: Int, result: Double) :Double = {
    if (a > b) result
Gravatar
Sat Jul 04 22:33:57 -0700 2009
1
2
3
def factorial(n: Int) :Int = {
    def _factorial(n: Int, result: Int) :Int = {
        if (n <= 0) result else _factorial(n-1, n * result)
Gravatar
Thu Jul 02 10:28:56 -0700 2009
1
2
3
import org.eclipse.swt._
import org.eclipse.swt.layout._
import org.eclipse.swt.widgets._
Gravatar
Wed Jul 01 01:38:01 -0700 2009
1
2
3
object Fib {
  def fib(n:Int) : Int = n match {
    case 0 => 1
Gravatar
Tue Jun 09 06:57:41 -0700 2009
1
2
3
use strict;
use warnings;
 
Gravatar
Thu May 21 02:14:46 -0700 2009
1
2
Perl-OSX-Clipboard: Scripts to manipulate a Mac OS X-clipboard.
See: null
Gravatar
Wed May 13 00:55:27 -0700 2009
1
2
3
 / _ / X < ruby -pe 'gsub(/^.+;| .+$/,"")' ~/.zhistory* | sort | uniq -c | sort -r | head -20
2245 ls
2060 git
Gravatar
Sun May 10 19:29:22 -0700 2009
1
2
3
use strict;
use warnings;
use Encode;
Gravatar
Fri Mar 20 19:42:05 -0700 2009
1
2
3
use strict;
use warnings;
use Coro::State;
Gravatar
Fri Mar 20 19:11:25 -0700 2009
1
2
3
use strict;
use warnings;
use Coro;
Gravatar
Thu Mar 19 08:37:01 -0700 2009
1
2
3
#!/bin/sh
export PATH=/opt/local/bin:$PATH
POD2LATEX=pod2latex
Gravatar
Fri Feb 20 02:51:26 -0800 2009
1
2
3
(define (list-generator lst)
  (let ((l lst) (val '()) (return '()))
    (letrec (
Gravatar
Sat Feb 14 10:08:19 -0800 2009
1
2
3
use strict;
use warnings;
use Test::More qw(no_plan);