原创 圖形語言

mit-scheme裏沒有直接提供wave和rogers這兩個過程,但是DrRacket提供einstein,只需加上開頭兩行就可使用 #lang racket (require (planet "sicp.ss"("soegaa

原创 cons的定義

這又是一個讓我感到很驚訝的thing,讓我們理清一下思路: 現在我們是要實現cons,car以及cdr,使得(car (cons x y))=x,(cdr (cons x y))=y,cons由我們自己定義,它的值要麼是數,要麼

原创 圖形操作

這一章通過實現圖形語言的過程體現了程序的層次性 (define device (make-graphics-device (car (enumerate-graphics-types)))) (define (draw-

原创 幾個withdraw程序的對比

;balance在全局環境裏,沒什麼好說的 (define balance 100) (define (withdraw amount) (if (>= balance amount) (begin (set! b

原创 隊列的表示

(define (make-queue) (cons '() '())) (define (front-ptr queue) (car queue)) (define (rear-ptr queue) (cdr que

原创 二進制炸彈(第二次實驗)

實驗目的 本實驗通過要求你使用課程所學知識拆除一個“binary bombs”來增強對程序的機器級表示、彙編語言、調試器和逆向工程等方面原理與技能的掌握。 一個“binary bombs”(二進制炸彈,下文將簡稱爲炸彈)是一個Li

原创 109.triangle

class Solution: """ @param: triangle: a list of lists of integers @return: An integer, minimum path sum

原创 115. Unique Paths II

class Solution: """ @param: obstacleGrid: A list of lists of integers @return: An integer """ def u

原创 流(3.5.1~3.5.2)

;流實現的行爲方式 ;delay和force的實現 (define (memo-proc proc) (let ((already-run? false) (result false)) (lambda () (i

原创 約束的傳播

;連接器的表示 ;user不需要也不能添加進constraints表裏面,並且只有實現connect過的constraint才能進行set-value! (define (make-connector) (let ((value fa

原创 114. Unique Paths

class Solution: """ @param: m: positive integer (1 <= m <= 100) @param: n: positive integer (1 <= n <= 100)

原创 111. Climbing Stairs

class Solution: """ @param n: An integer @return: An integer """ def climbStairs(self, n):

原创 110.Minimum Path Sum

class Solution: """ @param: grid: a list of lists of integers @return: An integer, minimizes the sum of all

原创 rot13Reader

package main import ( "io" "os" "strings" ) type rot13Reader struct { r io.Reader } func (rot rot13R

原创 397. Longest Increasing Continuous Subsequence

class Solution: """ @param: A: An array of Integer @return: an integer """ def longestIncreasingCon