Функция ввода-вывода в Lisp печатает числа в виде трапеции

@Walimas · Регистрация: 20.04.2014

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

Добрый вечер, всем!

Задание 4

(PR1 k m), которая печатает числа в виде трапеции (m - количество строк, k - число, с которого начинается печать.

вот я делаю так:

Lisp

(defun pr1 (k m)
    (print k)
    (cond (=m k) (terpri))
    (t (pr(+ 1 k) m))))
 
PR1
 
>(pr1 1 4)
1

Этот ответ неправильный. Я везде искал на просторах сети в справочнике lisp, там конкретного нет и непонятно описаны функции ввода-вывода. Честно не понимаю. В общем, такое задание мне нужно сделать в виде трапеция как в примере на рисунке, как это сделать. Поэтому прошу вас, объясните как решить задание. Заранее благодарю.

@castorsky · 20.11.2014, 22:04

Lisp

;; racket-lang.org
(define (foo k m)
  (define (pr lst)
    (printf ";")
    (for ([i (in-list lst)])
      (printf "~a " i))
    (printf "~n"))  
  (let loop ((k k) (m m))
    (if (= m 0)
        (void)
        (begin
          (pr (reverse (range 1 (add1 k))))
          (loop (add1 k) (sub1 m))))))
 
 
(foo 3 4)
;3 2 1 
;4 3 2 1 
;5 4 3 2 1 
;6 5 4 3 2 1 
(foo 1 3)
;1 
;2 1 
;3 2 1

@helter · 20.11.2014, 23:40

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

там конкретного нет

CLHS: http://clhs.lisp.se/Body/f_wr_pr.htm Всё максимально конкретно.

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

Честно не понимаю.

Я бы с удовольствием пояснил, но честно не понимаю, что пояснить. Функции вывода - это функции, которые выводят. Ещё есть вопросы?

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

Поэтому прошу вас, объясните как решить задание.

Не мудрствуя лукаво, используйте функции princ, которая выводит объект без перевода строки, и terpri, которая переводит строку. И вложенный цикл.

@Walimas · 21.11.2014, 04:32 **[ТС]**

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

CLHS: http://clhs.lisp.se/Body/f_wr_pr.htm Всё максимально конкретно.

Шутите что ли, helter?) там все английский язык. Как я могу это прочитать?))

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

Я бы с удовольствием пояснил, но честно не понимаю, что пояснить. Функции вывода - это функции, которые выводят. Ещё есть вопросы?

Этот предмет "функ. программирования" для меня сложно понимать. Да у меня есть вопрос. Я имел в виду что как функции работает вводит и выводят. Хочу побольше узнать как это работает.
У меня лекция написали вот это.
:input - открыть для ввода
:output - открыть для вывода
:io - двусторонный (для ввода-вывода) это как понимать? Привести пример.
Еще есть функция запись и чтение из файла (PRINx поток) и (READ поток) - чем это отличается между потоков PRINx и READ? Оба потоков одинаковый или разный?

Видимо, что на лекции всегда написали очень кратко пояснений. Поэтому у меня очень много вопросов.

Еще у меня есть вопрос, вот это пример,

Lisp

(defun pr (n m)
  (cond ((= n 0)t)
       (tepri)
          (pr n(+ m 1))))

Вот ((= n 0)t) что это все значит? и почему ноль, а можно ставить например, 1 или 4?
(+ m 1) - знак плюс это как бы возрастание строк трапеция, а минус убывание строк трапеция?

@Walimas · 21.11.2014, 04:48 **[ТС]**

Сообщение от castorsky,

Lisp

(define (foo k m)
  (define (pr lst)
    (printf ";")
    (for ([i (in-list lst)])
      (printf "~a " i))
    (printf "~n"))  
  (let loop ((k k) (m m))
    (if (= m 0)
        (void)
        (begin
          (pr (reverse (range 1 (add1 k))))
          (loop (add1 k) (sub1 m))))))

Объясните, что за функции define, in-list lst, let loop, void, reverse, range, add1, loop, sub1?
define это не функция. defun - это выражение, которые дает имя и определить новую функцию с помощью функции "defun".

Вот из программа "gnu common lisp" (см. на картинке). Ваш код lisp ошибка и я немного поправил тоже ошибка.

@helter · 21.11.2014, 05:10

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

Шутите что ли, helter?) там все английский язык. Как я могу это прочитать?))

А вы немецкий в школе учили? Беда. Советую начать учить английский прямо сейчас.

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

Хочу побольше узнать как это работает.

В таком случае я с удовольствием присоединюсь к обсуждению. Я могу пояснить основные идеи, но спецификацию, конечно, не буду переводить.

