Методы IsOrdered, IsOrderedBy, IsOrderedByDescending

Добавлены методы IsOrdered, IsOrderedBy, IsOrderedByDescending, позволяющие проверить, упорядочена ли последовательность, вычисляемых по заданной лямбде. Поддерживаются любые последовательности.

Пример:

type
  Player = auto class
    Name: string; Points: integer;
  end;  

function GetPlayers := [
  new Player('Alice', 120),
  new Player('Bob', 95),
  new Player('Charlie', 130),
  new Player('Diana', 110)
];

begin
  var leaderboard := GetPlayers;
  if not leaderboard.IsOrderedByDescending(p -> p.Points) then
    Println('Рейтинг составлен неверно!');

  leaderboard := leaderboard.OrderByDescending(p -> p.Points).ToArray;
  if leaderboard.IsOrderedByDescending(p -> p.Points) then
    Println('Теперь рейтинг составлен правильно!');
end.

Метод возвращает true, если каждый следующий элемент не больше предыдущего с точки зрения переданной функции.
Аналогично работает метод IsOrderedBy для проверки по возрастанию.

#новое

InRange - изменение поведения и внешняя функция

InRange метод расширения - поведение изменено - теперь [6.,2] считается пустым диапазоном.

Появилась внешняя функция inRange, которая работает с любыми типами, поддерживающими IEnumerable<T> - например, DateTime.

begin
  // Поведение изменено!! Теперь диапазон [6,2] считается пустым
  5.InRange(6,2).Println; 

  // Универсальная InRange. Должен поддерживаться интерфейс IComparable<T>
  InRange(5,2,6).Println;

  var dt1 := DateTime.Create(2025,04,16);
  var dt2 := DateTime.Create(2025,04,29);
  var dt3 := DateTime.Now;
  InRange(dt2,dt1,dt3).Println; 
end.

#новое

Распаковка KeyValuePair в переменные

В последней версии реализована распаковка KeyValuePair в переменные как в C#. В том числе в цикле foreach по словарю.

Распаковка еще делается для кортежей и последовательностей. Для последовательности если элементов в ней недостаточно, распаковка упадет в рантайме.

#новое

begin
  var t := 2 to 3.5;
  var (a,b) := t;
  Println(a,b);
  foreach var (a1,b1) in Dict(1 to 7, 22 to 555) do
    Println(a1,b1);
end.

Кубики для всех - задачи

Перед вами - программа, позволяющая визуализировать задачи увлекательной головоломки Кубики для всех или Кубики Сома.

Отличная возможность модуля Graph3D - возможность увеличить головоломку, посмотреть на нее с разных сторон и под разными углами.

В архиве помимо самой программы - набор из 100 задач, а также возможность создавать новые задачи.

Клавиши
1,2,3 - отображение разными цветами
С - очистка
L - загрузка случайного задания

Исходники - в комментарии

Рисование по клеткам в модуле Coords

Модуль Coords можно использовать по-разному, в том числе для рисования на нем как в тетради в клетку.

Особенность здесь в том, что мышью мы рисуем точки в целочисленных координатах.

Конечно, модуль Coords не предназначен для такой задачи - внутренности в виде объекта fso не очень хорошо смотрятся. Но как прототип - вполне компактная программа.

uses Coords,GraphWPF;

var (prevx, prevy) := (-1.0,-1.0);

begin
  Scale := 49;
  Origin := (7,5);
  OnMouseDown := (x,y,mb) -> begin
    if mb = 2 then 
    begin  
      (prevx, prevy) := (-1.0,-1.0);
      exit;
    end;  
    var p := fso.ScreenToReal(Pnt(x,y));
    var xx := Round(p.X);
    var yy := Round(p.Y);
    Coords.DrawCircle(xx,yy,0.05);
    if (prevx, prevy) <> (-1.0,-1.0) then
      DrawLine(prevx, prevy, xx, yy);
    (prevx, prevy) := (xx,yy);
  end;
end.

Замечательные Кубики для всех

Замечательная, потрясающая, многогранная головоломка Кубики для всех, описанная в книге Мартина Гарднера "Математические головоломки и развлечения".

Мы реализовали ее с помощью модуля Graph3D. Теперь вы можете собирать фигуры в интерактивном 3D-режиме

Изящно сделаны вращения - с помощью алгоритмической анимации

Весь код - порядка 350 строк, в комментарии

Инициализация массива пустой коллекцией

В версии 3.10.3.3635 от 12.06.25 уточнен механизм инициализации пустой коллекцией.

Теперь пустую коллекцию можно использовать в качестве первого элемента массива.

#новое

// Уточнение инициализации элемента массива пустой коллекцией
begin
  var a: array of array of integer := [[],[],[1]];
  Println(a,TypeName(a));
  var b := [[],[1],[]];
  Println(b,TypeName(b));
  var aa: array of array of array of integer := [[[],[2]],[]];
  Print(aa,TypeName(aa));
end.

Обход ориентированного графа в глубину

Пусть граф задан списками смежности:
0 → 1, 2
1 → 3
2 → 1, 4
3 → 5
4 → 6
5 → 4, 7
6 →
7 →

