Написать функцию Падована

@Unknown name · Регистрация: 23.11.2017

Студворк — интернет-сервис помощи студентам

функцией Падована (P(n)) называется последовательность натуральных чисел, удовлетворяющая рекуррентному соотношению: 1 если n=(0, 1, 2) или P(n-2)+P(n-3) если n>2. также последовательность может быть продолжена на множество целых чисел: P(-n) = P(-n+3)-P(-n+1)
Напишите функцию, которая по заданным на входе числам z1, z2 возвращает список элементов последовательности падована с номерами от min(z1, z2) до max(z1, z2).

@Catstail · 09.01.2019, 11:23

Без оптимизации:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(define (pad n)
  (cond ((and (>= n 0) (<= n 2)) 1)
        ((< n 0) (- (pad (+ n 3)) (pad (+ n 1))))
        (#t (+ (pad (- n 2)) (pad (- n 3))))))
 
(define (list-pad a b)
    (if (= a b) (list (pad b)) (cons (pad a) (list-pad (+ a 1) b))))
 
(define (task z1 z2)
    (list-pad (min z1 z2) (max z1 z2)))
 
(display (task 10 -6))

https://ideone.com/pioQvL

@_sg · 10.01.2019, 14:10

вариант Common Lisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun padovan (n m)
  (labels ((pds (a b)
             (if (= a b) (list (pdvn b))
                 (cons (pdvn a) (pds (1+ a) b)))))
    (pds (min n m) (max n m))))
 
(defun pdvn (n)
  (cond ((<= 0 n 2) 1)
        ((minusp n) (- (pdvn (+ n 3)) (pdvn (1+ n))))
        ((+ (pdvn (- n 2)) (pdvn (- n 3))))))
 
> (padovan 10 -6)
(-1 1 0 0 1 0 1 1 1 2 2 3 4 5 7 9 12)

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Unknown name 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 6

	Scheme Написать функцию Падована 09.01.2019, 00:58. Показов 1803. Ответов 2 Метки нет (Все метки) функцией Падована (P(n)) называется последовательность натуральных чисел, удовлетворяющая рекуррентному соотношению: 1 если n=(0, 1, 2) или P(n-2)+P(n-3) если n>2. также последовательность может быть продолжена на множество целых чисел: P(-n) = P(-n+3)-P(-n+1) Напишите функцию, которая по заданным на входе числам z1, z2 возвращает список элементов последовательности падована с номерами от min(z1, z2) до max(z1, z2). 0