Drop и take

@Artem7693 · Регистрация: 29.11.2017

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

На вход drop и take подаётся целое число n и поток(бесконечный список).Функция drop должна выдавать поток без первых n элементов.Функция take должна выдавать список из первых n элементов потока. В случае недостаточного количества
элементов в потоке необходимо удалять/возвращать то количество элементов, которое есть в наличии.

Добавлено через 30 минут

Lisp

(defun take (n potok)
  (when (and n (plusp potok)) (cons (car n) (take (cdr n) (1- potok)))))
 
(print (take '(1 2 3 4 5) 3))
(print (take '() 3))
(print (take '(1 2 3 4 5 6 7 8 9 10) 7))
 
(defun drop (n potok)
  (if (= potok 0)
      n
      (drop (cdr n) (- potok 1))))
 
(print (drop '(1 2 3 4 5) 3))
(print (drop '() 3))

@korvin_ · 23.11.2018, 17:38

Artem7693, ты всё перепутал: n — это число, а potok — это, внезапно, поток. Но в чём вопрос-то?

@Artem7693 · 23.11.2018, 18:33 **[ТС]**

Был вопрос с реализацией,но потом я это всё исправил и закинул работающий вариант

@_sg · 23.11.2018, 19:45

Сообщение от Artem7693

(1- potok)

n — список, potok — число

Добавлено через 6 минут

Lisp

(defun take (n p)
  (when (and p (plusp n)) (cons (car p) (take (1- n) (cdr p)))))
 
> (take 2 '(1 2 3 4))
(1 2)

Добавлено через 2 минуты

Lisp

(defun drop (n p)
  (if (zerop n) p (drop (1- n) (cdr p))))
 
> (drop 2 '(1 2 3 4))
(3 4)

@korvin_ 4539 / 2732 / 486 Регистрация: 28.04.2012 Сообщений: 8,628
	23.11.2018, 17:38	2
	Artem7693, ты всё перепутал: n — это число, а potok — это, внезапно, поток. Но в чём вопрос-то? 1

@Artem7693 8 / 6 / 2 Регистрация: 29.11.2017 Сообщений: 206
	23.11.2018, 18:33 [ТС]	3
	Был вопрос с реализацией,но потом я это всё исправил и закинул работающий вариант 0

	23.11.2018, 19:45