Найти индекс 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)))))

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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