方案重新定义列表

Question

我有一个称为手的列表，另一个称为牌组，这里的主要目标是在我调用功能抽牌时取出列表牌组中的第一张牌（或元素）并将其放入列表手中......

> (draw hand deck)
(2 C)
> (draw hand deck)
(2 C) (3 H) 
> (draw hand deck)
(2 C) (3 H) (K D)

但每次我调用它的手永远不会改变价值...... 我不知道有没有像 O-Object 那样的方法来永久改变手的内容？

我最初定义手牌为空，因为玩家没有牌可以开始。

(define hand '())

Answer 1

一个功能性的解决方案，draw没有副作用：

;; Returns a cons whose car will be the new hand and cdr being the
;; rest of the original deck
(define (draw deck hand)
    (if (not (null? deck))
        (cons (cons (car deck) hand) (cdr deck))
        (cons hand ())))

;; Gets the new hand from the cons returned by draw.
(define (hand cards) (car cards))

;; Gets the new deck from the cons returned by draw.
(define (deck cards) (cdr cards))

;; test
(define cards (draw '(1 2 3 4 5) ()))
cards
=> ((1) 2 3 4 5)
(hand cards)
=> (1)
(deck cards)
=> (2 3 4 5)
;; draw again
(set! cards (draw (deck cards) (hand cards)))
cards
=> ((2 1) 3 4 5)
(hand cards)
=> (2 1)
(deck cards)
=> (3 4 5)

Answer 2

您无法更改列表的内容，但可以更改名称引用的列表。所以：

(let ((some-list '("post")))
 (display "initially: ")
 (display some-list)
 (newline)
 (set! some-list (cons "first" some-list))
 (display "added first: ")
 (display some-list)
 (newline)
 (set! some-list '(a completely new list))
 (display "finally: ")
 (display some-list)
 (newline)
 some-list)

现在每个列表 '("post") '("first" "post") 和 '(一个全新的列表) 都是不可更改的（“不可变”）列表，但名称 some-list first 指向一个，然后是另一个，然后是第三个。

警告：对于许多问题，您需要避免设置！并尝试以不同的方式思考问题。例如，如果您在游戏中使用世界和宇宙，
http://pre.plt-scheme.org/plt/doc/ teachingpack/2htdpuniverse.html
那么你会希望你的更新程序返回一个新的世界状态而不是使用 set！修改旧的。

Answer 3

哦，接下来你会发现，从调用该函数的人的角度来看，更改函数内名称所指的列表不会改变该名称所指的内容。所以：

(define (foo lst)
  (set! lst '(hi))
  (display "within foo: ")
  (display lst)
  (newline)
  lst)
(define my-list '(hello))
(foo my-list)
(display "after foo: ") 
(display my-list)
(newline)
(set! my-list (foo my-list))
(display "using the result of foo: ")
(display my-list)
(newline)

Answer 4

Vijay 为Scheme 提供了最佳解决方案。但是，如果您确实想要通过永久更改列表来实现此目的，则需要使用 set-car! 和 set-cdr!代码>.这在Scheme中并不自然，需要一些技巧才能使其工作：

首先定义hand和deck：

(define hand '(dummy))
(define deck '((2 C) (3 H) (K D)))

hand必须以现有元素，以便它有一些现有的列表结构需要修改。您不能将 set-car! 和 set-cdr! 与 nil ( '() ) 一起使用。

现在写draw：

(define (draw from to)
  ; push the top element of `from` onto `to`
  (set-cdr! to (copy to))
  (set-car! to (car from))
  ; pop the top element of `from` off
  (set-car! deck (cadr deck))
  (set-cdr! deck (cddr deck)))
; also we need to define copy
(define (copy l)
  (map (lambda (x) x) l))

这意味着你手上的最后一个元素将始终是虚拟的。最好添加对初始情况的检查并覆盖它而不是推送：

(define (draw from to)
  ; push the top element of `from` onto `to` (just overwrite the first time)
  (when (pair? (cdr to))
    (set-cdr! to (copy to)))
  (set-car! to (car from))
  ; pop the top element of `from` off
  (set-car! deck (cadr deck))
  (set-cdr! deck (cddr deck)))

此外，您应该在执行任何操作之前检查 from 是否为空。