• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师

object HelloWorld {

        def main(args: Array[String]){
                println("hello,world")
         }
}

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师

    看了javaeye上一个解决约瑟夫环的问题的帖子，就想能不能用scheme来解决。如果采用推导出的数学公式来处理当然很简单了：

(define (joseph n m)
  (define (joseph-iter init s)
    (if (> init n)
        (+ s 1)
        (joseph-iter (+ init 1) (remainder (+ s m) init))))
  (joseph-iter 2 0))

    我想是否可以用一般的模拟算法来实现？也就是模拟一个循环链表，每次删除第m个元素。弄了个比较丑陋的实现：

(define (enumrate-interval low high)
  (if (> low high)
      '()
      (cons low (enumrate-interval (+ low 1) high))))
(define (delete-last list)
  (if (eq? (cdr list) '())
      '()
      (cons (car list) (delete-last (cdr list)))))

(define (joseph-iter init list it) 
  (let ((m (remainder it (length list))))
   (cond ((= m 0) (delete-last list))
         ((= m 1) (append (cdr list) (reverse init)))
         (else
           (joseph-iter (cons (car list) init) (cdr list) (- m 1))))))
(define (joseph n m)
    (define (joseph-list list m)
      (display list) 
      (newline)
      (if (eq? (cdr list) '())
          (car list)
          (joseph-list (joseph-iter '() list m) m)))

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛

#include <stdio.h>
main()
{
   int n, m, i, s=0;
   printf ("N M = "); scanf("%d%d", &n, &m);
   for (i=2; i<=n; i++) s=(s+m)%i;
   printf ("The winner is %d\n", s+1);
}/*运用了一点数学策略 N=8 M=3 幸存为7 ;少于3的时候还可以数,因为为一个环;从他的下一个人起重新报数*/

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛

• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师

Example： Foo(+, 1, 2) = 3; Foo(*, 3, 6) = 18; Foo(/, 2, 4) = 0.5

　　Ceer最先作出反应：简单嘛，判断一下输入的操作符就好了。说着，他很快在白板上写出如下代码：

public class CStyle_Calculator
{
　static public double Foo(char op, double x, double y)
　{
　　switch(op)
　　　case ’+’: return x + y; break;
　　　case ’-’: return x - y; break;
　　　case ’*’: return x * y; break;
　　　case ’/’: return x / y; break;
　　　default: throw new Exception(”What the Hell you have input?");
　}
}

public interface I操作符 //谁说代码不能写中文的？恩恩
{
　double 运算(double x, double y);
}

public class OO_Calculator
{
　private I操作符 m_op;
　public OO_Calculator(I操作符 op)
　{
　　this.m_op = op; //依赖注入【注2】
　}

　public double Foo(double x, double y)
　{
　　return this.m_op.运算(x, y);
　}
}

public class 加法:I操作符
{
　public double 运算(double x, double y)
　{
　　return x + y;
　}
}

public class 减法:I操作符
{
　public double 运算(double x, double y)
　{
　　return x - y;
　}
}

public class 乘法:I操作符
{
　public double 运算(double x, double y)
　{
　　return x * y;
　}
}

public class 除法:I操作符
{
　public double 运算(double x, double y)
　{
　　return x / y;
　}
}

public class TheMainClass
{
　static public void Main()
　{
　　I操作符 我的加法 = new 加法();
　　OO_Calculator 我的加法器 = new OO_Calculator(我的加法);
　　double sum = 我的加法器.Foo(3, 4);
　　System.Console.WriteLine(sum);
　　//sum = 7

　　//其他3个我就不废话了
　}
} 

public delegate double TheOperator(double x, double y);

public class Operators
{
　static public double Add(double x, double y)
　{
　　return x + y;
　}

　static public double Sub(double x, double y)
　{
　　return x - y;
　}

　//乘，除法 我也懒得废话了
}

public class DotNet_Calculator
{
　public double Foo(TheOperator op, double x, double y)
　{
　　return op(x, y);
　}
}

public class TheMainClass
{
　static public void Main()
　{
　　TheOperator myAdd = new TheOperator(Operators.Add);
　　TheOperator mySub = new TheOperator(Operators.Sub);

　　DotNet_Calculator dc = new DotNet_Calculator();
　　double sum = dc.Foo(myAdd, 2, 4); //sum = 6
　　System.Console.WriteLine(sum);
　　double sub = dc.Foo(mySub, 3, 7); //sub = -4
　　System.Console.WriteLine(sub);
　}
}

(define (Foo op x y)
(op x y)) 

(define (Foo op x y)
(op x y)) 

• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师

一直以来对于w3m、tramp、dired等与shell关系密切的mode不是很了解，没有仔细读过代码。但总觉得应该是调用shell命令，再将shell命令的输出重定向到emacs中进行处理。今天在网上看到了相关的方法：

1. 调用shell命令

   (defun zj-open-directory-with-explorer ()
     "在windows中用explorer浏览当前目录"
     (interactive)
     (shell-command "explorer.exe .")
     (browse-url "www.google.cn")
     )
   

    
2. 处理shell命令输出

   (defun zj-display-directory-files ()
     "执行shell命令并处理它的输出。这里为显示当前目录下的文件"
     (interactive)
     (message (shell-command-to-string "ls -l"))
     )

    

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师

• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师

main ::= {tree}
tree ::= '(' id leaf ')'
leaf ::= exps | main
exps ::= [{exp}]
exp  ::= id | bool | num | str | arr | low
id   ::  [^#\.\d\(\)\[\]\{\}'"`,;+-][^\s\(\)\[\]\{\}'"`,;]*
bool ::  #t|#f|#T|#F
num  ::  [+-]?[0-9]*\.?[0-9]+([eE][+-]?[0-9]+)?
str  ::  '\'' [{chr}] '\'' | '"' [{chr}] '"'
low  ::  #[^\s\(\)\[\]\{\}'"`,;]*
chr  ::= any-Unicode-character-except-"-or-\-or-control-character | 
		\" | \\ | \0 | \b | \7 | \f | \n | \r | \t | \v | 
		\x two-hex-digits | \u four-hex-digits
number
arr  ::= '[' arrc ']'
arrc ::= [{exp}]
comt ::  ^\s*#.*$

## 这些全是正则表达式
id   ::  [^#\.\d\(\)\[\]\{\}'"`,;+-][^\s\(\)\[\]\{\}'"`,;]*
bool ::  #t|#f|#T|#F
num  ::  [+-]?[0-9]*\.?[0-9]+([eE][+-]?[0-9]+)?
str  ::  '\'' [{chr}] '\'' | '"' [{chr}] '"'
low  ::  #[^\s\(\)\[\]\{\}'"`,;]*
main ::  \(
end  ::  \)
arr ::  \[
narr ::  \]

// 这个函数就可以完成这样的工作
// ssub(string, pattern) 同时返回 pattern 匹配 string 后的结果和余下的字符串
function ssub (s, p) {
	var ss = p.exec(s)[0]
	return [ss, s.slice(ss.length)]
}
// 弹出下一个单词
function word (s) {
	return ssub(s, /^[^\s\(\)\[\]\{\}'"`,;]+/)
}
// 弹出下一个“东西”，仅用于报错
function gew (s) {
	return /^[^\s\(\)\[\]'"]+/.exec(s)[0]
}
// 还真的报错了
function error (m, ln) {
	throw Error (m+" in line "+ln)
}

	// 先给出判断语法元素的函数，它们的参数是剩余的字符串
	// 剩余的字符串没有了，整个代码也到头了
	function isEOF (c) { return c == "" }
	function beLine (c) { return c[0] == '\n' }
	function beSpase (c) { return /\s/.test(c[0]) }
	function beId (c) { return /[^#\.\d\(\)\[\]\{\}'"`,;+-]/.test(c[0]) }
	function beBool (c) { return c[0] == '#' }
	function beNum (c) { return /[-+\d\.]/.test(c[0]) }
	function beStr (c) { return c[0] == '\'' || c[0] == '\"' }
	function beMain (c) { return c[0] == '(' }
	function beEnd (c) { return c[0] == ')' }
	function beArr (c) { return c[0] == '[' }
	function beNarr (c) { return c[0] == ']' }

/* 基本函数 */
// 连接项目与列表
function cons (o, l) {
	return [o].concat(l)
}
// 取列表除去第一项后余下的部分
function cdr (l) {
	return l.slice(1)
}
// 消除左侧除换行之外的空白
function strim (s) {
	return s.replace(/^\s+?(?=\n)?/,'')
}

/* 词法分析器 */
// 标准的正则尾递归优化写法。尽管 JavaScript 不支持优化，但不失为一种很好的组织程序的手段
// 使用时调用 slex(string, [], 1)，参数 t 用来暂存分析数组
function slex (s, t, ln) {
	if (isEOF(s)) return t.reverse()
	var tmp = []
	// 用 ln 参数保存行数
	if (beLine(s)) return slex(cdr(s), ln+1)
	if (beSpase(s)) return slex(strim(s), ln)

	else if (beBool(s)) tmp = bool(s, ln)
	else if (beNum(s)) tmp = num(s, ln)
	else if (beId(s)) tmp = id(s, ln)
	else if (beStr(s)) tmp = str(s, ln)
	else if (beMain(s)) tmp = main(s, ln)
	else if (beEnd(s)) tmp = end(s, ln)
	else if (beArr(s)) tmp = arr(s, ln)
	else if (beNarr(s)) tmp = narr(s, ln)
	else error("Unknown Value: "+gew(s), ln)

	return slex(tmp[1], cons(tmp[0], t), tmp[2])
}

/* 所有的词法元素的解开过程 */
// 每个函数返回的第三个值是新的行号
// 此处省略，详见附件源代码 179-222 行
// 源代码中 arr、narr、main、end 几个函数都是语法分析的版本，
// 以 arr 举例说明这一系列函数的共性
function arr (s, ln) {
	return ['[', cdr(s), ln]
}
// 其他的函数只不过是使用了 ssub() 函数通过正则表达式解析了而已。

main ::= {tree}
tree ::= '(' id leaf ')'
leaf ::= exps | main

tree ::= '(' id exps | {tree} ')'

// e 代表为空，对应的希腊字母
// 当然也可以消除 e，把为空表现在上级产生式中
main ::= tree | tree main
tree ::= '(' id leaf ')'
leaf ::= exps | main
exps ::= e | exp | exp exps
exp  ::= id | bool | num | str | arr | low
arr  ::= '[' arrc ']'
arrc ::= e | exps

// 参数 ls 是词法分析结果
function sdict (ls) {
	var index = ["~"]  //对象树节点名的线型访问栈
	var root = {}      //全局的对象树
	var stack = [root] //对象树节点的线型访问栈

	// 对照 BNF，不难发现解开递归的技巧：
		/* 把对起始符和终结符的处理写在函数中，递归部分一直向下推迟，
		   直到 exps 这个产生式被终结时再调用回 main() */
	// main ::= tree | tree main
	function main (ls, ln) {
		if (ls == false)
			if (!canPop(stack))
				return
			else error("Lack of end quotes", ln)
		else if (beMain(ls[0]))
			tree(cdr(ls), ln)
		else if (beEnd(ls[0]))
			if (canPop(stack)) {
				// 语法分析 main 结束就弹出一个数据栈，一条树枝结束了
				stack.pop()
				main(cdr(ls), ln)
			}
			else error("To many end quotes", ln)
		else error("Wrong Syntax: "+ls[0], ln)
	}

	function tree (ls, ln) {
		// 这是一个一步推导产生式的例子
		// tree ::= '(' id leaf ')'
		if (beId(ls[0])) {
			var tmp = id(ls[0])
			// 这些就是插入的全局数据结构更新代码，向栈中增加索引
			add_index(stack, tmp[0])
			leaf(tmp[1], ln)
		}
		else error("Not an Id: "+ls[0])
	}

	/* 详细参见源文件74-143行，把每个函数处理空白的代码去掉，
	   参数s替换为 ls，函数体内替换为 ls[0] 就是独立语法分析的版本。 */
}

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

        做否证是个“缺德”的事，有点那么“一将功成万骨枯”的韵味，也有点那么“舍我其谁，颐指气使”的嚣张劲。做“否证”，砸了一个行当，肥了一己之私。哥德尔，算不上空前绝后，但就影响，堪称深远。或许几千年来为人所迷惑，唯此君拨开云雾尚算不上经典，只怕数百年后，人人仍口口相传，其洞见历久弥坚，犹如笛卡尔，方可算一代大家。

        同所有的否证一样，尺规问题的代数化破灭了“三等分角”、“倍立方体”、“化圆为方”。哥德尔不完备定理也彻底让希尔伯特的“元数学”计划破产。GEB里不无有趣的调侃其“阿拉丁神灯”的段子。“愿望类型化”、“元灯”、“元怪物”、“元元怪物”……罗素的类型化从逻辑为基础重塑数学大厦，但应用到现实颇为繁琐，主流上，从集合论公理化（ZFC）解决了可怕的罗素悖论，数学大厦之基得以保全。虽根基得以幸免，然则疆域却被哥德尔硬生生给划拨了一块去了神秘的未知。数学、逻辑并非万能！

         人工智能先驱们也有彷徨，无论确定形式系统怎样的一集公理，其不完全皆已根深蒂固、先天决定。人，才是系统外洞察秋毫之神明。智慧，则潜藏在这洞察之中，这一集公理之外。马尔文·明斯基如是说：“感觉，而非逻辑，那正是智能之所在！”直觉主义与形式主义的PK似乎，这一段落下，笛卡尔之流这样的二元论者着实是占了上风。不得不感叹400年前，这位爱睡懒觉、“我思故我是”的先贤之深思远见。

        罗素、怀特海的《数学原理》仍被奉作今逻辑之正统经典，其规划的类型体系杜绝了悖论，逻辑之旁枝声势依然孱弱。达·斯科特的次协调逻辑在这众多派系中并不显眼。或许该成果只是专营之堆砌，但其大胆弱化矛盾律，抛弃司各脱律之创见，愚深以为然！！！如作者之比喻，关于几何平行第五公设之解禁，非欧几何，奇葩般绽放盛开。并非所有矛盾都是无意义的！这不正是黑格尔和维特根斯坦的哲学远见之所在吗？

        或许对待矛盾、悖论，我们换副眼镜，变个万花筒，智能是什么？这就更清澈了。

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师

• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

(require (lib "defmacro.ss"))

; cons-stream : obj stream ->  stream
;   construct a stream whose first element is obj and whose tail is stream
;   [cons-stream is a special form]
(define-macro cons-stream
  (lambda (car cdr)
    `(cons ,car (delay ,cdr))))

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛

    打开Word已经许久，本想写篇过了保险代理人考试，公司人事变动方面感怀的文字。但那种情绪与思绪是那么难以捕捉与整理，面对屏幕良久，作罢。

       上午从总部拿回最新这期的《程序员》。信手翻翻——就像数钞票那样，再看了看目录，SaaS就跟$一样充斥在各个角落。内心顿生强烈的反感。再看看封二的广告：2007软件开发2.0大会，特别是下面标榜的四大主题：web2.0、企业开发2.0、系统开发2.0、语言工具2.0。看得我更是一头雾水，啼笑皆非。

       不是要“炮轰司令部”，不是想哗众取宠。只是想看看我们这个行业到底怎么了？

       刚才还和同事讲了一个比喻：我们这个行业里炒作的这些Web服务、服务组件、BEPL、SaaS……它们就像股市、楼市里面的泡沫。铺天盖地的宣传都鼓吹它们怎么个好、怎么个划时代。就好像股市里有人大肆吹嘘发现了神仙股，让大家都去买都去赚大钱。姑且不论这“神仙股”的真实性，但即便大家赚钱，可通货膨胀也会使你的购买力原地踏步，因为你并没有领先。上帝——如果真有的话——是不会垂青那些“没有脑子”的人的。要有自己的“价值投资”策略，才可能成为格雷厄姆、成为沃伦·巴菲特。Multis不可一世时，UNIX只是Ken Tompson的个人玩具；UNIX如日中天时，微软在传统的漠视与狂热的夹缝下掘地而起；IBM层次数据库大兴其道，赚得盆满钵满的时候，Oracle拨开迷雾挑起关系数据库之大旗……

       独辟蹊径，后来居上的例子比比皆是。“机会不可均沾”——或者换个说法（但也可能更不好听），叫做“群众永远是错的”——这个被保罗· 萨谬尔逊纳入经济学三大原理的法则，或许正好能够印证这些例子。别人兜售的，时下如火如荼流行的，它们真是“神仙股”吗？作为一个投资者（相比金钱，时间其实更稀缺），我们应该慎重。

       但这些“泡沫”，它们真是泡沫吗？还是笔者浅薄的偏见？它们从何而来？它们会消亡吗？第一个问题见仁见智，开篇我以表明了我的观点。第二个问题依然见仁见智，客观标准是难以真正客观的。就第三个问题，我到着实是想浓墨重彩的好生渲染诟病一番。“它们从何而来”——

       看看那些曾经的泡沫——死了一个CORBA，可以再有一个EJB，Without EJB了我们可以有Web服务，可以有SOA，可以有ESB……莫不感叹其舆论之顽强啊。还记得Rod Johnson在谈到远程服务技术（Hession、Burlap）时曾坦言“标准化抑制创新”。事实也正是如此，“标准化”让人们或主动或被动的得接受它。而“标准化”是谁在制定呢？是大厂商，实现标准的相应软件工具是谁在做，谁在买，谁在赚大钱呢？是大厂商。问题的根子就在这里。立法与司法兼于一人，没了三权分离，那么公平、民主、创新又从何谈起。这个类比是牵强，但核心之所在即大厂商缺乏技术层面的监督。它们就好比那些金融寡头肆意创造基于垃圾债券的金融衍生产品。不同的是，无限的金融衍生产品可以卷住大量货币，使其游离于实物商品市场之外，达到控制通货膨胀，掩人耳目于货币大量增发之事实。而技术行业（这个以复杂性为生的行业）的泡沫，圈走的除了企业的金钱财富，还有一代程序员宝贵的时间财富。

现下，这个行业是个完全没有“管制”的市场，但，它并不竞争完全，它的前行只能依靠亚当·斯密那“看不见的手”。没有有力的调控，我们将不得不经历一次又一次的泡沫破碎。因而“泡沫”永远不会消亡。

但，我们不必过于灰心绝望。美国资本史上长达100多年没有中央银行，但它也依然能历久弥新。即便是1837后历史上最严重的萧条，但也能在1848发现加州的黄金后经济焕然一新。在我们这个研究复杂性的行业，也依然可见那石上清泉——UNIX、MS、Oracle DB、Google、Lisp、Scheme、FP、Smalltalk、Kent Beck、Erlang、Hashkell、SICP、TAOCP、MMM……

——KISS！

世界本已纷繁复杂，我们应用有限的青春岁月去破除梳理这个世界，而不是去创造复杂坑害于世。像爱因斯坦一个执拗的活着：“简单，但不要太简单”。

• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

function People () {
	var money = 0
	function setMoney (dollars) {
		money = dollars
	}
	function pay (dollars) {
		money -= dollars
	}
	return (function (verb) {
		return eval(verb)
	})
}

function Fool (iq) {
	var IQ = iq || 0
	function init (iq) {
		IQ = iq
	}
	return (function (verb) {
		try {
			return eval(verb)
		} catch (e) {
			return People()(verb)
		}
	})
}

Fool = extend('People()', function (iq){
	var IQ = iq || 0
	function init (iq) {
		IQ = iq
	}
})

var origin = People()

function () {
	return (function (origin) {
		var IQ = 0
		function init (iq) {
			IQ = iq
		}
		return (function (verb) {
			try {
				return eval(verb)
			} catch (e) {
				return origin(verb)
			}
		})
	})(People())
}

function extend (originc, code) {
	function argsArea (code) {
		// 题外话，正则表达式也有不值得一用的时候
		return code.slice(code.indexOf('(')+1, code.indexOf(')'))
	}
	function bodyCode (code) {
		// 不用 trim() 了，别没事儿找事儿
		return code.slice(code.indexOf('{')+1, code.lastIndexOf('}'))
	}
	function format (body) {
		var objc = bodyCode(function () {
			return (function (verb) {
				try {
					return eval(verb)
				} catch (e) {
					return origin(verb)
				}
			})
		}.toString())
		return 'return (function (origin) {'+body+objc+'})('+originc+')'
	}
	var $ = code.toString()
	return Function(argsArea($), format(bodyCode($)))
}

if (arguments.length == 1) {
	code = originc
	originc = 'AbsObj()'
}

function AbsObj () {
	//检测是否能响应此 verb，要再用一次异常处理
	function canHandle(verb){
		try {
			// 别担心这里的 self 会传递不过去
			self(verb)
		} catch (e) {
			return false
		}
		return true
	}
	function toString() {} // 这个搞起来其实很麻烦~`
	var self = function (verb) {
		return eval(verb)
	}
	return self
}

• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

db4o 是一个开源的纯面向对象数据库，同时支持Java和dotNet。使用db4o可以用更加面向对象的方式存储数据，比JPA等通过ORM来协调数据库和对象之间的方案来的更为自然。

那么用函数式编程的眼光来看，应该如何使用db4o这样的库呢？首先我们来看一个db4o的包装类

看一个实际的例子，People和AutoInfo是POJO，People有一个指向AutoInfo的List。通过继承LazyQuery的Peoples可以很容易做一些查询、filter、以及复杂的操作。由于是functional的（所有的constrain都是query=>query的函数），所以各个查询条件可以互相组合，非常方便

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

虽然scala里也能直接使用hibernate逆向工程生成的entity文件，但是使用scala可以大大减少代码量。

pojo在java中的定义如下