Я пишу рекурсивную функцию, которая берет элемент A и список L и возвращает список, равный L, но при каждом удалении A. Вот что я написал: (define (remove A L)
(cond ((eq? A (car L)) (remove A (
Я пишу функцию в схеме, которая должна принимать два целых числа X и Y, а затем рекурсивно добавить X/Y + (X-1)/(Y-1) + ... пока один из номеров достигает 0. Для примера возьмем 4 и 3: 4/3 + 3/2 + 2/1