Введение.

Традиционным образом (то есть, в самые последние сутки дедлайна) я поучаствовал в конкурсе, организованном ребятами из конторы Hola.

Задание было придумано очень крутое. "Очень крутое" -- это, в моём понимании, такое задание, которое:

1. Имеет практическую ценность.
2. Не подразумевает одного единственного верного решения, до которого ( Read more... )

За несколько часов до окончания сабжа я, внезапно, тоже решил принять участие.

Задание в этот раз относительно простое, поэтому наивную реализацию делать было не интересно. Подумал, может собрать классическую макру, которая по шаблонам дерево сравнений строит, но там какой-то дружище-ракетчик уже меня опередил :) Посмотрел остальные решения: в ( Read more... )

Собственно, уже отоспавшись, можно подвести краткие итоги прошедшего конкурса: ICFPC торт (c ( Read more... )

Блин, ну это жесть была, конечно, так и подохнуть недолго :)

В этот раз участвовал в составе команды из двух человек вместе с turtle-bazon, но для текущего задания надо было, конечно, собираться вчетвером минимум. Не успели нифига :) Ну ладно, сколько-то очков у нас должно быть, и то хлеб.

Возможно, поподробней напишу попозже.

( Read more... )

Чуток потюнил бота: он теперь умеет кэшировать промежуточные числа в свободных слотах, а еще научил его подрываться прихлопывать врагов с единичкой здоровья с помощью dec.

С увеличенным коварством бот пошел еще веселее, чем раньше: уже 80% побед против 66%, но это все так, возня в детской песочнице :( Периодически нарываюсь вот на этих отцов:


( Read more... )

Удивительно затягивающее занятие, я даже пожрать сегодня забыл :)

А тем временем мой невероятно примитивный, но безумно коварный бот внезапно раздает по жопе:


( Read more... )

Черт, я, кажись, опять все полимеры просрал: ICFP же идет (заканчивается практически ( Read more... )

А какие бы вы предложили красивые варианты сгенерировать рандомное поле для судоку?

Мне, как инженеру неголубых кровей, помимо тупого брутфорса идей никаких не приходит =)

(defun gen-field ()
(let ((field (make-array '(9 9) :initial-element 0)))
(macrolet ((cell (r c) `(aref field ,r ,c)))
(labels ((is-valid (r c ( Read more... )

Пока я ездил в Питер, тут успели объявить результаты конкурса (того самого, про обрезалку карт).

Мое решение заняло победоносное третье место... из трех работоспособных решений вообще =) Остальные оказались не совсем рабочими.

Ну да не суть. Свои цели я практически выполнил, они были такие:

• Продемонстрировать, что common lisp не является ( Read more... )