| import Control.Applicative ((<$>)) | |
| data Cat = Cat String [Cat] deriving Show | |
| indentLevel :: Int | |
| indentLevel = 4 -- leading spaces | |
| level :: String -> Int | |
| level = (`div` indentLevel) . length . takeWhile (== ' ') |
| import Data.List | |
| import Data.Ord (comparing) | |
| import Data.Char (ord) | |
| import Control.Applicative ((<$>)) | |
| equating f = \a b -> f a == f b | |
| thenBy ord' = concat | |
| . map (sortBy ord') | |
| . groupBy (equating length) |
| #!/bin/bash | |
| cd | |
| mkdir site-repo.git | |
| cd site-repo.git | |
| git --bare init | |
| cat << EOF > hooks/post-receive | |
| #!/bin/bash | |
| GIT_REPO=$HOME/site-repo.git | |
| TMP_GIT_CLONE=$HOME/tmp/repo |
| ## Роль итераторов стандартной библиотеки | |
| Напомним код алгоритма `copy` | |
| template<typename ItIn, typename ItOut> | |
| void copy(ItIn b, ItIn e, ItOut b1) | |
| { | |
| while (b != e) { | |
| *b1 = *b; | |
| ++b; |
Читать невозможно, линии слишком длинные, учитесь писать не шире 80 символов, это широко принятый стандарт.
В replace_first_digit можно было бы обойтись без дополнительной перменной, она
делает код длиннее. Двойные неравенства лучше оформлять следующим образом:
'0' <= *p && *p <= '9'
| // ==UserScript== | |
| // @name formAdder | |
| // @description Добавляем возможность подстановки пароля в форму логина СБРС мехмата ЮФУ | |
| // @author dummer <yadummer@gmail.com>, ulysses <ulysses4ever@gmail.com> | |
| // @license MIT | |
| // @version 1.3 | |
| // @include http://rating.mmcs.sfedu.ru/ | |
| // @include http://rating.mmcs.sfedu.ru/sign | |
| // @include https://rating.mmcs.sfedu.ru/ | |
| // @include https://rating.mmcs.sfedu.ru/sign |
Фамилия, Имя, Отчество
Пеленицын Артём Михайлович
Ученая степень, звание и должность, включая название кафедры
ассистент кафедры информатики и вычислительного эксперимента
Контактная информация (сайт, адрес электронной почты)
mmcs.sfedu.ru/~ulysses / apel@sfedu.ru.
Предлагаемая тематика
Указано время выхода премьеры программы. В течение недели каждая программа неоднократно повторяется. Есть программы со скользящим графиком (???).
| Передача | Время |
|---|---|
| BBC НА ДОЖДЕ | по будням в 16:10 и в 19:45. |
| HARD DAY'S NIGHT | по вторникам в 22.00. |
| БЕЛКОВСКИЙ НА ДОЖДЕ | по вторникам в 20:00. |
| ВЕЧЕРНЕЕ ШОУ ЗДЕСЬ И СЕЙЧАС | ежедневно с 21:00. |
| ВСЕ БЫЛО С ДМИТРИЕМ БЫКОВЫМ | по пятницам. |
| ДЕНЬГИ | ??? |
| // ==UserScript== | |
| // @name cvs2brs | |
| // @description Перенос данных из CVS-файла в СБРС мехмата ЮФУ | |
| // @author ulysses | |
| // @license MIT | |
| // @version 1.0 | |
| // @grant none | |
| // @include https://grade.sfedu.ru/* | |
| // ==/UserScript== |
| lookupGlobal :: HscEnv -> Name -> IO TyThing | |
| -- This may look up an Id that one one has previously looked up. | |
| -- If so, we are going to read its interface file, and add its bindings | |
| -- to the ExternalPackageTable. | |
| lookupGlobal hsc_env name | |
| = do { -- Try local envt | |
| let mod = icInteractiveModule (hsc_IC hsc_env) | |
| dflags = hsc_dflags hsc_env | |
| tcg_semantic_mod = | |
| if thisPackage dflags == moduleUnitId mod |