> 1 <

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

Romanka

Members


Статус

4 сообщений

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

#6928   2013-02-24 03:51 GMT+3 часа(ов)      
Ребят, доброго вечера. Объясните пожалуйста как лучше сделать. Задача вот в чем: передать функции список из файла к примеру (12 14 11 10).
ошибка ; error: too many arguments. оч долго уже ломаю голову. помогите плз


(defun Fo ()

(setq ADRES (getfiled "ef" "D:\\data" "txt" )
(setq file (open ADRES "r"))
(setq F (read-line file))
(setq B nil)

(while (/= F nil)
(setq B (cons (atoi F) B))
(setq F (read-line file))
)



(cond
((null B) nil)
((= (rem (car B) 2) 0) (cons (car B) (Fo (cdr B))))
(T (Fo (cdr B)))))

VH

Members


Статус

289 сообщений

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

#6929   2013-02-24 15:01 GMT+3 часа(ов)      
(defun Fo ()
(setq file (open (getfiled "ef" "D:\data" "txt" 0) "r"))
(setq B nil)
(while (setq F (read-line file))
(setq B (cons (atoi F) B)))
(setq C nil)
(while B
(if (evenp (car B))
(setq C (cons (car B) C)))
(setq B (cdr B))))

Romanka

Members


Статус

4 сообщений

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

#6932   2013-02-25 19:25 GMT+3 часа(ов)      
Спасибо, но проблема такая: ; error: no function definition: EVENP

Romanka

Members


Статус

4 сообщений

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

#6933   2013-02-25 19:35 GMT+3 часа(ов)      
(defun Fo ()

(setq file (open (getfiled "ef" "D:\data" "txt" 0) "r"))

(setq B nil)

(while (setq F (read-line file))

(setq B (cons (atoi F) B)))

(setq C nil)

(while B

(if (= (rem (car B) 2) 0)

(setq C (cons (car B) C)))

(setq B (cdr B))))

Romanka

Members


Статус

4 сообщений

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

#6936   2013-02-26 03:09 GMT+3 часа(ов)      
для сортировки нашел код жесткий очень, если не очень тяжело, подскажите что-нибудь попроще


(defun min1(f)
(cond
((null f) nil)
(1 (min2 (car f) (cdr f)))
)
)

(defun min2(c f)
(cond
((null f) c)
((> c (car f)) (min2 (car f) (cdr f)))
(1 (min2 c (cdr f)))
)
)

(defun remove(c f)
(cond
((null f) nil)
((= c (car f)) (cdr f))
(1 (cons (car f) (remove c (cdr f))))
)
)


(defun sort(f)
(cond
((null f) nil)
(1 (cons (min1 f) (sort (remove (min1 f) f))))
)
)
> 1 <


Онлайн :

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




Реклама на сайте: