Почему на выходе nil?

@Кровавая Рука · Регистрация: 08.09.2012

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

Хочу сделать ввод в список с клавиатуры до того, как будет введён nil. Подскажите пожалуйста, что я недопонимаю и почему в итоге список пустой?

Lisp

 
(progn 
  (setq li (list ())) 
  (print "введите числа, для окончания ввода: nil") 
  (do ((i))
    ((eq (read) nil) li)
    (cons '(read) li)
  )
)

@helter · 23.09.2013, 20:18

Поставьте push вместо cons и продолжайте удивляться.

Сообщение от Кровавая Рука

Подскажите пожалуйста, что я недопонимаю

По-моему, всё.

@filimonix · 23.09.2013, 23:01

Так, на скорую руку накарябал.. Функция будет возвращать список, полученный путём ввода с клавиатуры. Если его нужно будет вывести в консоль, например, просто добавишь туда format или ещё чего-нибудь.

Код

(defun f ()
  (format t "Введите числа, для окончания ввода: nil~%")
  (let ((lst nil))
    (do* ((elt (read) (read)))
         ((eql elt nil))
      (push elt lst))
    lst))

З.Ы: Одинарная кавычка перед списком запрещает его работу как функции (не умею грамотно объяснять, короче))) .. когда ты пишешь '(read), то функция read тут даже и не вызывается вообще.. тут получается просто список из одного элемента. Это во-первых.
Во-вторых вот тут ((eq (read) nil) li) ты теряешь то, что вводится с клавиатуры, потому что результат работы read ничему не присваивается.
В-третьих, вообще какой-то странный do у тебя получился.. да и весь код в целом)) Ты на чём писал до того как решил взяться за Lisp? Скобки так никто не оставляет в конце.. все скобки ставятся подряд на одной строке. И не надо ля-ля про то, что так читать удобней)))

@Кровавая Рука · 24.09.2013, 10:12 **[ТС]**

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

По-моему, всё.

Это ж самоочевидно, кэп.. иначе не спрашивал бы..

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

Ты на чём писал до того как решил взяться за Lisp?

pascal, c++, assembler, исполнитель муравей.

спасибо)

@helter · 24.09.2013, 10:30

Переменные нужно объявлять, и желательно, не с помощью setq.

Обычно используют переменные локальные лексические и глобальные динамические (если глобальные на самом деле нужны; в данном случае - нет). Лексические переменные чаще всего объявляются через let, глобальные - через defvar и defparameter.

Для построения списков с нуля часто используется идиома push/nreverse. Функция push добавляет элемент в голову списка и присваивает получившийся список переменной. То есть эта функция имеет побочный эффект (изменение байндинга), что плохо с точки зрения функционального программирования, но нормально с точки зрения CL. Функция nreverse разворачивает список, модифицируя его конс-ячейки. Ею можно пользоваться, только если понимаешь, что делаешь. При построении списка внутри функции с нуля это, как правило, безопасно: конс-ячейки построены у нас на глазах, больше никем не используются и могут быть модифицированы.

Кстати, надо учитывать, что (read) и (read) - разные вещи (то есть возвращают разные значения). Если однажды полученное значение не используется, оно, естественно, потеряется. Таковы они, побочные эффекты.

@Catstail · 24.09.2013, 11:12

Почему в итоге список пустой?

Давай взглянем на твой код:

Lisp

