-
HsColour: rgb colours
Стандартный HsColour меня всем устраивал кроме поддержки цветов. Десяток стандартных цветов - слишком мало, хотя это плата за возможность раскрашивать код где угодно. Раньше я тупо добавлял свою функцию showHTML с заменой стандартных цветов на свои любимые при выводе в HTML. Сегодня решил допилить. Добавил - возможность указания любого цвета (при ( Read more... ) -
Парадокс двух конвертов
Парадокс двух конвертов формулируется так: вам даны два конверта, в одном из них денег в два раза меньше, чем в другом; вы выбираете один, смотрите содержимое, а потом решаете, взять ли другой конверт (не глядя) или оставить этот.
Интуитивно кажется, что разницы никакой (по крайней мере мне), с другой стороны, на мембране написано иначе, мол, если ( Read more... ) -
Создание DSL на языке Haskell
По мотивам поста на Хабрахабре от скуки написал такую же штуку на Haskell'е. Просто, чтобы сравнить.
Я, правда, самой главной функции не написал, но подозреваю, что она на .Net завязана (если даже не на код автора), а разбираться мне было лень, да и суть статьи была в DSL.
( Полотно кода ) -
Let's Yota!
С подключением были очень неприятные проблемы, но они разрешились. А теперь хвалить буду ( Read more... ) -
Data.Binary monad transformers
В классе Data.Binary есть две функции - put и get. Что делать, если в процессе чтения я захочу иметь возможность вернуть ошибку (Exceptional) и/или собрать какую-то информацию (Writer)? На помощь придут monad transformers, но тип полученного get'а будет ExceptionalT ex (WriterT info Get) value, который уже нельзя использовать в классе. Если я ( Read more... ) -
Let's Yota!
Три простых шага ( Read more... ) -
fix
Ковырялся тут с fix, написал такую штуку:
fib self 0 = 1
fib self 1 = 1
fib self n = self (n - 2) + self (n - 1)
fixMemo f = let x = f (map x [0..] !!) in x
fixMemo fib 10000 отрабатывает почти мгновенно, в отличие от.
Других открытий, правда, не сделал, а они есть? -
ICFPC 2009
Закончился ICFPC, отчётов я писать не умею, поэтому лишь отмечу некоторые моменты, какие ошибки были сделаны и какой из всего этого я получил опыт.
Суть заданий описана у _adept_(Таких не берут в космонавты!), так что повторяться не вижу смысла.
О контесте я узнал за два дня до его начала, так что о команде речи не шло. И хотя удалось собраться втроём (
( Read more... ) -
ping pong
Это, конечно, не Эрланг, но меня устроит.
ping 0 _ = return ()
ping n pongID = do
s <- self
send pongID "ping"
receive (liftIO . putStrLn)
ping (n - 1) pongID
pong = do
receive $ \(pingID, s) -> do
liftIO $ putStrLn s
send pingID "pong"
pong
pingPong = runProcess $ do
ponger <- spawn pong
pinger <- spawn $ ping 10 ponger
return ()