麻省理工学院计划消息传递列表布尔

Question

在过去的几天里，我一直在关注计划问题，包括创建一个消息传递过程，记录朋友列表，然后可以操纵该列表来更改在线或离线的特定朋友的价值。如果放入的人是朋友，则返回true。如果尚未添加，则返回false。它还可以显示在线朋友的列表，以及您拥有的另一个列表。基本上，这个想法是让一些可以改变的Facebook追踪器。它响应4个输入：'添加'，切换状态，'在线朋友和'朋友。

这是我已经成功至今获得：

(define (sort-strings lst) 
    (sort lst string<?)) 

(define (make-facebook-list) 
(let ((T '())) 
(define (dispatch x) 
    (define (add-person name) 
(set! T (cons (cons name #f) T)) 
'done) 
    (define (online? friend) 
(eq? friend #t)) 
    (define (toggle-status! name) 
(begin ;(if() (set! T (cons (cons name #t) T))) 
    (if (member name T) 
     (set-cdr! T (cons (cons name (not (cdr name)) T)))) 
    (if (member name T) #t #f))) 
    (define (get-online-friends!) 
(sort-strings (filter online? T))) 
    (define (get-friends!) 
(sort-strings T)) 
    (cond ((eq? x 'add) add-person) 
    ((eq? x 'toggle-status) toggle-status!) 
    ((eq? x 'get-online-friends) (get-online-friends!)) 
    ((eq? x 'get-friends) (get-friends!)) 
    (else (error "Unknown Request" x)))) 
dispatch)) 

而这些是我使用的测试案例：

(define my-lst (make-facebook-list)) 
(display ((my-lst 'add) "Francis"))(newline) ; should return 'done 
(display ((my-lst 'add) "Adrian"))(newline) ; should return 'done 
(display ((my-lst 'add) "Zule"))(newline) ; should return 'done 
(display ((my-lst 'add) "Geralt"))(newline) ; should return 'done 
(display ((my-lst 'add) "Dexter"))(newline) ; should return 'done 
(display ((my-lst 'add) "Leonidas"))(newline) ; should return 'done 
(display ((my-lst 'toggle-status) "Leonidas"))(newline) ; should return #t 
(display ((my-lst 'toggle-status) "Francis"))(newline) ; should return #t 
(display ((my-lst 'toggle-status) "Zule"))(newline) ; should return #t 
(display ((my-lst 'toggle-status) "Xavier"))(newline) ; should return #f 
(display (my-lst 'get-online-friends))(newline) ; should return ("Francis" "Leonidas" "Zule") 
(display (my-lst 'get-friends)) ; should return ("Adrian" "Dexter" "Francis" "Geralt" "Leonidas" "Zule") 

我知道他们不会全部现在工作，这就是为什么我评论了一些程序。我试图正确运行的那个是将状态切换到在线或离线状态的过程。我被引导认为“成员”是用来检查某个值是否是列表的一部分。我是否以这种错误的方式去做？

注意：排序字符串过程旨在与返回朋友列表的过程一起使用，以便按字母顺序保留它们。

Answer 1

你的朋友是begin，迫使下面的表达式进行评估顺序：

(define (make-facebook-list) 
    (define T '()) 
    (define (dispatch x) 
    (lambda (fl) 
     (cond ((eq? x 'add) 
      (begin 
       (set! T (append T (list fl))) 
       'done)) 
      (else 'invalid)))) 
    dispatch) 

scheme@(guile-user)> (define my-lst (make-facebook-list)) 
scheme@(guile-user)> ((my-lst 'add) "Francis") 
$1 = done 

编辑

(define (make-facebook-account) 
    (let ((*facebook-friends* '())) 
    (define (sort-alphabetically sequence) 
     (sort-list sequence string<?)) 
    (define (friend name) 
     (assoc name *facebook-friends*)) 
    (define (friends-name friend) 
     (car friend)) 
    (define (friends-status friend) 
     (cdr friend)) 
    (define (online? friend) 
     (eq? (friends-status friend) #t)) 
    (define (friend-on-facebook? name) 
     (if (member (friend name) 
        *facebook-friends*) 
      #t #f)) 
    (define (add-person! name) 
     (begin 
     (set! *facebook-friends* 
       (cons (cons name #f) 
        *facebook-friends*)) 
     'done)) 
    (define (toggle-status! name) 
     (if (friend-on-facebook? name) 
      (begin 
      (set-cdr! (friend name) 
         (if (online? (friend name)) 
          #f #t)) 
      'done) 
      (error 
      "Person no friend on facebook -- TOGGLE-STATUS!" name))) 
    (define (get-friends table) 
     (sort-alphabetically 
     (map friends-name table))) 
    (define (get-online-friends table) 
     (get-friends 
     (filter online? table))) 
    (define (dispatch m) 
     (cond ((eq? m 'add!) add-person!) 
      ((eq? m 'toggle-status!) toggle-status!) 
      ((eq? m 'get-friends) 
      (get-friends *facebook-friends*)) 
      ((eq? m 'get-online-friends) 
      (get-online-friends *facebook-friends*)) 
      ((eq? m 'friend-on-facebook?) friend-on-facebook?) 
      (else 
      (error "Unknown request -- DISPATCH" m)))) 
    dispatch))