redraiment

require 'active_record'

ActiveRecord::Base.logger = Logger.new(STDERR)
ActiveRecord::Base.colorize_logging = false

ActiveRecord::Base.establish_connection(
    :adapter => "sqlite3",
    :database  => ":memory:"
)

redraiment

#!/usr/bin/ruby
# -*- coding: utf-8 -*-

require 'cgi'

module Html

  def self.tag(content)
    n, a = content.split /\s+/, 2
    {:tag => n}.update(attr: Hash[(a or '').scan(/(\w+)="([^"]*)"/)])

redraiment

#include <algorithm>
#include <iostream>
#include <cstdlib>
using namespace std;

int main(void) {
  char s[4];

  while (cin >> s) {
    sort(s, s + 3);

redraiment

// 球面坐标系统
var Spherical = function(radial, polar, azimuthal) {
    var self = this;

    self.radial = radial || 1
    self.polar = polar || 0
    self.azimuthal = azimuthal || 0
};

// 转换成直角坐标系统

redraiment

import rlcompleter
import readline
import atexit
import os

# http://stackoverflow.com/questions/7116038/python-tab-completion-mac-osx-10-7-lion
if 'libedit' in readline.__doc__:
    readline.parse_and_bind('bind ^I rl_complete')
else:
    readline.parse_and_bind('tab: complete')

redraiment

(defun conj (v &rest c)
  (append v c))

(defun r (exp)
  (do ((e (cons nil (string-to-list exp))
          (let ((s (car e)) (x (cdr e))
                (a (cadr e)) (d (caddr e)))
            (cond
             ((= a ?%)
              (cons (apply (apply-partially #'conj s)

redraiment

ZSH在交互方面的确比Bash略胜一筹，但习惯了Bash下大小写无关补全等功能，需要对zsh的默认配置做一些调整。

redraiment

Y组合子是Lambda演算的一部分，也是函数式编程的理论基础。

它是一种方法/技巧，在没有赋值语句的前提下定义递归的匿名函数。
即仅仅通过Lambda表达式这个最基本的“原子”实现循环/迭代。
颇有道生一、一生二、二生三、三生万物的感觉。

虽然Y组合子在理论上很优美，但在实际开发中并不会真的用到。

想要了解Y组合子是什么，请参见维基百科：http://en.wikipedia.org/wiki/Fixed-point_combinator#Y_combinator
或者知乎上的回答：http://www.zhihu.com/question/20115649

redraiment

; dump tree with a recursive lambda
(funcall
 (fn dump-tree (e)
     (if (atom e)
         (format t "~A~%" e)
       (mapc #'dump-tree e)))
 '(1 (2 (3 (4) 5) 6) 7 (8 9)))

redraiment

(defmacro sublist (1st start &optional (size nil))
  "(sublist start size?)

  Returns a list of the items in vector from start (inclusive)
  to start + size (exclusive). If size is not supplied,
  defaults to end of list."
  `(loop for item in (nthcdr ,start ,1st)
         ,@(if size
               `(for i from 1 to ,size))
         collect item))