Что же я написал?

[Sibedir]

Тема - загадка. Возростные ограничения (для среднестатистического человека): от 14 до 50 лет.

Петя программист в одной солидной фирме занимающейся *******. Однажды его срочно вызвали на работу в воскресенье. Ему позвонил начальник, и умолял приехать. В понедельник нужно было сдавать работу заказчику, а как на зло ударила молния, и погарели сервера. Один из модуле восстановить не удалось.
Начальник был уверен, что никто кроме Пети до завтра модуль написать заного не успеет. Петя был добрым человеком и не смог отказать. Проблема была в том, что Петя очень весело проводил выходные и был бухой.
Но выработанная годами привычка кодить под шафэ дала свои плоды.
За успешно выполненую работу начальник угостил Петю хорошим коньяком. От чего Петя вышел на работу только в среду. Его все благодарили, говорили какой он молодец. А он не мог вспомнить даже то, куда он поехал с вечеринки в воскресенье. Потом он вкупился в суть происходящего и побежал в кабинет. Запустил комп, открыл проект и увидел это

unit Unit2;

interface

uses
  SysUtils;

type
  TType1 = record
    F1: Real;
    F2: Int64;
    F3: Int64;
  end;

  TType2 = record
    F1: String;
    F2: String;
    F3: Cardinal;
  end;

TCardinalArray = array of Cardinal;

TType2Array = array of TType2;

procedure Proc1 (v: TType1; var s1, s2: String);

function Func1 (a: TType1): TType1;

function Func2 (a, b: TType1): TType1;

function Func3 (a, b: TType1): TType1;

function Func4 (n: String): TType2;

var
  Type2Array: TType2Array;

implementation

function Func4 (n: String): TType2;
var
  i1, i2: Integer;
begin
  Result.F1 := #127;
  Result.F2 := 'NoName';
  Result.F3 := 0;

  i2 := Length (Type2Array) - 1;
  for i1 := 0 to i2 do begin
    if Type2Array[i1].F1 = n then begin
      Result.F1 := n;
      Result.F2 := Type2Array[i1].F2;
      Result.F3 := Type2Array[i1].F3;
      Break;
    end;
  end;
end;

procedure Proc1 (v: TType1; var s1, s2: String);
var
  i1, i2, i3: Integer;
  c1: Cardinal;
  i4, i5: Int64;
begin
  i4 := v.F2;
  i5 := v.F3;

  if i5 = 0 then begin
    s1 := 'Error';
    s2 := 'Error';
    Exit;
  end;

  if (i4 = 0) or (v.F1 = 0) then begin
    s1 := '';
    s2 := '';
    Exit;
  end;

  s1 := '';
  s2 := '';

  i2 := Length (Type2Array) - 1;
  for i1 := 0 to i2 do begin
    c1 := Type2Array[i1].F3;
    i3 := 0;
    while (i4 mod c1) = 0 do begin
      i3 := i3 + 1;
      i4 := i4 div c1;
    end;
    case i3 of
      0: ;
      1: s1 := s1 + #183 + Type2Array[i1].F1;
      else
        s1 := s1 + #183 + Type2Array[i1].F1 + '^' + IntToStr(i3);
    end;
    i3 := 0;
    while (i5 mod c1) = 0 do begin
      i3 := i3 + 1;
      i5 := i5 div c1;
    end;
    case i3 of
      0: ;
      1: s2 := s2 + #183 + Type2Array[i1].F1;
      else
        s2 := s2 + #183 + Type2Array[i1].F1 + '^' + IntToStr(i3);
    end;
  end;

  s1 := Copy (s1, 2, Length(s1)-1);
  s2 := Copy (s2, 2, Length(s2)-1);
end;

function Func2 (a, b: TType1): TType1;
begin
  a := Func1 (a);
  b := Func1 (b);

  if (a.F2 = b.F2) and (a.F3 = b.F3) then begin
    Result.F1 := a.F1 + b.F1;
    Result.F2 := a.F2;
    Result.F3 := a.F3;
  end
  else begin
    Result.F1 := 0;
    Result.F2 := 0;
    Result.F3 := 0;
  end;
end;

function Func3 (a, b: TType1): TType1;
begin
  Result.F1 := a.F1 * b.F1;
  Result.F2 := a.F2 * b.F2;
  Result.F3 := a.F3 * b.F3;
  Result := Func1 (Result);
end;

function Func1 (a: TType1): TType1;
var
  i1, i2: Integer;
  c1: Cardinal;
begin
  if (a.F3 = 0) then begin
    Result.F1 := 0;
    Result.F2 := 0;
    Result.F3 := 0;
    Exit;
  end;

  if (a.F1 = 0) or (a.F2 = 0) then begin
    Result.F1 := 0;
    Result.F2 := 0;
    Result.F3 := 1;
    Exit;
  end;

  Result.F2 := 1;
  Result.F3 := 1;

  i2 := Length (Type2Array) - 1;
  for i1 := 0 to i2 do begin
    c1 := Type2Array[i1].F3;
    while (a.F2 mod c1) = 0 do begin
      if (a.F3 mod c1) = 0 then begin
        a.F2 := a.F2 div c1;
        a.F3 := a.F3 div c1;
      end
      else begin
        Result.F2 := Result.F2 * c1;
        a.F2 := a.F2 div c1;
      end;
    end;
    while (a.F3 mod c1) = 0 do begin
      Result.F3 := Result.F3 * c1;
      a.F3 := a.F3 div c1;
    end;
  end;

  Result.F1 := a.F1 * a.F2 / a.F3;
end;

end.

Бли-и-ин!!! Ни одного мнемонического имени. Что же я написал?

З.Ы.: Убедительная просьба. Если вы найдете решение очень быстро, скиньте ответ мне в личку. Я потом здесь обязательно правильный ответ напишу.

[mutabor]

Ему нужно на Джаву переходить, старшим обфускатором

[Sibedir]

Ага, и зарплату ему выдавать бухлом.
Хи-хи, mutabor, тут ваша подпись очень кстати.

[Vikenty]

Хороший анекдот

[vasek123]

Пора ему реабилитироваться и переходить на кефир...

[Levsha100]

Недавно у меня в твиттере красовался твит:

Комментирую код пока не забыл как он работает. #govnokod #delphi #refactoring

... появились комменты:

//!TODO Убрать эту ****** в релизе

//Тут нуна в радианах, но мне лень переводить, процессору тоже.

и еще

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

[mutabor]

Простите за оффтоп, но раз уж затронули комментарии. Дословно не помню, изложу суть:

// Посвящается моей жене, детям, и собаке, к-рые будут меня содержать когда этот код выйдет в релиз

// будущему мне - Извини...

[Vikenty]

Сообщение от mutabor

Простите за оффтоп, но раз уж затронули комментарии. Дословно не помню, изложу суть:

// Посвящается моей жене, детям, и собаке, к-рые будут меня содержать когда этот код выйдет в релиз

// будущему мне - Извини...

собака здесь лишняя

[Sibedir]

Раз уж речь о коментах пошла, вот, есть и такое мнение
http://www.gunsmoker.ru/2010/07/blog-post_31.html

[Levsha100]

Раз уж речь о коментах пошла, вот, есть и такое мнение

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

собака здесь лишняя

Есть собаки миллионеры, так что не надо.