Чтение и запись осуществляются с помощью абстракции "поток": читают из потока, пишут в поток. Например, это могут быть стандартные потоки ввода/вывода (взаимодействие с консолью), или поток может ассоциироваться с файлом, или со строкой. Поток может быть потоком ввода (когда из него можно только читать), потоком вывода (когда можно только писать), и двусторонним (когда можно читать и писать).

Функций вывода много: это семейство родственников write и format.

Семейство родственников write занимаются выводом одного объекта за раз. Они делятся на две группы: те, которые стараются сериализовать объект (чтобы его можно было восстановить, прочитав из потока), и те, которые делают более человекочитаемый вывод. Главная сериализующая функция - print, а человекочитаемая - princ. Последняя не переводит строку. Функция terpri переводит строку и больше ничего не делает. Ещё пригождаются функции write-string, write-line, write-char, предназначенные для своих типов данных (write-line печатает строку и переводит строку).

Каждая из этих функций принимает объект, который надо напечатать, а опционально - поток вывода. Если поток вывода не задан, используется стандартный вывод.

Насчёт format - читайте главу в "Практическом Common Lisp", русский перевод который вы, без сомнения, нагуглите.

Чтением занимаются: read-line читает строку, read-char читает символ, read читает лисповое выражение (типа таких, какие печатает print). read открывает дыру в безопасности, не используйте его для пользовательского ввода, если не умеете заткнуть эту дыру. Эти функции можно вызывать без аргументов (тогда они читают из стандартного ввода), а можно в качестве аргумента давать им поток ввода и ещё кое-какие вещи.

Интерактивный ввод/вывод осуществляется с помощью стандартного потока *query-io*. Там есть некоторые тонкости, не буду на них останавливаться.

То что у вас с :input и пр. - это про файлы. Чтобы открыть файл и ассоциировать с ним поток, используется макрос with-open-file (гуглите так: "with-open-file" clhs).

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

((= n 0)t) что это все значит?

Читайте про cond (гуглите cond clhs). cond - оператор ветвления; в каждой ветке сначала пишется условие, а потом - одна или несколько форм. cond выбирает первую ветку, для которой условие выполняется, вычисляет формы и возвращает значение последней вычисленной формы. В данном случае (= n 0) - условие равенства n нулю. Так пишут начинающие, а труЪ-лисперы пишут (zerop n). Если это выполняется, надо вернуть t (истина).

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

(+ m 1) - знак плюс это как бы возрастание строк трапеция, а минус убывание строк трапеция?

Знак плюс это как бы функция сложения.

В качестве литературы можете использовать "Практический Common Lisp".

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

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

Вот из программа "gnu common lisp" (см. на картинке).

Не надо лучше её использовать, это не ANSI CL, а в соответствии с CLtL2.

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

Ваш код lisp ошибка и я немного поправил тоже ошибка.

castorsky пишет на диалекте Racket.

@Catstail · 21.11.2014, 11:34

Lisp

(defun pr-1 (k m &optional (s k))
  (cond ((zerop m) 'ok)
        ((zerop k) (terpri) (pr-1 (+ s 1) (- m 1) (+ s 1)))
        (t (print k) (pr-1 (- k 1) m s)))) 
  
 
==> pr-1
(pr-1 3 4)
321
4321
54321
654321
 
==> ok
(pr-1 1 6)
1
21
321
4321
54321
654321
 
==> ok

@castorsky · 21.11.2014, 15:35

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

Объясните, что за функции

В примере ссылка, специально для предотвращения подобных вопросов.

@smoke853 · 21.11.2014, 16:35

Clojure:

Lisp

(ns learn-clojure.example)
 
(defn task [k m]
  (let [k (atom k)]
    (dotimes [_ m]
      (println (apply str (range @k 0 -1)))
      (swap! k inc))))
;; => #'learn-clojure.example/task
 
(task 1 4)
1
21
321
4321
;; => nil
 
(task 3 4)
321
4321
54321
654321
;; => nil

@Walimas · 21.11.2014, 19:32 **[ТС]**

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

Не надо лучше её использовать, это не ANSI CL, а в соответствии с CLtL2.

Не понял. Ты хочешь сказать, что это не то, что я использовал эту программу? Если да, то где скачать программа, чтобы все функции работает?

@helter · 21.11.2014, 19:44

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

Не понял. Ты хочешь сказать, что это не то, что я использовал эту программу? Если да, то где скачать программа, чтобы все функции работает?

CLtL2 (Common Lisp the Language 2) - книга, в который описан до-ANSI Common Lisp. У него есть некоторые отличия от ANSI Common Lisp. ANSI CL определяется стандартом, который доступен онлайн в виде CLHS - Common Lisp Hyperspec.

Если у тебя линукс, можешь поставить SBCL из репозитория. Если нет - ну, можно CLISP попробовать: www.clisp.org.

@Walimas · 21.11.2014, 19:54 **[ТС]**

helter, где установочный файл clisp, который ты меня дал ссылку??

P.S. не обижайся на меня. ладно?)

