unionx

Programming Achievements: How to Level Up as a Developer

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.

unionx

My Programming Language

The language is a lisp dialect.

unionx

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

# 题目：下图中一共有多少个矩形？星号表示挖空不计的部分

# # # # # # # # # # #
# # # # # # # # # # #
# # # * * * * # # # #
# # # * * * * # # # #
# # # * * * * # # # #

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

;;;;;; 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/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                                                                                                                           

unionx

(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))

unionx

(defun null. (x)
  (eq x '()))

(defun not. (x)
  (cond (x '())
	('t 't)))

(defun and. (x y)
  (cond (x (cond (y 't)
		 ('t '())))

unionx

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

import os
import sys


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

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

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")