代码之家 › 专栏 › 技术社区 › user8866063

在递归过程中打印

r5rs racket scheme

user8866063 · 技术社区 · 6 年前

我有一个以面向对象编程范式设计的堆栈过程,堆栈中的一个嵌套过程是print。由于我的堆栈实际上是一个列表,我可以通过调用全局变量my stack来轻松地打印它,但我不想将其打印为列表,我想将其打印为一个堆栈,一个在另一个之上,有方法吗?

(define (print)
(define (print-helper stack)
  (if (empty?)'()
      (print-helper (cdr stack))
))
(print-helper my-stack))

1 回复 | 直到 6 年前

Óscar López 6 年前

如果它是一个堆栈,我们希望打印首先添加的最后一个元素。这应该可以做到:

(define (print)
  (define (print-helper stack)
    (cond ((empty? stack) 'done)
          (else
           (print-helper (cdr stack))
           (display (car stack))
           (newline))))
  (print-helper my-stack))

推荐文章

David J. · 这个基本的scheme函数有什么问题

2 年前

J. Mini · 是否将非函数重新指定为具有集合的函数!创建一个新的框架?

2 年前

Mugoya Dihfahsih · 如何找到给定向量中每个字符串元素的向量长度

2 年前

Asher · 如何使用DrRacket遵循简单方案手册

6 年前

Flux · 如何从MIT方案访问环境变量?

6 年前

Drawkcab Esrever · 方案难以理解我的函数“concat list”输出的输出

6 年前

Adam Morad · 方案反转值

6 年前

Adam Morad · 方案更改树值

6 年前

mishless · 为什么我的以下过程在SICP图片语言中的实现表现得很奇怪?

6 年前

lightning_missile · 词法范围和共享对象

6 年前