flip - November 29th, 2006 [entries|archive|friends|userinfo]
flip

[ Нет у меня сайта | My Website ]
[ Туда! | Я не знаю как это переводиться ]
[ archive | Архивчег ]

November 29th, 2006

Псп [Nov. 29th, 2006|12:43 pm]
Цены на консоль по городу разлечабться чуть ли не до 3 тыс.
На стандартный набор можно найти цену от 6650 до 8200.
На вэлью пак от 7890 до 10500.
Теперь надо всё таки подуматьч что брать белую или чёрную, в белой есть свои прелести не видно отпечатков пальцев, навено и всё, но белую видел только в стандартном наборе. Хм всё равно всё остальное прийдёться покупать, даже при условии что наушники у меня есть, но карту памяти, чехол, прийдёться брать. А вот тут возникает другой вопрос, стандартный набор в эльдорадо 6680, пак 7890, и так карта на 32 нафиг не нужна, надо расшириться хотя бы до 512, самая дешовая стоит 750 - 950 руб в зависимости от места, чехол 290 руб в дм, итого 1000 р. примерно, 6650 + 1000 р получаем 7650, даже дешевле чем валью пак, а ну да там есть ещё тряпочка. нахуй тряпочку.
Думать надо думать, новый год скоро родители согласны, но если воспринимать это только как консоль, нахер она мне не нужна с играми по 1500 - 2000 р, дома можно поиграть. Но если как медио центр портативный, но это уже интересно весьма. Ладно будем думать щас надо ссесию здать.
LinkПообщаемся

ЛИсп победа [Nov. 29th, 2006|06:36 pm]
ДАДАДАДА.

Вот над этим я думал 4 дня. реализация всего в 4 строчки, гениально разделяй и властвуй, а я я хотел изначально всё сделать в 2 функции а хрен там подобный, список в данном случаи собираеться с конца. А тот список который надо получить необхоимо собирать сначала и не как либо.

постановка:

10. (REV1 x), где x - список, обращает список x и разбивает его на уровни так, как указано ниже:
>(rev1 ‘(a b c))

решание

(defun rev (x)(cond ((eq x nil) nil)(t (ap (rev (cdr x)) (cons (if (atom (car x)) ( car x) ( rev (car x))) nil))))) – перемена местами

(defun ap (x y)(cond ((eq x nil) y)(t (cons (car x) (ap (cdr x) y))))) – собирает список

(defun sp (x) (if (eq (cdr x) nil) x (cons (car x)(cons (sp (cdr x)) nil)))) – подготавливает список

(defun rev1 (x)(rev (sp x))) – сборка.


резкльтат

CL-USER 8 : 1 > (rez '(d e r))
0 REZ > ...
>> X : (D E R)
0 REZ < ...
<< VALUE-0 : (((R) E) D)
(((R) E) D)
Link1 зачем то ответил.. хм..|Пообщаемся

navigation
[ viewing | November 29th, 2006 ]
[ go | Previous Day|Next Day ]