@helter · 21.11.2014, 20:02

Вот тут пара ехешников есть:
http://sourceforge.net/project... lisp/2.49/
Я бы попробовал скачать и запустить, который "биг".

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

P.S. не обижайся на меня. ладно?)

Да вроде не за что пока.

@Walimas · 21.11.2014, 20:19 **[ТС]**

helter, пока. спасибо.

Добавлено через 5 минут
Здесь код lisp, которые скинули форумчане. Выдает ошибку( Ну ладно. Завтра я постараюсь сделать код lisp и выложу прямо здесь и проверим правильно сделал или нет)

@Catstail · 21.11.2014, 20:37

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

Здесь код lisp, которые скинули форумчане. Выдает ошибку

- не выдает:

Lisp

CL-USER 3 > (defun pr-1 (k m &optional (s k))
  (cond ((zerop m) 'ok)
        ((zerop k) (terpri) (pr-1 (+ s 1) (- m 1) (+ s 1)))
        (t (princ k) (pr-1 (- k 1) m s))))
PR-1
 
CL-USER 4 > (pr-1 4 6)
4321
54321
654321
7654321
87654321
987654321
OK

@helter · 21.11.2014, 20:52

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

Завтра я постараюсь сделать код lisp и выложу прямо здесь и проверим правильно сделал или нет)

Замечательная идея.

@helter · 25.11.2014, 15:26

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

Замечательная идея.

Которая, к сожалению, осталась только идеей.

@Walimas · 25.11.2014, 16:00 **[ТС]**

Сообщение от Catstail,

Lisp

CL-USER 3 > (defun pr-1 (k m &optional (s k))
  (cond ((zerop m) 'ok)
        ((zerop k) (terpri) (pr-1 (+ s 1) (- m 1) (+ s 1)))
        (t (princ k) (pr-1 (- k 1) m s))))
PR-1
 
CL-USER 4 > (pr-1 4 6)
4321
54321
654321
7654321
87654321
987654321
OK

вот теперь не ошибка. Слава богу)

А сейчас вот я сам немного переделал

Lisp

