![]() |
![]() |
klem4 |
![]()
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Что ему не нравится ?
{$mode objfpc}
uses crt;
const n : word = 3;
type
TType = single;
PVector = ^TVector;
TVector = array [1..1] of TType;
PMatrix = ^TMatrix;
TMatrix = array [1..1] of PVector;
operator + (const a,b : PVector) v : PVector;
var
i : word;
begin
for i := 1 to n do v^[i] := a^[i] + b^[i];
end;
//....
begin
end.
impossible operator overload -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 9.10.2025 4:02 |