This gist is part of a blog post. Check it out at:
http://jasonrudolph.com/blog/2011/08/09/programming-achievements-how-to-level-up-as-a-developer
This gist is updated by unionx and applied for unionx.
This gist is part of a blog post. Check it out at:
http://jasonrudolph.com/blog/2011/08/09/programming-achievements-how-to-level-up-as-a-developer
This gist is updated by unionx and applied for unionx.
#!/usr/bin/env python | |
#coding:utf-8 | |
# 题目:下图中一共有多少个矩形?星号表示挖空不计的部分 | |
# # # # # # # # # # # | |
# # # # # # # # # # # | |
# # # * * * * # # # # | |
# # # * * * * # # # # | |
# # # * * * * # # # # |
#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); |
;;;;;; 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) |
#!/usr/local/bin/emacs --script | |
(defun read-lines (filename) | |
(with-temp-buffer | |
(insert-file-contents filename) | |
(split-string (buffer-string) "\n" t))) | |
;; test.log | |
;; 111111,22222222222,3333333333333 |
(defun traverse (lst elt) | |
(defun traverse-and-count (lst elt cnt) | |
(if (= 0 (length lst)) | |
cnt | |
(progn | |
(if (equal elt (car lst)) | |
(traverse-and-count (cdr lst) elt (+ 1 cnt)) | |
(traverse-and-count (cdr lst) elt cnt))))) | |
(traverse-and-count lst elt 0)) |
(defun null. (x) | |
(eq x '())) | |
(defun not. (x) | |
(cond (x '()) | |
('t 't))) | |
(defun and. (x y) | |
(cond (x (cond (y 't) | |
('t '()))) |
#!/usr/bin/env python | |
#coding: utf-8 | |
import os | |
import sys | |
# 好吧其实我现在写这种短代码不太考虑怎么写的好了,不过还是有个人习惯在里面 | |
EXTS = ['cc', 'java', 'cpp', 'c', 'py', 'cxx', 'hs', 'lisp', 'scm', 'el', 'clj'] |
#!/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") |