Планы на этот год

(Александр Морозов)

Итак, поскольку Дед Мороз накануне 2025 года сбил ракетой "земля-воздух" небесную упряжку Санта-Клауса, нас ждут увлекательные дальнейшие приключения в наступающем году.

Перечислю лишь основные "новации":

1. Январь. Президент США Доналд Трамп заявляет о том, что начинает формирование новой коалиции государств, которая должна привести войну в Украине к окончанию.
2. Февраль. Начало радикального расширения дроновой войны в 2025 году. К "дроновой коалиции" (16 стран) присоединяются еще 10 стран, в том числе Япония и Южная Корея. Коалиция берет на себя обязательство поставить в 2025 году не 1 млн дронов Украине, а 3 млн., чтобы достичь 3-кратного превышения возможностей производства дронов в РФ. Активное освоение ИИ в дроновой войне.
3. Март. Украина получает ракеты Томагавк. Ракетная война приобретает новый характер.
4. Апрель. Российская армия предпринимает попытку окружения Запорожья. Наступление не приводит к результату.
5. Май. НАТО и США принимают скоординированное решение перебросить на территорию стран "восточного фланга" 450 самолетов, а также базируют в Польше, Швеции и Румынии ракетные комплексы. Создание многократного превосходства на восточном фланге. Владимир Путин дислоцирует ракеты с ядерными зарядами в Беларуси.
6. Июнь. Саммит НАТО в Гааге. Принимается решение о квотах размещения военных специалистов стран НАТО в Украине в рамках подготовки к вступлению в альянс. Общая численность планируемого контингента - 100 тыс.военнослужащих.
7. Июль. В связи с отсутствием перспектив переговоров о мире США и страны глобального альянса начинают обсуждение введения "иракских санкций" против РФ: "нефть только в обмен на продовольствие и медикаменты".
8. Август. Президент США Трамп объявляет о радикальном расширении "вторичных санкций". Создается международная комиссия по контролю за экспортом-импортом РФ, располагающая полномочиями преследовать любые торговые операции, не согласованные с Комиссией. В Комиссию входят представители финансовых разведок 45 стран.
9. Сентябрь. Альянс Северных стран при поддержке НАТО принимает решение блокировать российское судоходство в Балтийском море. Вводятся санкции "нефть только по бартеру".
10. Октябрь. Дональд Трамп делает предложение и.о. Президента РФ Сергею Собянину встретиться на полях саммита G20 в Южной Африке в ноябре.
11. Ноябрь. Начало переговоров о завершении войны.
12. Декабрь. Санта-Клаус приветствует детей Центральной Европы.

Таковы примерно наши предложения со стороны Санта-Клауса. Если же в октябре 2025 года встреча Санта-Клауса с Дедом Морозом не состоится, то начнется реализация второй части плана "Как остановить войну за 24 месяца".

С наступающим!

Политическое

Почему Роберт Фицо
потерял совсем лицо?
Крепко Роберта Фица
путин держит за яйца.

Век живи - век учись

Классический учебник математики в публичном доступе: gutenberg.org/files/38769/38769-pdf.pdf

A Course of Pure Mathematics
Author: Godfrey Harold Hardy

Про Эльбрус-3

"В 1990 году был завершёно проектирование блока умножения. В 1991 году была завершена подготовка всей необходимой документации, и на Загорском электромеханическом заводе, расположенном под Москвой, было создано несколько прототипов процессоров. Однако сборка несколько задержалась из-за ожидания поставок необходимого оборудования от заводов-изготовителей. На момент написания данной статьи «Эльбрус-3» находился на стадии отладки оборудования. В течение 1992 года финансирование проекта оставалось стабильным, хотя и не всегда соответствовало необходимым потребностям, но а затем проект был закрыт из-за невозможности финансирования."

Это фрагмент из докторской диссертации Peter Wolcott, 1993 год, университет Аризоны. Фундаментальное исследование истории вычислительной техники Советского Союза: P.Wolcott.pdf

Статья на русском по этим материалам конкретно про Эльбрус-3: habr.com/ru/articles/871338/

Алгол 68 в компиляторе GCC

Один крутой чувак сварганил фронтенд Алгола 68 к компилятору GCC. Заслал буквально вчера: gcc.gnu.org/pipermail/gcc-patches/2025-January/672384.html

"Hello people, happy GNU year!

This WIP is a GCC front-end for Algol 68, the fascinating, generally poorly understood and often vilified programming language. It is common knowledge that Algol 68 was well ahead of its time back when it was introduced, and anyone who knows the language well will suspect this probably still holds true today, but more than fifty years after the publication of the Revised Report the world may finally be ready for it, or perhaps not, we shall see ;) At the very least having support in GCC will make it easier for Algol 68 enthusiasts to write, share and use their programs in modern systems."

Исходники здесь: forge.sourceware.org/jemarch/a68-gcc/src/branch/a68

Пример программы на Алголе 68:

# Translation decimal number to Roman notation and vice versa  #
PROGRAM
BEGIN PROC roman = (INT number) STRING:
      BEGIN INT n := number, STRING result;
            []STRUCT(INT value, STRING r) table =
               ((1000, "M"), (900, "CM"), (500, "D"), (400, "DC"),
                (100, "C"), (90, "XC"), (50, "L"), (40, "XL"),
                (10, "X"), (9, "IX"), (5, "V"), (4, "IV"), (1, "I"));
            FOR i TO UPB table
            DO INT v = value OF table[i], STRING r = r OF table[i];
               WHILE v LE n DO (result +:= r, n -:= v) OD
            OD;
            result
      END;

      PROC value of roman = (STRING text) INT:
      IF text = ""
      THEN 0
      ELSE OP ABS = (CHAR s) INT:
              CASE INT p; char in string (s, p, "IVXLCDM"); p
              IN 1, 5, 10, 50, 100, 500, 1000
              ESAC,
           PROC char in string = (CHAR c, REF INT i, STRING s) BOOL:
              (FOR k TO UPB s DO (c = s[k] | i := k; l) OD; FALSE EXIT l: TRUE);
           INT v, maxv := 0, maxp;
           FOR p TO UPB text
           DO IF (v := ABS text[p]) > maxv
              THEN maxp := p; maxv := v
              FI
           OD;
           maxv - value of roman (text[: maxp-1])+ value of roman (text[maxp + 1:])
      FI;

      ASSERT (roman (1968) = "MCMLXVIII");
      ASSERT (value of roman ("MCMLXXIII") = 1973);
      0
END
FINISH