原创 分治法(Scheme) -- 快速排序

; Quick-sort, 快速排序 ;====================================================================================== (quick-sort

原创 動態規劃(scheme)--求最少硬幣數

; Dynamic Programming, 動態規劃 ; ==================================================== ; 題目:有面值爲1元、3元和5元的硬幣若干枚,如何用最少的硬幣湊夠11

原创 LeetCode -- Two Sum

從數組中找出兩個數之和等於指定值的座標: Given an array of integers, find two numbers such that they add up to a specific target number.

原创 LeetCode -- Median of Two Sorted Arrays

求解兩個有序數組的的中值,下面的方法的確巧妙: class Solution { int findKmin(int k, int A[], int m, int B[], int n){ if(m == 0) re

原创 數據結構(scheme) -- 字符串

; String, 字符串 ; ============================================================================ (define name "Henry Mill"

原创 scheme和lisp資源分享

lisp主要有scheme和common lisp兩種方言, scheme語法規則簡潔;common lisp 規則複雜,內置oop,函數庫多; 具有(code is data; data is code)的表達力,內建大整數和複數支持;

原创 C語言設計---scheme表示

C語言設計 (第一章) ;; petite.exe --script lib.ss (printf "hello, world!\n") ; 打印第一個

原创 Fibonacci數---scheme表示

;;; three implementation of fibonacci number ; recusive style of fibonacci number (define (fib1 n) (if (< n 3)

原创 二分查找(Scheme)

; Binary-search, 二分查找 ;====================================================================================== (binary-s

原创 數據結構(scheme) -- 抽象數據類型(ADT) -- 樹

; 樹, 嵌套鏈表,Tree (define tp (tree 'type)) ; tp = ('type) (tree-add tp 'unkown)

原创 數據結構(scheme) -- 抽象數據類型(ADT) -- 堆

; ================================================================================= ; 堆,Heap , 又名優先級隊列,高優先級元素先出,Priorit

原创 數據結構(scheme) -- 基本類型

引自wiki定義數據結構: http://en.wikipedia.org/wiki/List_of_data_structures ; Primitive types (define a #t) ; 邏輯類型, true or fa

原创 數據結構(scheme) -- 抽象數據類型(ADT) -- 隊列

; 隊列,先進先出(FIFO), Queue (define q (queue 1 3 "name" #t)) ; q = (1 3 "name" #t) (queue-in q 100) ; q

原创 數據結構(scheme) -- 抽象數據類型(ADT) -- 圖

; ================================================================================== ; 圖,Graph ; 無向圖 ; ((0 1 2 4) ; (1

原创 楊輝三角---scheme表示

(define (pr n) (define (update l) (if (not (null? (cdr l))) (begin (set-car! l (+ (car l) (car