原创 圖形語言
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