Найти индекс n-го отрицательного вхождения (желательно Scheme) - Lisp

Узнай цену своей работы

Формулировка задачи:

Найти индекс n-го отрицательного вхождения. Пример: task('(3 -2 -4 -7 9), 2) -> 3

Решение задачи: «Найти индекс n-го отрицательного вхождения (желательно Scheme)»

textual
Листинг программы 
(defun F (L P)
 (if (null L) nil
  (if (minusp (car L))
   (if (= 1 P) 0
    (1+ (F (cdr L) (1- P))))
   (1+ (F (cdr L) P)))))

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.5 из 5