Данный рекурсивный алгоритм демонстрирует, в какие вершины можно попасть, начав с некоторой вершины x и перемещаясь только по ребрам графа.

Такой способ посещения вершин называется обходом в глубину (DFS).

// Обход ориентированного графа в глубину
procedure TraverseDepth(gr: array of array of integer; p: array of boolean; x: integer);
begin
  Print(x);
  p[x] := True;
  foreach var y in gr[x] do
    if not p[y] then
      TraverseDepth(gr,p,y);
end;

begin
  var gr := [[1, 2], [3], [1, 4], [5], [6], [4, 7], [], []];
  var p := [False] * gr.Count;
  TraverseDepth(gr,p,0);  
end.

#алгоритмы

Парсер выражений с построением AST - дерева

Ниже представлен парсер выражений с предварительным построением AST-дерева - на 127 строк.

Интерфейсы, автоклассы, короткие функции - всё как мы любим.

https://rosettacode.org/wiki/Arithmetic_evaluation#PascalABC.NET

Тут много реализаций на разных языках, НО! Не стоит нас учить, как писать парсеры :)

А мы в Rosetta Code на 57 месте с 609 решениями. Еще немного - и обойдем Swift.

Интеграция SPython и PascalABC.NET в лице GraphWPF

Скоро сказка сказывается, да не скоро дело делается.

Вот и в SPython наконец-то завезли модуль GraphWPF - подключаем, пользуемся, радуемся синтаксису Питона без этих ваших begin-end и точек с запятой, зато с проверкой ошибок на этапе компиляции

#SPython

SPython - map, filter, sorted

Стандартные функции Питона реализованы в SPython на PascalABC.NET.

Тем, кому нравится писать вложенные вызовы функций, а также всем настоящим питонистам этот код - золото!

А мы имеем в сухом остатке обязательные аннотации типов, что приучает к строгости, контроль ошибок на этапе компиляции и скорость выполнения как в C#.

Здравствуй, дивный новый старый мир!

#SPython

Новый метод AdjacentGroupBy для последовательностей

Теперь в PascalABC.NET появился метод AdjacentGroupBy, который группирует подряд идущие элементы последовательности по ключу (автор - Сергей Латченко).

В отличие от обычного GroupBy, который собирает все элементы с одинаковым ключом, AdjacentGroupBy сохраняет порядок и делит на группы при смене значения.

Пример

type
  ActionData = auto class
    Action: string;
    Page: string
  end;

begin
  var actions := [
    new ActionData('Клик', 'Главная'),
    new ActionData('Клик', 'Каталог'),
    new ActionData('Клик', 'Корзина'),
    new ActionData('Прокрутка', 'Каталог'),
    new ActionData('Прокрутка', 'Оформление заказа'),
    new ActionData('Клик', 'Оформление заказа')
  ];
  
  foreach var g in actions.AdjacentGroupBy(x -> x.Action) do
  begin
    Println($'Действие = {g.Key}');
    g.PrintLines(a -> '  ' + a.Page);
  end;
end.

📌 В этом примере элементы разбиваются на группы подряд идущих одинаковых действий ('Клик', 'Прокрутка', 'Клик').

Полезно, если нужно анализировать поведение пользователей, логи или последовательности событий.

#новое

Почему PascalABC.NET лучше C#

Заголовок конечно провокационный. Но действительно - C# при всех огромных ресурсах на его разработку содержит дыры в безопасности.

В теории типов хорошо известен факт: если тип String является подтипом object, то тип "массив string" не должен быть подтипом "массив object"

Язык C# это нарушает. Проблема, которая при этом возникает - на скрине. Программа падает в невинном коде неожиданно в рантайме.

PascalABC.NET отслеживает эту хорошо известную ошибку на этапе компиляции.

#типы

Русские исполнители

В PascalABC.NET в примерах используется модуль Исполнители, который позволяет младшим школьникам лучше воспринимать код с объектами, методами и лямбдами.

По-существу, Исполнитель - это объект класса с русскими методами, максимально изолированный от английского интерфейса.

Ключевые слова при этом остаются английскими, что выделяет конструкции PascalABC.NET.

Что может PascalABC.NET и не может Python

Попробуйте возвести 2 в степень 100000. В PascalABC.NET - легко! А Python падает )

Рисуем изображения из набора MNIST для распознавания рукописных цифр

Перед вами - небольшая программа для рисования цифр из набора MNIST. Каждая цифра представлена монохромным изображением размера 28 на 28 пикселей.

Размер каждого пиксела при рисовании равен w.

Программа:

uses GraphWPF;

function Reshape(data: array of integer; w,h: integer): array [,] of integer;
begin
  if data.Length <> w * h then
    raise new Exception('Несоответствие размерности при Reshape()');   
  Result := MatrByCol(data.Batch(w))
end;

procedure DrawPixels(pixels: array [,] of integer; x: real := 0; y: real := 0; width: real := 10)
  := FastDraw(dc -> begin
    for var ix := 0 to pixels.RowCount-1 do
    for var iy := 0 to pixels.ColCount-1 do
      DrawRectangleDC(dc,x + ix * width, y + iy * width, width, width, GrayColor(pixels[ix,iy]),Colors.Transparent,1);
  end);

