我猜怎么解决这个代码,逻辑问题

时间:2019-06-11 13:29:01

标签: recursion scheme lisp racket

我在大学学习一年级程序,到目前为止一切都好,然后我坚持了这个练习,我必须做一个功能:  函数(n1 n2)= n1 * n2 但没有使用usig *运算符。

我们可以使用的是上一个将两个数字相加的函数

;将两个数字作为输入并返回它们之间的和

;数字--数字

;(和2 3)= 5

 (define (sum n1 n2)
    (cond
        [(zero? n1) n2]
        [(positive? n1) (sum (sub1 n1) (add1 n2))]
  ))

不要使用+或*的技巧是,我们必须使用递归函数。

所以这就是我所做的,这个函数必须返回两个数字的乘法,所以我们知道3 * 2的乘法是3 + 3或2 + 2 + 2,所以这就是我在这里尝试做的但我想不出什么了

;将两个数字作为输入并返回它们之间的相乘

;数字--数字

;(mult 3 2)= 6

  (define (mult n1 n2)
     (cond
         [(zero? n1) n2]
         [(positive? n1) (mult (sub1 n1) (sum n1 n2))]
    ))

(mult 3 2)的输出为8,这显然不符合我的要求。

新手编程学生的问候

解决了!

 (define (mult n1 n2)
     (cond
         [(or (zero? n1) (zero? n2)) 0] ;verify if zero is one of the inputs and return it
         [(eq? 1 n1) n2] ;if n1 is one return n2
         [(eq? 1 n2) n1] ;if n2 is one return n1
         [(positive? n1) (sum n2 (mult (sub1 n1) n2))] ;if it none of the adove, add n2 n1Times to itself
  ))

谢谢! @Barmar @coredump

1 个答案:

答案 0 :(得分:0)

提示:这是使用参数5和3预期递归函数执行的轨迹,其中每个嵌套级别对应于MULT的递归调用:

  0: (MULT 5 3)
    1: (MULT 4 3)
      2: (MULT 3 3)
        3: (MULT 2 3)
          4: (MULT 1 3)
            5: (MULT 0 3)
            5: MULT returned 0
          4: MULT returned 3
        3: MULT returned 6
      2: MULT returned 9
    1: MULT returned 12
  0: MULT returned 15

请注意,此处的递归深度为5,但您可能很聪明,将其改为3。