codewars-pascal-challenges/class_creation_skills.pas at master · hapepo23/codewars-pascal-challenges · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
{
6 kyu
Train your skills in creation of classes
https://www.codewars.com/kata/5ab4f002379d20e82500008c
}

program class_creation_skills;

{$mode objfpc}{$H+}

uses
  class_creation_skills_unit,
  SysUtils;

  procedure DoTest(Text: string; Actual: string; Expected: string);
  begin
    writeln('Test Case: ', Text);
    writeln('Expected : ', Expected);
    writeln('Actual   : ', Actual);
    if Expected = Actual then
      writeln('-> OK')
    else
      writeln('-> FAIL');
  end;

var
  x1, x2, x3, x4, x5: TX;
  y1, y2, y3, y4, y5: TY;
begin
  { ---- (1) Class Version ----- }
  writeln('---- (1) Class Version -----');
  x1 := TX.Create;
  DoTest('x1 := TX.Create;', x1.ToString, '[1,2]');
  x2 := TX.Create(3);
  DoTest('x2 := TX.Create(3);', x2.ToString, '[3,2]');
  x3 := TX.Create(3, 4);
  DoTest('x3 := TX.Create(3,4);', x3.ToString, '[3,4]');
  x2.Add(x3);
  DoTest('x2.Add(x3);', x2.ToString, '[6,6]');
  x2.Inc;
  DoTest('x2.Inc;', x2.ToString, '[7,7]');
  x1.Dec;
  DoTest('x1.Dec;', x1.ToString, '[0,1]');
  x2.Inc(2);
  DoTest('x2.Inc(2);', x2.ToString, '[9,9]');
  x1.Dec(2);
  DoTest('x1.Dec(2);', x1.ToString, '[-2,-1]');
  x1.Subtract(x2);
  DoTest('x1.Subtract(x2);', x1.ToString, '[-11,-10]');
  x4 := TX.Create(x3); // copy constructor
  DoTest('x4 := TX.Create(x3); // copy constructor', x4.ToString, '[3,4]');
  DoTest('IntToStr(x2.GetA)', IntToStr(x2.GetA), '9');
  DoTest('IntToStr(x1.GetB)', IntToStr(x1.GetB), '-10');
  x3.Assign(x4); // assign x4 to x3
  DoTest('x3.Assign(x4); // assign x4 to x3', x3.ToString, '[3,4]');
  x1.Dec(17);
  DoTest('x1.Dec(17);', x1.ToString, '[-28,-27]');
  x5 := x2.CreateClone; // clone x2 to x5
  DoTest('x5 := x2.CreateClone; // clone x2 to x5', x5.ToString, '[9,9]');
  x5.Assign(0, 0); // assign [0,0] to x5
  DoTest('x5.Assign(0,0); // assign [0,0] to x5', x5.ToString, '[0,0]');
  x3.SetA(-11);
  DoTest('x3.SetA(-11);', x3.ToString, '[-11,4]');
  x3.SetB(-99);
  DoTest('x3.SetB(-99);', x3.ToString, '[-11,-99]');
  x5.Free;
  x4.Free;
  x3.Free;
  x2.Free;
  x1.Free;
  { ---- (2) Record Version ($modeswitch advancedrecords) ----- }
  writeln('---- (2) Record Version ($modeswitch advancedrecords) -----');
  y1 := TY.Default;
  DoTest('y1 := TY.Default;', y1.ToString, '[1,2]');
  y2 := TY.Create(3);
  DoTest('y2 := TY.Create(3);', y2.ToString, '[3,2]');
  y3 := TY.Create(3, 4);
  DoTest('y3 := TY.Create(3,4);', y3.ToString, '[3,4]');
  y2 := y2 + y3;   // was: y2.Add(y3);
  DoTest('y2 := y2 + y3;', y2.ToString, '[6,6]');
  y2 := y2 + TY.Create(1, 1);   // was: y2.Inc;
  DoTest('y2 := y2 + [1,1];', y2.ToString, '[7,7]');
  y1 := y1 - TY.Create(1, 1);   // was: y1.Dec;
  DoTest('y1 := y1 - [1,1];', y1.ToString, '[0,1]');
  y2 := y2 + TY.Create(2, 2);   // was: y2.Inc(2);
  DoTest('y2 := y2 + [2,2];', y2.ToString, '[9,9]');
  y1 := y1 - TY.Create(2, 2);   // was: y1.Dec(2);
  DoTest('y1 := y1 - [2,2];', y1.ToString, '[-2,-1]');
  y1 := y1 - y2;   // was: y1.Subtract(y2);
  DoTest('y1 := y1 - y2;', y1.ToString, '[-11,-10]');
  y4 := y3;  // copy constructor → simple assignment
  DoTest('y4 := y3;', y4.ToString, '[3,4]');
  DoTest('IntToStr(y2.GetA)', IntToStr(y2.GetA), '9');
  DoTest('IntToStr(y1.GetB)', IntToStr(y1.GetB), '-10');
  y3 := y4;  // was: y3.Assign(y4);
  DoTest('y3 := y4;', y3.ToString, '[3,4]');
  y1 := y1 - TY.Create(17, 17);   // was: y1.Dec(17);
  DoTest('y1 := y1 - [17,17];', y1.ToString, '[-28,-27]');
  y5 := y2;  // was: CloneCreate
  DoTest('y5 := y2;', y5.ToString, '[9,9]');
  y5 := TY.Create(0, 0);  // was: Assign(0,0)
  DoTest('y5 := [0,0];', y5.ToString, '[0,0]');
  y3.SetA(-11);
  DoTest('y3.SetA(-11);', y3.ToString, '[-11,4]');
  y3.SetB(-99);
  DoTest('y3.SetB(-99);', y3.ToString, '[-11,-99]');
  Writeln('No free needed');
end.