fork download

copy

uses math;
const
  fi='';//informac.inp';
  fo='';//informac.out';
  maxm=40000;
  maxn=200;
var
  match : array[1..maxn] of longint;
  l,r : array[1..maxn] of longint;
  left,right  :  array[1..maxn] of longint;
  link,head,ke : array[1..maxm] of longint;
  i,j,n,m,x,y,u,v : longint;
  kt : boolean;
procedure enter;
  var i,j,k : longint;
  begin
    assign(input,fi);reset(input);
    read(n,m);
    for i:=1 to n do
      begin
        r[i] := n;
        right[i] := n;
      end;
    for i:=1 to n do
      begin
        l[i] := 1;
        left[i] := 1;
      end;
    for i:=1 to m do
      begin
        read(j,x,y,v);
        left[v] := max(left[v], x);
        right[v] := min(right[v], y);
        if j = 1 then
          begin
            for k := x to y do r[k] := min(r[k],v);
          end;
        if j = 2 then
          begin
            for k := x to y do l[k] := max(l[k],v);
          end;
      end;
    close(input);
  end;
Procedure Ghepcap;
  var old,i,j,nlist : longint;
      cx : array[1..maxn] of boolean;
      found : boolean;
      list : array[1..maxn] of longint;
  procedure dfs( u : longint);
    var v,i : longint;
    begin
      i := head[u];
      while i <> 0 do
        begin
          v := ke[i];
          if cx[v] then
            begin
              cx[v] := false;
              if match[v] = 0 then found := true else dfs(match[v]);
              if found then
                begin
                  match[v] := u;
                  exit;
                end;
            end;
          i := link[i];
        end;
    end;
  begin
    for i:=1 to n do list[i] := i;
    nlist := n;
    repeat
      old := nlist;
      fillchar(cx,sizeof(cx),true);
      for i:=nlist downto 1 do
        begin
          found := false;
          dfs(list[i]);
          if found then
            begin
              list[i] := list[nlist];
              dec(nlist);
            end;
        end;
    until nlist = old;
  end;
procedure add(i,u,v : longint);
  begin
    link[i] := head[u];
    head[u] := i;
    ke[i] := v;
  end;
procedure process;
  begin
    kt := false;
    for i:=1 to n do
      if r[i] < l[i] then exit;
    for i:=1 to n do
      for j:=left[i] to right[i] do
        if (i>=l[j]) and (i<=r[j]) then
        begin
          inc(m);
          add(m,i,j);
        end;
    ghepcap;
    for i:=1 to n do
      if match[i] = 0 then exit;
    kt := true;
  end;
procedure print;
  begin
    assign(output,fo);rewrite(output);
    if not kt then writeln(-1) else for i:=1 to n do write(match[i],' ');
  end;
begin
  enter;
  process;
  print;
end.

Main.java:1: error: class, interface, or enum expected
uses math;
^
Main.java:2: error: class, interface, or enum expected
const
^
Main.java:3: error: empty character literal
  fi='';//informac.inp';
     ^
Main.java:3: error: unclosed character literal
  fi='';//informac.inp';
      ^
Main.java:4: error: empty character literal
  fo='';//informac.out';
     ^
Main.java:4: error: unclosed character literal
  fo='';//informac.out';
      ^
Main.java:6: error: class, interface, or enum expected
  maxn=200;
  ^
Main.java:7: error: class, interface, or enum expected
var
^
Main.java:9: error: class, interface, or enum expected
  l,r : array[1..maxn] of longint;
  ^
Main.java:10: error: class, interface, or enum expected
  left,right  :  array[1..maxn] of longint;
  ^
Main.java:11: error: class, interface, or enum expected
  link,head,ke : array[1..maxm] of longint;
  ^
Main.java:12: error: class, interface, or enum expected
  i,j,n,m,x,y,u,v : longint;
  ^
Main.java:13: error: class, interface, or enum expected
  kt : boolean;
  ^
Main.java:14: error: class, interface, or enum expected
procedure enter;
^
Main.java:15: error: class, interface, or enum expected
  var i,j,k : longint;
  ^
Main.java:16: error: class, interface, or enum expected
  begin
  ^
Main.java:17: error: class, interface, or enum expected
    assign(input,fi);reset(input);
                     ^
Main.java:18: error: class, interface, or enum expected
    read(n,m);
    ^
Main.java:19: error: class, interface, or enum expected
    for i:=1 to n do
    ^
Main.java:22: error: class, interface, or enum expected
        right[i] := n;
        ^
Main.java:23: error: class, interface, or enum expected
      end;
      ^
Main.java:24: error: class, interface, or enum expected
    for i:=1 to n do
    ^
Main.java:27: error: class, interface, or enum expected
        left[i] := 1;
        ^
Main.java:28: error: class, interface, or enum expected
      end;
      ^
Main.java:29: error: class, interface, or enum expected
    for i:=1 to m do
    ^
Main.java:32: error: class, interface, or enum expected
        left[v] := max(left[v], x);
        ^
