Я нахожусь в университете, программирую на первом курсе, так хорошо, что я застрял в этом упражнении, я должен выполнить функцию, которая:
функция (n1 n2) = n1 * n2
но без использования оператора *.
Что мы можем использовать? Предыдущая функция, которая добавляет два числа
; Принимает два числа как ввод и возвращает сумму между ними
; Номер Номер -> Номер
; (сумма 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, поэтому я пытаюсь сделать это здесь но я не могу понять больше, чем это
; Принимает два числа как ввод и возвращает умножение между ними
; Номер Номер -> Номер
; (мульт 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