> 1 <

Автор Сообщение

razor_ua

Members


Статус

2 сообщений

Где: Ukraine
Род занятий:
Возраст:

#4447   2011-06-13 00:11 GMT+3 часа(ов)      
ну вообщем по лиспу нужно сдать лабу и забыть лисп. решение мне написали но я никак немогу расчехлиться как вызвать функции в интерпретаторе.
1.пример:
a*(c(i)-b)^2,
где с(i) ето номер елемента в готовом массиве
нужно подставлять номер елемента из списка. список вводить не надо.
решение:

(defparameter c '(1 2 3 4 5 6))

(defun foo(a b i)

(* a (expt (- (nth i c) b) 2)))

и задание 2
Функция преобразования:
Соединить обращенные списки S1 и S2 (по N элементов).
решение:
(defun myappend(L1 L2)

(if L1

(cons (car L1) (myappend (cdr L1) L2)) L2))



(defun myreverse (L)

(if L (myappend (myreverse (cdr L)) (cons (car L) nil)) nil))



(defun f2 (L1 L2)

(myappend (myreverse L1) (myreverse L2)))

ander-skirnir

Members


Статус

227 сообщений
http://lisper.ru
Где: Ukraine
Род занятий: `'`,`',`',
Возраст: 30

#4448   2011-06-13 03:57 GMT+3 часа(ов)      
> ну вообщем по лиспу нужно сдать лабу и забыть лисп
Дальше не читал.
> 1 <


Онлайн :

0 пользователь(ей), 72 гость(ей) :