我试图在另一个函数中调用我编写的反向函数(当单独调用时可以工作),但是输出错误的结果。
我正在编写一个程序以获取关于二元多项式的x的导数。我有一个名为poly_derx的主要函数,它将调用我的两个辅助函数reverse_list和mult_by_index。
(define (mult_by_index list_1)
(if (null? list_1)
list_1
(map * list_1 (range (length list_1)))))
(define (reverse_list list_1)
(if (null? list_1)
list_1
(append(reverse (cdr list_1)) (list (car list_1)))))
(define (poly_derx list_1)
(if (null? list_1)
list_1
(reverse_list(cons (mult_by_index (car list_1)) (poly_derx (cdr list_1))))))
(poly_derx `( (1) (1 2 3) () (3)))
同样,我的3个函数可以正常工作,直到在poly_derx中添加reverse_list为止。另外,我知道有一个反向内置函数,但是我也遇到同样的问题。
在这一点上,我唯一想做的就是尝试在函数的不同点调用反向,但我对工作一无所知。
您的问题取决于您是否reverse
处于默认情况下,并且从头到尾为每个子列表调用它。因此(poly_derx '(1 2 3))
成为(reverse_list (cons res1 (reverse_list (cons res2 (reverse_list res3 (reverse_list '())))))
。您只需要反转最终结果。您可以使用助手来做到这一点:
(define (poly_derx list_1)
(define (helper list_1)
(if (null? list_1)
list_1
(cons (mult_by_index (car list_1)) (helper (cdr list_1)))))
(reverse_list (helper list_1)))
同样,由于列表是从头到尾创建的,并且是从头到尾进行迭代的,因此您可以使用它来反转帮助器中的列表。
(define (poly_derx list_1)
(define (helper list_1 result)
(if (null? list_1)
result
(helper (cdr list_1) (cons (mult_by_index (car list_1)) result))))
(helper list_1 '()))
因此请注意,您不能为每个迭代应用一次要执行的过程。它将产生意想不到的结果。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句