(progn 
  (setq li (list ()))  ;; переменая li будет глобальной... 
                         ;; это не слишком хорошо, но дело не в том.
  (print "введите числа, для окончания ввода: nil") 
  (do ((i))
    ((eq (read) nil) li) ;; Читаешь с консоли элемент данных и сравниваешь с Nil
                            ;; предположим, я ввел "abc" условие не сработает, а "abc" пропадет
    (cons '(read) li)   ;; здесь ты приделываешь к li первым элементом список (read)
                            ;; (из-за апострофа). Кстати, результат тоже пропадает, т.к. ничему не присваивается
  )
)

Я бы поступил так:

Lisp

(progn 
 (let ((li nil) (v nil))
     (loop 
        (princ "Enter number. End - nil ")
        (setq v (read))
        (when (null v) (return (reverse li)))
        (push v li))))
 
Enter number. End - nil 1
Enter number. End - nil 2
Enter number. End - nil 3
Enter number. End - nil 4
Enter number. End - nil 5
Enter number. End - nil nil
(1 2 3 4 5)

А лучше - вот так (полезно отвыкать от явного присвоения типа setq, setf и.т.п.)

Lisp

(progn 
 (let ((li nil) (v nil))
     (loop (princ "Enter number. End - nil ")
        (push (read) v) ;; результат ввода - в стек v
        (when (null (car v)) (return (reverse li))) ;; если вершина стека - Nil - выход
        (push (pop v) li)))) ;; вершину стека v -> в стек li
 
Enter number. End - nil 1
Enter number. End - nil 2
Enter number. End - nil 3
Enter number. End - nil 4
Enter number. End - nil 5
Enter number. End - nil 6
Enter number. End - nil 7
Enter number. End - nil nil
 
(1 2 3 4 5 6 7)

@Catstail · 24.09.2013, 11:21

А можно - гораздо проще. Например, вот так (HomeLisp):

Lisp

(defun get-num-list ()
  (input (strCat "(" (ask "Введите несколько чисел через пробел") ")")))
 
==> get-num-list
(get-num-list)
 
==> (1 2 3 4 5 6)

@Кровавая Рука · 24.09.2013, 21:21 **[ТС]**

акей. тут вроде понял, спасибо.
пойду в следующую тему..

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	23.09.2013, 20:18	2
	Поставьте push вместо cons и продолжайте удивляться. Сообщение от Кровавая Рука Подскажите пожалуйста, что я недопонимаю По-моему, всё. 0

@filimonix 12 / 12 / 2 Регистрация: 02.09.2012 Сообщений: 40
	23.09.2013, 23:01	3
	Сообщение было отмечено как решение Решение Так, на скорую руку накарябал.. Функция будет возвращать список, полученный путём ввода с клавиатуры. Если его нужно будет вывести в консоль, например, просто добавишь туда format или ещё чего-нибудь. Код (defun f () (format t "Введите числа, для окончания ввода: nil~%") (let ((lst nil)) (do* ((elt (read) (read))) ((eql elt nil)) (push elt lst)) lst)) З.Ы: Одинарная кавычка перед списком запрещает его работу как функции (не умею грамотно объяснять, короче))) .. когда ты пишешь '(read), то функция read тут даже и не вызывается вообще.. тут получается просто список из одного элемента. Это во-первых. Во-вторых вот тут ((eq (read) nil) li) ты теряешь то, что вводится с клавиатуры, потому что результат работы read ничему не присваивается. В-третьих, вообще какой-то странный do у тебя получился.. да и весь код в целом)) Ты на чём писал до того как решил взяться за Lisp? Скобки так никто не оставляет в конце.. все скобки ставятся подряд на одной строке. И не надо ля-ля про то, что так читать удобней))) 3

@Кровавая Рука 28 / 4 / 1 Регистрация: 08.09.2012 Сообщений: 76
	24.09.2013, 10:12 [ТС]	4
	Сообщение от helter По-моему, всё. Это ж самоочевидно, кэп.. иначе не спрашивал бы.. Сообщение от filimonix Ты на чём писал до того как решил взяться за Lisp? pascal, c++, assembler, исполнитель муравей. спасибо) 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	24.09.2013, 10:30	5
	Переменные нужно объявлять, и желательно, не с помощью setq. Обычно используют переменные локальные лексические и глобальные динамические (если глобальные на самом деле нужны; в данном случае - нет). Лексические переменные чаще всего объявляются через let, глобальные - через defvar и defparameter. Для построения списков с нуля часто используется идиома push/nreverse. Функция push добавляет элемент в голову списка и присваивает получившийся список переменной. То есть эта функция имеет побочный эффект (изменение байндинга), что плохо с точки зрения функционального программирования, но нормально с точки зрения CL. Функция nreverse разворачивает список, модифицируя его конс-ячейки. Ею можно пользоваться, только если понимаешь, что делаешь. При построении списка внутри функции с нуля это, как правило, безопасно: конс-ячейки построены у нас на глазах, больше никем не используются и могут быть модифицированы. Кстати, надо учитывать, что (read) и (read) - разные вещи (то есть возвращают разные значения). Если однажды полученное значение не используется, оно, естественно, потеряется. Таковы они, побочные эффекты. 1

@Кровавая Рука 28 / 4 / 1 Регистрация: 08.09.2012 Сообщений: 76
	24.09.2013, 21:21 [ТС]	8
	акей. тут вроде понял, спасибо. пойду в следующую тему.. 0

Почему на выходе nil?

Решение