unionx

#include <stdio.h>
#include <libguile.h>

int main(int argc, char** argv) {
  SCM func;

  scm_init_guile();
  scm_c_primitive_load("c_call_guile.scm");
  func = scm_variable_ref(scm_c_lookup("show-me"));
  scm_call_0(func);

unionx

function foo() {
    let p = new Promise(function(resolve, reject) {
        setTimeout(function() {
            console.log('foo');
            resolve('foo111');
        }, 1000);
    });
    return p;
}

unionx

;;;;;; iteration in common lisp


;;;; do
;; `do` is like `if` in c

(do ((x 1 (+ x 1))
     (y 1 (* y 2)))
    ((> x 5) y)  ;; when x is bigger than 5, return y
  (print y)

unionx

#!/usr/bin/env python
import cProfile

def main():
    for i in range(100000000):
        i / 5.53892138021312312 * 23.23123121321321312 
    print(i)

cProfile.run("main()")

unionx

(require '(clojure [string :as string]
                   [walk :as walk]))

;; page 236 on <Clojure Programming>
(defmacro reverse-it [form]
  (walk/postwalk #(if (symbol? %)
                    (symbol (string/reverse (name %)))
                    %)
                 form))

unionx

(fn reduction1
  ([f col]
     (reduction1 f (f (first col)) (rest col)))
  ([f val col]
     (if (empty? col)
       (list val)
       (cons val (lazy-seq (reduction1 f (f val (first col)) (rest col)))))))

unionx

softwares running on my development machine

Jenkins

I use Jenkins as CI server.

unionx

h1 h2 {
    font-family: Monaco;
    font-style: Normal;
}

h1 {
    font-size: 15px;
}

h2 {

unionx

#!/usr/bin/env python                                                                                                                                         


list_in_list = [[1,2,3], [2,2,2], [1,2,3]]

try:
    dist_list = list(set(list_in_list))
except TypeError:
    print("list in list")

unionx

#!/usr/bin/env python
#coding: utf-8                                                                                                                                                

import os
import sys


# 好吧其实我现在写这种短代码不太考虑怎么写的好了，不过还是有个人习惯在里面                                                                                    

EXTS = ['cc', 'java', 'cpp', 'c', 'py', 'cxx', 'hs', 'lisp', 'scm', 'el', 'clj']