about summary refs log tree commit diff
path: root/others/mkcal/xepviec.pas
blob: cfa39d6fb5894d4ca0fa1dbe6747803378c3bf56 (plain) (blame)
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
const
  inp = 'xepviec.inp';
  out = 'xepviec.out';
type int200 = 0..200;
var
  f : text;
  n, i, j, k, l, tmp : int200;
  a : array[0..200, 0..200] of int200;
function next(m : int200) : boolean;
  var i0, j0 : int200;
  begin
    for i0 := 1 to a[0, 0] do
      for j0 := 2 to a[i0, 0] do
        if m = a[i0, j0] then exit(false);
    next := true;
  end;
begin
  assign(f, inp);
  reset(f);
  readln(f, n);
  i := 0;
  repeat
    inc(i);
    j := 0;
    repeat
      inc(j);
      read(f, a[i, j])
    until eoln(f);
    a[i, 0] := j
  until eof(f);
  close(f);
  a[0, 0] := i - 1;
  for i := 1 to n do
    for j := 1 to a[0, 0] do
      if (a[j, 0] > 0) and next(a[j, 1]) then
        begin
          tmp := a[j, 1];
          a[0, i] := tmp;
          for k := 1 to a[0, 0] do
            if a[k, 1] = tmp then
              begin
                dec(a[k, 0]);
                for l := 1 to a[k, 0] do
                  a[k, l] := a[k, l + 1]
              end;
          break
        end;
  assign(f, out);
  rewrite(f);
  for i := 1 to n do
    write(f, a[0, i], ' ');
  close(f)
end.