begin
  var sz_img := 28;
  var strs: array of string := ReadLines('mnist_test.csv').Skip(1).ToArray;
  var data: array of array of integer := strs.Select(s -> s.ToWords(',').Skip(1).Select(x -> x.ToInteger).ToArray).ToArray;
  var digits := data.Select(arr -> Reshape(arr,sz_img,sz_img)).ToArray;
  
  var w := 2;
  var digits_in_col := 15;
  var digits_in_row := 11;
  for var iy:=0 to digits_in_row-1 do
  for var ix:=0 to digits_in_col-1 do
    DrawPixels(digits[iy * digits_in_col + ix],ix*w*sz_img,iy*w*sz_img,w);
end.

Использование сериалазации Json с помощью Newtonsoft.Json

Создаем проект, устанавливаем Newtonsoft.Json в качестве NuGet-пакета.

И пишем вот такую программу. Здесь сериализуется в строку в формате json словарь из целых в массивы целых.

Затем происходит десериализация, проверка типа и вывод содержимого в неизменном виде.

Код:

uses Newtonsoft.Json;

begin
  var d0 := Dict (1 to [2,3,4],
    3 to [4,5,6]
  );
  var json := JsonConvert.SerializeObject(d0);
  Println(json);
  var obj := JsonConvert.DeserializeObject&<Dictionary<integer,array of integer>>(json);
  Println(TypeName(obj));
  var d := obj as Dictionary<integer,array of integer>;
  foreach var (k,v) in d do
    Println(k,v);
end.

#json #nuget

Обращаемся к LLM из PascalABC.NET

Чтобы сделать запрос к большой языковой модели из PascalABC.NET, воспользуемся сервисом openrouter.ai.

За одну минуту получим там API Token, который будет использован в нашей программе в переменной KEY.

Для работы с JSON создадим проект и двумя нажатиями подключим к нему NuGet-пакет NewtonSoft.Json.

Отправим запрос с вопросом о смысле жизни к одной из самых лучших моделей - deepseek-r1 free с ризонингом (то есть со способностью рассуждать).

И через несколько секунд получим ответ - тоже в виде json, который выведем в отформатированном виде, используя сериализацию с форматированием.

Попутно в пришедшем json мы видим сам reasoning - рассуждение модели, как отвечать на наш вопрос.

Итак, в чем смысл жизни? Ответ LLM вы видите:

Как писал Виктор Франкл, "Жизнь требует от человека не вопросов, а ответов - через дела и любовь". Так что, возможно, смысл жизни в пути: в том, чтобы задаваться вопросами, искать, расти и находить своё собственное предназначение. 🌱✨

#PascalABCNET #LLM #любовь #предназначение

🎨 Ray Tracing на PascalABC.NET: Красота физики в 300 строках!

В этой демо-сцене PascalABC.NET собраны все классические и современные технологии трассировки лучей. Это не просто картинка, а настоящий учебник компьютерной графики в коде.

Код программы

Что здесь под капотом? 👇

💡 Физика света:
✔️ Закон Снеллиуса (рефракция стекла, кристаллов)
✔️ Рекурсивное отражение и преломление
✔️ Модель освещения Фонга (диффузия + спекулярность)
✔️ Тени от точечных источников
✔️ Градиентное небо

🎨 Рендеринг и материалы:
✔️ Антиалиасинг (3x3 суперсэмплинг)
✔️ Субпиксельные смещения
✔️ Цветное освещение (каждый источник — свой цвет)
✔️ Эмиссивные материалы (свечение объектов)
✔️ Матовые поверхности
✔️ Металлы (золото, зеркала)
✔️ Диэлектрики (стекло, кристаллы)
✔️ Градиентная эмиссия (сильнее в центре)
✔️ Falloff эффекты свечения
✔️ Тон-маппинг (улучшенная обработка ярких цветов)
✔️ Затухание света с расстоянием
✔️ Улучшенное смешивание цветов от разных источников

⚙️ Технологии:
✔️ Параллельные вычисления (OpenMP)
✔️ Оптимизация производительности
✔️ Перегрузка операций в классах

💡 Почему PascalABC.NET?
📍 Быстро, наглядно, красиво.
📍 Читаемый код.
📍 Всё работает прямо в IDE.
📍 Идеально для изучения физики света, трассировки лучей, алгоритмов визуализации.

🎥 Сцена рендерится за секунды.
👨‍💻 Всего ~300 строк кода.
✨ PascalABC.NET легко учит сложным вещам!

Черепаха меняет цвет

Черепаха теперь запоминает изменение цвета

uses Turtle,GraphWPF;

begin
  SetWidth(5);
  ToPoint(-10,0);
  loop 70 do
  begin
    SetColor(RandomColor);
    Down;
    Forw(5);
    Up;
    Back(5);
    TurnRight(90);
    Forw(0.3);
    TurnLeft(90);
  end;
end.