Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
HD-7
0 / 0 / 0
Регистрация: 26.10.2012
Сообщений: 20
1

Определить функцию

15.04.2013, 10:24. Просмотров 665. Ответов 5
Метки нет (Все метки)

Есть варианты решения?
0
Миниатюры
Определить функцию  
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2013, 10:24
Ответы с готовыми решениями:

Используя функцию DEFUN, определить функцию f (a x)
Используя функцию DEFUN, определить функцию f (a x), где a - s-выражение, a x –список, состоящий из...

Используя функцию DEFUN, определить функцию
Используя функцию DEFUN, определить функцию f (a x), где a – S- выражение, а x - список, состоящий...

Используя функцию DEFUN, определить функцию f (a x)
Используя функцию DEFUN, определить функцию f (a x), где a – S- выражение, а x - список, состоящий...

Используя функцию DEFUN, определить функцию
Используя функцию DEFUN, определить функцию f (a x), где a – S- выражение, а x - список, состоящий...

Используя функцию DEFUN, определить функцию f (a x)
Используя функцию DEFUN, определить функцию f (a x), где a - s-выражение, a x –список, состоящий из...

5
StudAssistant
Эксперт
34811 / 27003 / 5019
Регистрация: 17.04.2006
Сообщений: 49,622
15.04.2013, 10:24
Закажите контрольную, курсовую, диплом или любую другую студенческую работу здесь.
5
Catstail
Модератор
24568 / 12482 / 2277
Регистрация: 12.02.2012
Сообщений: 20,262
15.04.2013, 11:52 2
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CL-USER 4 > (defun prep-list (k n)
  (cond ((> k n) nil)
        (t (append (prep-list k (1- n)) (list n)))))
PREP-LIST
 
CL-USER 5 > (defun task (k n)
  (let ((z (prep-list k n)))
    (loop
       (when (null z) (return 'ok))
       (dolist (i z t) (princ i))
       (terpri)
       (setq z (cdr z)))))
TASK
 
CL-USER 6 > (task 5 10)
5678910
678910
78910
8910
910
10
OK
1
helter
Эксперт по математике/физике
3839 / 2865 / 310
Регистрация: 12.03.2013
Сообщений: 5,198
15.04.2013, 13:07 3
Лучший ответ Сообщение было отмечено как решение

Решение

Lisp
1
2
3
4
5
6
(defun pr2 (k n)
  (format t "~&~{~{~A~}~%~}"
          (do ((i (- n 1) (- i 1))
               (row (list n) (cons i row))
               (triangle nil (cons row triangle)))
            ((< i (- k 1)) triangle))))
3
HD-7
0 / 0 / 0
Регистрация: 26.10.2012
Сообщений: 20
10.06.2013, 13:36  [ТС] 4
Можете сделать без применения функций Loop, When, Return, Dolist?
0
helter
Эксперт по математике/физике
3839 / 2865 / 310
Регистрация: 12.03.2013
Сообщений: 5,198
10.06.2013, 13:43 5
Вообще-то это макросы, а не функции. А где вы в моём решении обнаружили хоть один из них?
0
HD-7
0 / 0 / 0
Регистрация: 26.10.2012
Сообщений: 20
10.06.2013, 14:16  [ТС] 6
Цитата Сообщение от helter Посмотреть сообщение
Вообще-то это макросы, а не функции. А где вы в моём решении обнаружили хоть один из них?
Это я от слов преподавателя написал.
По этому примеру сможете сделать?

>(defun line 1 (n)
(cond ((= n 0)t)
(t (princ "*")
(line 1 (- n 1)))))
LINE 1
>(line 1 10)
**********
T

>(defun pr (n m)
(cond ((= m 0) t)
(t (line 1 n)
(terpri)
(pr n (- m 1)))))
PR
>(pr 10 3)
**********
**********
**********
0
10.06.2013, 14:16
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 14:16

Определить функцию
(treug k n) где k&lt;n которая печатает числа в виде прямоугольного треугольника: Например: ...

Определить функцию
Здравствуйте. Помогите пожалуйста с написанием функции. Определить функцию, вычисляющую глубину...

Определить функцию FURTHER
Определить функцию FURTHER, которая имеет один аргумент – список числовых значений. Функция FURTHER...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru