naoyat

#include <iostream>
#include <string>
#include <vector>
#include <list>
#include <queue>
#include <deque>
#include <stack>
#include <map>
#include <set>
using namespace std;

naoyat

Sequelが
> INSERT INTO `tickets` DEFAULT VALUES
のようなSQLを吐くが、これはSQLite 3.3.6ではエラーな件。（3.4では大丈夫だった）

→報告ed
http://code.google.com/p/ruby-sequel/issues/detail?id=265

naoyat

#include <iostream>
#include <sstream>
#include <cstdio>
#include <cmath>
#include <cctype>
#include <algorithm>
#include <string>
#include <vector>
#include <deque>
#include <stack>

naoyat

#include <iostream>
#include <sstream>
#include <string>
#include <vector>
#include <list>
#include <queue>
#include <deque>
#include <stack>
#include <map>
#include <set>

naoyat

(use math.const) ;; pi
(define *epsilon* 1e-12)

;;
;; normal quantile function (probit function)
;;
(define (probit p)
  (define (probit>0 p)
    (* (inverse-erf (- (* p 2) 1)) (sqrt 2))) ;; OK
  (if (< p 0) 

naoyat

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
;;
;; 第1回 Scheme コードバトン (CL fork)
;;
;; ■ これは何か？
;;   「Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。」のCL版です。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール

naoyat

// ==UserScript==
// @name           replace link titles
// @namespace      http://counter.hatena.ne.jp/n4_t/greacemonkey/
// @description    replace the title to an appropriate one when url is of my blog
// @include        http://counter.hatena.ne.jp/n4_t/*
// ==/UserScript==
(function() {

  var url2title = {};

naoyat

;; 第1回 Scheme コードバトン
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;;   (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

naoyat

diff -ru mosh-0.2.0-orig/configure mosh-0.2.0/configure
--- mosh-0.2.0-orig/configure   2009-08-07 17:12:14.000000000 +0900
+++ mosh-0.2.0/configure        2010-01-20 17:55:49.000000000 +0900
@@ -4616,6 +4616,9 @@
           else
              MOSH_OPTS="$MOSH_INTEL_OPTS -march=$host_cpu"
           fi
+          CFLAGS="$CFLAGS -arch i386"
+          CXXFLAGS="$CXXFLAGS -arch i386"
+          LDFLAGS="$LDFLAGS -arch i386"

naoyat

-module(ring).
-export([body/2]).

for(N,N,F) -> [F()];
for(I,N,F) -> [F()|for(I+1,N,F)].

for1(N,N,F) -> [F(N)];
for1(I,N,F) -> [F(I)|for1(I+1,N,F)].

baton() ->