Main.java:33: error: class, interface, or enum expected
        right[v] := min(right[v], y);
        ^
Main.java:34: error: class, interface, or enum expected
        if j = 1 then
        ^
Main.java:37: error: class, interface, or enum expected
          end;
          ^
Main.java:38: error: class, interface, or enum expected
        if j = 2 then
        ^
Main.java:41: error: class, interface, or enum expected
          end;
          ^
Main.java:42: error: class, interface, or enum expected
      end;
      ^
Main.java:43: error: class, interface, or enum expected
    close(input);
    ^
Main.java:44: error: class, interface, or enum expected
  end;
  ^
Main.java:45: error: class, interface, or enum expected
Procedure Ghepcap;
^
Main.java:46: error: class, interface, or enum expected
  var old,i,j,nlist : longint;
  ^
Main.java:47: error: class, interface, or enum expected
      cx : array[1..maxn] of boolean;
      ^
Main.java:48: error: class, interface, or enum expected
      found : boolean;
      ^
Main.java:49: error: class, interface, or enum expected
      list : array[1..maxn] of longint;
      ^
Main.java:50: error: class, interface, or enum expected
  procedure dfs( u : longint);
  ^
Main.java:51: error: class, interface, or enum expected
    var v,i : longint;
    ^
Main.java:52: error: class, interface, or enum expected
    begin
    ^
Main.java:54: error: class, interface, or enum expected
      while i <> 0 do
      ^
Main.java:57: error: class, interface, or enum expected
          if cx[v] then
          ^
Main.java:60: error: class, interface, or enum expected
              if match[v] = 0 then found := true else dfs(match[v]);
              ^
Main.java:61: error: class, interface, or enum expected
              if found then
              ^
Main.java:64: error: class, interface, or enum expected
                  exit;
                  ^
Main.java:65: error: class, interface, or enum expected
                end;
                ^
Main.java:66: error: class, interface, or enum expected
            end;
            ^
Main.java:67: error: class, interface, or enum expected
          i := link[i];
          ^
Main.java:68: error: class, interface, or enum expected
        end;
        ^
Main.java:69: error: class, interface, or enum expected
    end;
    ^
Main.java:70: error: class, interface, or enum expected
  begin
  ^
Main.java:72: error: class, interface, or enum expected
    nlist := n;
    ^
Main.java:73: error: class, interface, or enum expected
    repeat
    ^
Main.java:75: error: class, interface, or enum expected
      fillchar(cx,sizeof(cx),true);
      ^
Main.java:76: error: class, interface, or enum expected
      for i:=nlist downto 1 do
      ^
Main.java:79: error: class, interface, or enum expected
          dfs(list[i]);
          ^
Main.java:80: error: class, interface, or enum expected
          if found then
          ^
Main.java:83: error: class, interface, or enum expected
              dec(nlist);
              ^
Main.java:84: error: class, interface, or enum expected
            end;
            ^
Main.java:85: error: class, interface, or enum expected
        end;
        ^
Main.java:86: error: class, interface, or enum expected
    until nlist = old;
    ^
Main.java:87: error: class, interface, or enum expected
  end;
  ^
Main.java:88: error: class, interface, or enum expected
procedure add(i,u,v : longint);
^
Main.java:89: error: class, interface, or enum expected
  begin
  ^
Main.java:91: error: class, interface, or enum expected
    head[u] := i;
    ^
Main.java:92: error: class, interface, or enum expected
    ke[i] := v;
    ^
Main.java:93: error: class, interface, or enum expected
  end;
  ^
Main.java:94: error: class, interface, or enum expected
procedure process;
^
Main.java:95: error: class, interface, or enum expected
  begin
  ^
Main.java:97: error: class, interface, or enum expected
    for i:=1 to n do
    ^
Main.java:99: error: class, interface, or enum expected
    for i:=1 to n do
    ^
Main.java:104: error: class, interface, or enum expected
          add(m,i,j);
          ^
Main.java:105: error: class, interface, or enum expected
        end;
        ^
Main.java:106: error: class, interface, or enum expected
    ghepcap;
    ^
Main.java:107: error: class, interface, or enum expected
    for i:=1 to n do
    ^
Main.java:109: error: class, interface, or enum expected
    kt := true;
    ^
Main.java:110: error: class, interface, or enum expected
  end;
  ^
Main.java:111: error: class, interface, or enum expected
procedure print;
^
Main.java:112: error: class, interface, or enum expected
  begin
  ^
Main.java:113: error: class, interface, or enum expected
    assign(output,fo);rewrite(output);
                      ^
Main.java:114: error: class, interface, or enum expected
    if not kt then writeln(-1) else for i:=1 to n do write(match[i],' ');
    ^
Main.java:115: error: class, interface, or enum expected
  end;
  ^
Main.java:116: error: class, interface, or enum expected
begin
^
Main.java:118: error: class, interface, or enum expected
  process;
  ^
Main.java:119: error: class, interface, or enum expected
  print;
  ^
Main.java:120: error: class, interface, or enum expected
end.
^
88 errors

Standard output is empty