щас дыбр и спать

У меня всё поломато как это. Видели бы вы, в какую щель в верхней части гаражной двери я пролезал вчера ночью. Нет, у меня есть ещё одна открытая на всякий случай дверь, но туда сложно.

Утром был план на велике покататься после обеда... но позвонил Саркису, он сказал, что мужик приедет дверь смотреть часа в три, так что облом.

Сел написал следующую часть про аппликативы; поехал обедать в Ариаке в Санивейле; полтора часа обедали, языками чесали за жизнь; но санивейльские ариаки как-то уж слишком простоваты. Наши куда как лучше. Ну в следующий раз в Суши Мару надо будет, там образцовая еда.

Потом дома пока сидел ждал мужика, пошел раскопал свой фонтан. Ну что, труба не сломана, а разъединилась на стыке. Оставил воду впитываться, завтра починю. А лозу в ведро с водой поставил, уже листья пошли ж. Завтра сделаю.

Пришел мужик, посмотрел, сказал лучше к этой двери не подходить, пружина в любой момент может шарахнуть. Такие дела. А мне даже газонокосилку не выкатить теперь.

От неча делать сел налоги рисовать. Дикое количество бумаг; потом на сайты всякие ходил - смит-барни, который закрыл ещё весной прошлого года, интерактив брокерз, безумный сайт, куда вход через дикую секьюрити (а смысла никакого); етрейд, где тоже уже все деньги сдёрнул, остались только загадочные налоговые формы с недостающими данными - пришлось старый мейл шерстить, чтобы найти, почем же я это покупал. Короче, везде бардак кроме турботакса. А ведь у меня ещё два штата. Кентуки прикольные, не позволили мне электронно файлить, а Калифорния наоборот, только электронно.

Ну вот уже полночь, но я горд дурацкими успехами - всего-то семь часов на налоги ушло.

А в это время подруга в Нью Йорке сходила послушала Хованщину в Метрополитен Опере, и поняла сущность русского менталитета. (А кто не в курсе, краткий курс изложен в повести "Венера в Мехах" известного автора.)

по ящику показывают

Рекламу еврейской освободительной организации. Как евреев в России преследуют, и как всего за 350 баксов можно помочь еврею выехать на ПМЖ. Говорят о спасении жизней. Показывают Ельцина, сообщают, что время уходит, что скоро неонацисты всех перебьют. И что денег нет у людей, сами не могут уехать. Показывают Семёна, который если бы не уехал, его бы убили за его московскую квартиру. Сообщают, что Израиль - земля молока и мёда. И надо дать денег на билет, чтобы свершилось пророчество. (Я б нарочно не дал - бац, и не сбылось!) Девушка говорит, что у неё всё в России украли, и она осталась без денег.
Спонсируй русского еврея! Бог сказал - вывези еврея из России! (Это уже баптистский пастор вещает.)

Отъезжающий дедушка говорит: моя дочь в Израиле, я ей нужен. Надо ехать.

Довольно молодой парень говорит о том, как важно дать денег, про него написано, что он рефьюзник. Ну хоть не ветеран Освенцима. А, ну вот, показывают Яд Вашем и поют "лет май пипл гоу".

Всё, закончилось. Рекламирую liposuction.

in the mood for love

Очень страстный китайский фильм. А музычка на фоне - аргентинские танго - quizas, quizas, quizas. Aquellos ojos verdes. Очень страстный фильм, все как туго заведённые пружины.

P.S. Да и 2046 посмотрел. Хотя и в некотором смысле ахинея, как чистое искусство - оно прекрасно.

местные новости

Нам не показывают наших славных воинов, устроивших, видимо в память лейтенанта Кэлли, побоище в Кандагаре (перебили семью, сожгли трупы); нам показывают наших славных береговых охранников, спасших китайского рыбака где-то в районе Акапулько.

Скоро ли перестройка.

P.S. О, профессор Синерджи из Фримонта сообщает, что лучше чем американские войска в Афганистане ничего нет пока что. Может быть и так. О, уже на Сирию переключились, там в Хомсе 47 человек убили и трупы сожгли. Fair and balanced.

(вставочка)

sassa_nf высказал недоумение, если не больше, по вопросу как это мы вставляем ap между нашими аппликативными штучками, как это? Я думал, э, всё просто.

Протрахался с 7 до 11. Вот код с примером; а текст потом поправлю, спать же уже пора, ё.

  import scala.collection.immutable._

  trait Functor[T[_]]{
    def map[A,B](f:A=>B)(ta:T[A]):T[B]
  }

  trait Applicative[T[_]] extends Functor[T]{
    def pure[A](a:A):T[A]
    def ap[A,B](tf:T[A=>B])(ta:T[A]):T[B]
  }

  implicit def applicablize[A, B](fs: Set[A=>B]) = new {
    def <*>(as: Set[A]) = (for (f <- fs; a <- as) yield f(a)).toSet
  }

  implicit object AppSet extends Applicative[Set] {
    def pure[A](a: A) = Set(a)
    def ap[A,B](fs:Set[A=>B])(as:Set[A]):Set[B] = (for (f <- fs; a <- as) yield f(a)).toSet
    def map[A,B](f:A=>B)(as:Set[A]) = ap(pure(f))(as)
  }

  val p = AppSet.pure((s:String) => "'" + s + "'")
  val p2 = AppSet.pure((first: String) => (second:String) => first + " " + second)
  val names = Set("Jedi", "Michael Valentine")
  p <*> names
  val lasts = Set("Smith", "Frazer")
  p2 <*> names <*> lasts