?

Log in

No account? Create an account

Топ - 10 автомобильных сайтов в феврале 2010 года
anton_bearpaw
Источник:  Nielsen Online, NetView
Аудитория: США
Сайт Посещения в тыс.ч. Среднее время проведенное на сайте
(hh:mm:ss)
eBay Motors 9 523 0:28:42
Yahoo! Autos 5 654 0:05:10
Edmunds.com 4 438 0:05:23
AOL Auto 4 424 0:05:06
AutoTrader.com 4 282 0:19:48
Kelley Blue Book 4 159 0:09:50
SIM Automotive Websites 3 870 0:04:03
Ford 3 722 0:14:00
TOYOTA 3 338 0:04:36
AAA 2 916 0:06:22
top-10

Топ - 10 автомобильных сайтов в январе 2010 года
anton_bearpaw
Источник:  Nielsen Online, NetView
Аудитория: США
Сайт Посещения в тыс.ч. Среднее время проведенное на сайте
(hh:mm:ss)
eBay Motors 10 783 0:29:51
Yahoo! Autos 7 417 0:06:21
AOL Auto 4 879 0:05:42
Kelley Blue Book 4 817 0:11:25
AutoTrader.com 4 460 0:23:51
Edmunds.com 4 431 0:06:14
SIM Automotive Websites 4 123 0:04:47
AAA 3 460 0:05:25
Ford 3 443 0:18:00
MSN Autos 3 000 0:07:29
TOP-10

Инвайты на google wave
anton_bearpaw
Если кому нужно пишите в личку:)
Есть 8 инвайтов

Зарегался на twitter
anton_bearpaw

На многих сайтах частенько вижу отправить ссылку на сраницу в закладки. Поскольку не являюсь большым любителем закладок в браузерах то зарегал для этого дела аккаунт в твиттере. Кстати имя взял tusur и в итоге twitter.com/tusur. Немного поражает наличие свободного имени, т.к. ТУСУР это университет с кол-вом студентов  > 10000 человек.
Единственное что считаю минусом в твиттере так это отсутсвия понятия тэгов и как следствие облака тэгов, что не очень удобно при систематизации сообщений

Взрыв мозга от LISP
anton_bearpaw

Задание которое было на таком предмете как "Функциональное и логическое программирование" . Для человека у которого сложилась уже система программирования сложно привыкнуть
1. Напишите функцию (count L X), считающую число элементов, меньших X в список L на всех уровнях.

(defun count (s x) (cond ((null s) 0) ((listp (first s)) (+ (count (first s) x) (count (rest s) x))) ((and (numberp (first s)) (< (first s) x)) (+ 1 (count (rest s) x))) ( t (count (rest s) x)) ) )
(princ (count '(1 9 1 2 (2 1 (0 5)) 5 4 7) 3) )
 

2. Пусть s1 и s2 - "множества с повторяющими элементами". Определите функцию (f s1 s2), которая вычисляет "объединение множеств". Так, например, вызов (f 'i, 1 2 12 13) '(5 3 3 1 2 2)) должен давать результат (1 1 1 1 2 2 2 2 3 3 3 5).


(defun f (s1 s2)
(treeSort (append s1 s2) )
)
 (defun treeSort (x)
(flatten (makeTree x)))
(defun makeTree (x)
(if (null x) nil (insert (first x) (makeTree (rest x)))
)
)
(defun flatten (x)
(if (null x) nil
(append (flatten (first x))
(cons (second x) (flatten (third x)))
)
)
)
(defun insert (n x)
(if (null x) (list nil n nil)
(let ( (left (first x))
(node (second x))
(right (third x))
)
(if (<= n node) (list (insert n left) node right)
(list left node (insert n right))
)
)))
(defun append (s1 s2)


(if (null s1) s2
(cons (first s1) (append (rest s1) s2)))

)

(princ (f '(1 2 1 2 1 3) '(5 3 3 1 2 2) ))

 

3. Напишите функцию (f L), которая считает количество различных элементов списка L.

(defun f (L)
 (cond ((null L) 0)
       (t (1+ ( f (remove-all (first L) (rest L)) ) ))
    )
  )

(defun remove-all (x s)
(cond ((null s) nil)
((eql x (first s)) (remove-all x (rest s)))
(t (cons (first s) (remove-all x (rest s)))))
)
(trace f)
(princ (f '(1 2 1 2 5 1 2 3 ) ))

 


Кризис на Хабре
anton_bearpaw

Судя по всему доход от баннеров в "Тематических медиа" не особо идут раз решились поставить Яндекс.Директ

Пародокс года
anton_bearpaw

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

Но сегодня произошло феноменальное премию получил премию мира Барак Обама (44-й президент США , который занимает свой пост меньше года).  «За экстраординарные усилия в укреплении международной дипломатии и сотрудничество между людьми». Как выразились некоторые политики авансом за мир во всем мире.

Если мы заметим то в первом десятилетии 21-го века это уже третий американец получивший Нобелевскую премию ( 2002 г. Джимми Картер «За свои усилия по мирному улаживанию конфликтов во всем мире и борьбу за права человека», 2007 Альберт Гор «За изучение последствий глобальных климатических изменений, вызванных деятельностью человека, и выработке мер по их возможному предотвращению».) . Странная закономерность…


Открыл свой еще один блог
anton_bearpaw
После оооочень долгово отсутсвия пишу здесь пост :)
Я открыл еще один блог itopen.blog.ru на котором буду писать о том чем я занимаюсь в жизни
по магистратуре, работе и конечно личном


Тест №2
anton_bearpaw
С сегодняшнего дня завел СВОЙ ЖЖ.
Вопрос: Зачем он мне?
Ответ: Знаю , но не скажу:))
Что еще хотел написать... пиши коментарии
И наверное я буду оставлять свои по мере их появления