Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
if ($pageInfo['doktype'] != 3 &&
$pageInfo['doktype'] != 4 &&
$pageInfo['doktype'] != 5 &&
$pageInfo['doktype'] != 6 &&
$pageInfo['doktype'] != 7 &&
$pageInfo['doktype'] != 199 &&
$pageInfo['doktype'] != 254 &&
$pageInfo['doktype'] != 255 &&
$pageInfo['no_search'] == 0 &&
return ($average >= 180*24*60*60 ? 'yearly' :
($average <= 24*60*60 ? 'daily' :
($average <= 60*60 ? 'hourly' :
($average <= 14*24*60*60 ? 'weekly' : 'monthly'))));
if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/dd_googlesitemap/class.tx_ddgoglesitemap_pages.php'])
protected $renderer;из-за которой хер поймешь, что это за renderer (массив? референс? ...?) говорить смысла нету.
if($a==$b && $b == $c && $crap === $garbage) && $this->page->tables['head']->order != 2; ... 120 lines .. && $this->page->tables['head']->order != n;
но я бы предпочёл как-то так: try: genUrl( :chapterVew, :chapter= filesMap[ number ] ) catch filesMap->XWrongIndex: void
Если просто читать, становлюсь в тупик сразу: «Если и больше номер -1 меньше номер 1 — длина чего-то...».
(set foo
(cons (eq foo bar)
(+ foo 99)
bar))
Во-первых, когда реализуемое приложение должно обладать достаточно сложной семантикой, другими словами, если требуется высокая гибкость программного кода
Первая часть этого обзора будет вводной. Опытные лисперы смогут смело его пропускать.
(defmacro sum-of-n (n)
(let ((args (loop for i from 1 to n collect (gensym))))
`(lambda (,@args)
(+ ,@args))))макросы не обладают мощностью eval
Я же хотел показать изюменку Lisp.
О мощности строить программу, о которой ничего не известно на этапе компиляции. Прислушайтесь к моему пожеланию)).
Прислушайтесь к моему пожеланию)).
будущее за функциональным программированием.
… я очень-очень много узнал. Мой код стал лучше на всех языках… Знакомство с haskell было самым большим «драйвом» в программирвоании в моей жизни.
extract_text_field(Binary,TextList,Count) when byte_size(Binary) == 0 ->
TextList;
extract_text_field(Binary,TextList,Count) ->
<<Size:16/little,Content:Size/little-binary-unit:8,Rest/binary>> = Binary,
...
case Count rem 2 == 0 of
true -> Text = TextList ++ [binary_to_atom(Content,latin1)];
false -> Text = TextList ++ [Content]
end,
extract_text_field(Rest,Text,Count+1).
{date,<<05-09-2008 12:37:02.12947>>,text,<<Oh noes>>} сунуть в какой-то там список и сделать какую-нибудь херню, например, редукцию или отмапить список с хитрым условием, сколько килострочек на сях займет реализация? И сколько килострочек(внешних препроцессоров/библиотек/wadever) к ней надо добавить, чтоб можно было использовать в других местах проекта?
Разработка web-приложений на языке Common Lisp (часть первая)