На сайте russianaicup.ru стартовал ежегодный контест по написанию ботов от mail.ru. Кто-нибудь планирует участвовать?

Есть бинарник. Хочется запустить его, максимально урезав права, + ограничить ему cpu time и доступную память. После выполнения хочется знать его cpu time и максимальное количиство памяти, если он завершил выполнение, или какие ограничения он попытался нарушить.

Как лучше всего сотворить такую штуку под Linux?

ЗЫ пыхыпы не предлагать

Вопрос знающим сей замечательный язык. Почему следующий код съедает всю память что находит и вешается? Я так понимаю, все дело в лени, но я не могу понять как ее тут побороть (в коде видны некоторые попытки в виде seq).

module Main where

import Control.Monad
import Control.Monad.ST
import Data.STRef

list = [0..10000]

res = runST $ do
        r <- newSTRef (0 :: Int)
        forM_ list $ \i -> do
          forM_ list $ \j -> do
            v <- readSTRef r
            let v' = v `seq` v + 1
            writeSTRef r v'
        readSTRef r

main = do
  putStr "Result: "
  print res

http://portal.acm.org/citation.cfm?id=62212.62235

Можно выслать на isenbaev[at]gmail.com или выложить куда-нибудь

Спасибо!

>>> Подробности (Invalid URL, no host part!)

>>> Подробности (Invalid URL, no host part!)

>>> Подробности (Invalid URL, no host part!)

Вот это вещества!

>>> Подробности (Invalid URL, no host part!)