kenpusney

##
## eval_rec : Evaluate the script files in `dir` recursively.
## @usage : eval_rec <dir>
##
function eval_rec {
    cd $1;
    for file in `ls`;
    do
        [ -d $file ] && eval_rec $file;
        if [ -f $file ] 

kenpusney

Overview of some programming languages

Intro

本来只打算把这个东西作为给很多人引入Objective-C的一个东西，但一不小心写多了，然后就成了酱紫了。

C

C语言的能力完全被国内的高校弱化了，并不是一个简单的结构化的面向过程的程序设计语言，但国内的普遍用的“C语言程序设计”教材都仅仅提供了一些简单的面向过程的结构化程序设计思想而已。

kenpusney

#include <stdlib.h>

typedef void (*handle)();

int main(){
    atexit((handle)main);
    return 0;
}

kenpusney

#!/usr/bin/env m4

define(`qoute',``$@'')

define(`cons',``($1,$2)'')

define(`__inner_car',``$1'')
define(`car',`__inner_car$1')

define(`__inner_cdr',``$2'')

kenpusney

;;;; Last modified : 2013-03-31 13:26:31 tkych

;; Usage:
;;   (string-to-morse "Samuel")
;;         => "... ._ __ .._ . ._.."
;;   (morse-to-string "__ ___ ._. ... .")
;;         => "MORSE"

;;   (string-to-morse "Samuel Morse")
;;         => error!! #\Space can't be converted to morse code.

kenpusney

var empty_list = function(selector) {
    return selector(undefined, undefined, true);
};

var prepend = function(el, list) {
    return function(selector) {
        return selector(el, list, false);
    };
};
var head = function(list) {

kenpusney

#!/usr/bin/env ruby

class Guesser
    attr_reader :guess
    def initialize(num)
        @num = num
        @guess = rand num
        @guessq = []
        @guessq.push(@guess)
        printf "I guess %d. \n", @guess

kenpusney

class Router
    def initialize
		@router = []
	end
	
	def reg(path,&block)
		@router << { :path => path, :block => block}
	end
	
	def fetch(url)

kenpusney

System Info Reporter

kenpusney

#!/usr/bin/env bash
 
 
 
usage() {
echo "Usage: vc.sh <file>";
echo "view-chinese in utf-8.. Author: Kim Leo";
exit;
}