(defun pr1 (k)
            (cond
              ((= k 0) k)
              ('T (princ k) (pr1 (- k 1)))
)
)
 
PR1
 
> (pr1 4)
4321
0

Это 1 строка, немного получилось, а мне надо следующая строка как твой ответ. Вот мне препод говорил что нужно добавить (pr1 (+ k m)) и тогда будет след. строка (трепеция). Я вообще ничего не понял. Помогите мне разобраться с этими.

@helter · 25.11.2014, 16:26

Вооот, я всегда говорю, что готовые решения расслабляют. Мы потеряли потенциального лиспера.

@castorsky · 25.11.2014, 16:39

Не по теме:

помянем :cry:

@Walimas 2 / 2 / 1 Регистрация: 20.04.2014 Сообщений: 93
	21.11.2014, 19:54 [ТС]	12
	helter, где установочный файл clisp, который ты меня дал ссылку?? P.S. не обижайся на меня. ладно?) 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	21.11.2014, 20:02	13
	Вот тут пара ехешников есть: http://sourceforge.net/project... lisp/2.49/ Я бы попробовал скачать и запустить, который "биг". Сообщение от Walimas P.S. не обижайся на меня. ладно?) Да вроде не за что пока. 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	25.11.2014, 15:26	17
	Сообщение от helter Замечательная идея. Которая, к сожалению, осталась только идеей. 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	20.11.2014, 23:40	3
	Сообщение от Walimas там конкретного нет CLHS: http://clhs.lisp.se/Body/f_wr_pr.htm Всё максимально конкретно. Сообщение от Walimas Честно не понимаю. Я бы с удовольствием пояснил, но честно не понимаю, что пояснить. Функции вывода - это функции, которые выводят. Ещё есть вопросы? Сообщение от Walimas Поэтому прошу вас, объясните как решить задание. Не мудрствуя лукаво, используйте функции princ, которая выводит объект без перевода строки, и terpri, которая переводит строку. И вложенный цикл. 1

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	21.11.2014, 05:10	6
	Сообщение от Walimas Шутите что ли, helter?) там все английский язык. Как я могу это прочитать?)) А вы немецкий в школе учили? Беда. Советую начать учить английский прямо сейчас. Сообщение от Walimas Хочу побольше узнать как это работает. В таком случае я с удовольствием присоединюсь к обсуждению. Я могу пояснить основные идеи, но спецификацию, конечно, не буду переводить. Чтение и запись осуществляются с помощью абстракции "поток": читают из потока, пишут в поток. Например, это могут быть стандартные потоки ввода/вывода (взаимодействие с консолью), или поток может ассоциироваться с файлом, или со строкой. Поток может быть потоком ввода (когда из него можно только читать), потоком вывода (когда можно только писать), и двусторонним (когда можно читать и писать). Функций вывода много: это семейство родственников write и format. Семейство родственников write занимаются выводом одного объекта за раз. Они делятся на две группы: те, которые стараются сериализовать объект (чтобы его можно было восстановить, прочитав из потока), и те, которые делают более человекочитаемый вывод. Главная сериализующая функция - print, а человекочитаемая - princ. Последняя не переводит строку. Функция terpri переводит строку и больше ничего не делает. Ещё пригождаются функции write-string, write-line, write-char, предназначенные для своих типов данных (write-line печатает строку и переводит строку). Каждая из этих функций принимает объект, который надо напечатать, а опционально - поток вывода. Если поток вывода не задан, используется стандартный вывод. Насчёт format - читайте главу в "Практическом Common Lisp", русский перевод который вы, без сомнения, нагуглите. Чтением занимаются: read-line читает строку, read-char читает символ, read читает лисповое выражение (типа таких, какие печатает print). read открывает дыру в безопасности, не используйте его для пользовательского ввода, если не умеете заткнуть эту дыру. Эти функции можно вызывать без аргументов (тогда они читают из стандартного ввода), а можно в качестве аргумента давать им поток ввода и ещё кое-какие вещи. Интерактивный ввод/вывод осуществляется с помощью стандартного потока query-io. Там есть некоторые тонкости, не буду на них останавливаться. То что у вас с :input и пр. - это про файлы. Чтобы открыть файл и ассоциировать с ним поток, используется макрос with-open-file (гуглите так: "with-open-file" clhs). Сообщение от Walimas ((= n 0)t) что это все значит? Читайте про cond (гуглите cond clhs). cond - оператор ветвления; в каждой ветке сначала пишется условие, а потом - одна или несколько форм. cond выбирает первую ветку, для которой условие выполняется, вычисляет формы и возвращает значение последней вычисленной формы. В данном случае (= n 0) - условие равенства n нулю. Так пишут начинающие, а труЪ-лисперы пишут (zerop n). Если это выполняется, надо вернуть t (истина). Сообщение от Walimas (+ m 1) - знак плюс это как бы возрастание строк трапеция, а минус убывание строк трапеция? Знак плюс это как бы функция сложения. В качестве литературы можете использовать "Практический Common Lisp". Добавлено через 1 минуту Сообщение от Walimas Вот из программа "gnu common lisp" (см. на картинке). Не надо лучше её использовать, это не ANSI CL, а в соответствии с CLtL2. Сообщение от Walimas Ваш код lisp ошибка и я немного поправил тоже ошибка. castorsky пишет на диалекте Racket. 3

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	21.11.2014, 15:35	8
	Сообщение от Walimas Объясните, что за функции В примере ссылка, специально для предотвращения подобных вопросов. 0

@Walimas 2 / 2 / 1 Регистрация: 20.04.2014 Сообщений: 93
	21.11.2014, 19:32 [ТС]	10
	Сообщение от helter, Не надо лучше её использовать, это не ANSI CL, а в соответствии с CLtL2. Не понял. Ты хочешь сказать, что это не то, что я использовал эту программу? Если да, то где скачать программа, чтобы все функции работает? 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	21.11.2014, 19:44	11
	Сообщение от Walimas Не понял. Ты хочешь сказать, что это не то, что я использовал эту программу? Если да, то где скачать программа, чтобы все функции работает? CLtL2 (Common Lisp the Language 2) - книга, в который описан до-ANSI Common Lisp. У него есть некоторые отличия от ANSI Common Lisp. ANSI CL определяется стандартом, который доступен онлайн в виде CLHS - Common Lisp Hyperspec. Если у тебя линукс, можешь поставить SBCL из репозитория. Если нет - ну, можно CLISP попробовать: www.clisp.org. 0

@Walimas 2 / 2 / 1 Регистрация: 20.04.2014 Сообщений: 93
	21.11.2014, 20:19 [ТС]	14
	helter, пока. спасибо. Добавлено через 5 минут Здесь код lisp, которые скинули форумчане. Выдает ошибку( Ну ладно. Завтра я постараюсь сделать код lisp и выложу прямо здесь и проверим правильно сделал или нет) 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	21.11.2014, 20:52	16
	Сообщение от Walimas Завтра я постараюсь сделать код lisp и выложу прямо здесь и проверим правильно сделал или нет) Замечательная идея. 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	25.11.2014, 16:26	19
	Вооот, я всегда говорю, что готовые решения расслабляют. Мы потеряли потенциального лиспера. 0

@castorsky
	25.11.2014, 16:39 Функция ввода-вывода в Lisp печатает числа в виде трапеции #20
	Не по теме: помянем :cry: 0