Вещи мы будем держать здесь и оргии тоже здесь будем устраивать. Для оргий тут самое подходящее место.
— А что это такое «оргии»?
— Я почем знаю. Только у разбойников всегда бывают оргии, значит, и нам тоже надо.

— …[К]огда уже можно будет удалить открытый на запись файл, как в линуксе?
Отвечает специалист Microsoft:
— Надеюсь, что никогда. Подобные операции наносят серьезный вред структуре памяти системы. Проблему с принудительным закрытием открытых дескрипторов очень хорошо осветил Реймонд Чен в своей статье в апрельском Technet magazine.
<…>
Если вы программист, то не вполне понятно, что вам мешает средствами Windows API принудительно закрыть все операции работы с файлом (закрыть все handles, ведущие к этому файлу) и затем безопасно удалить его.

(Курсив мой — lionet)

antilamer

metaclass

import qualified Data.Map as M
import Data.Maybe
import Data.Array
import Control.Monad
import Control.Monad.State
import Control.Monad.IfElse

type Graph = Array Int [Int]

isBipartite g = isJust $ runStateT (mapM_ fill (indices g)) M.empty
  where
    fill     v = whenM (M.notMember v`fmap`get) $ spread True v
    spread k v = whenM (paint k v)              $ mapM_ (spread (not k)) (g!v)

paint k v = get >>= \c -> case M.lookup v c of 
    Nothing     -> put (M.insert v k c) >> return True
    Just x|x==k ->                         return False
          |True ->                         fail ""

ru_ucdesign

ru_ucdesign

ru_ucdesign

Конкурс!

Предисловие