CSES - Datatähti Open 2017

CSES - Datatähti Open 2017 - Results

Submission details
Task:	Witch game
Sender:	Sanja
Submission time:	2017-07-07 19:27:38 +0300
Language:	Pascal
Status:	READY
Result:	100

Feedback
group	verdict	score
#1	ACCEPTED	23
#2	ACCEPTED	24
#3	ACCEPTED	53

Test results
test	verdict	time	group
#1	ACCEPTED	0.04 s	1	details
#2	ACCEPTED	0.04 s	1	details
#3	ACCEPTED	0.04 s	1	details
#4	ACCEPTED	0.04 s	1	details
#5	ACCEPTED	0.03 s	1	details
#6	ACCEPTED	0.04 s	2	details
#7	ACCEPTED	0.04 s	2	details
#8	ACCEPTED	0.04 s	2	details
#9	ACCEPTED	0.04 s	2	details
#10	ACCEPTED	0.03 s	2	details
#11	ACCEPTED	0.06 s	3	details
#12	ACCEPTED	0.04 s	3	details
#13	ACCEPTED	0.06 s	3	details
#14	ACCEPTED	0.06 s	3	details
#15	ACCEPTED	0.06 s	3	details

Compiler report

/usr/bin/ld.bfd: warning: output/link.res contains output sections; did you forget -T?

Code

  const MAX_N = 100000;
  
  function Choose ( k , n : Int64 ) : Int64;
  begin
    Choose := ( n * ( n - 1 ) * ( n - 2 ) div ( 6 ) );
  end;
  
  var N : LongInt;
      
	  E : array [ 1 .. MAX_N ] of LongInt;
	  
	  Light , Dark : array [ 1 .. MAX_N ] of LongInt;
  
  
  function NOT_MONO() : Int64;
    var i : LongInt;
	    res : Int64;
  begin
    res := 0;
	
	for i := 1 to N do
	begin
	  //writeLn ( Light[i] , ' ' , Dark[i] );
	  res += Int64(Light[i]) * Int64(Dark[i]);
	end;
	
	
	exit ( res div 2 );
	
  end;
  
  function Triangle (  ) : LongInt;
    var v , a , b , c : LongInt;
	    res : LongInt;
  begin
    res := 0;
	
	
	
    for v := 1 to N do
	begin
	  
	  a := v;
	  b := E[v];
	  c := E[b];
	  
	  if ( a <> b ) and ( b <> c ) and ( E[c] = a ) then
	    inc ( res );
	  
	  
	end;
	
	
	exit ( res div 3 );
  end;
  
  procedure app ( v : LongInt );
  begin
   inc ( Light[v] );
   dec ( Dark[v] );
  end;
  
  var i : LongInt;
      Ans : Int64;
	  tmp : LongInt;
begin
  readLn ( N );
  
  for i := 1 to N do
    Dark[i] := N-1;
  for i := 1 to N do
    Light[i] := 0;
  
  for i := 1 to N do
  begin
    read ( E[i] );
  end;
  
  for i := 1 to N do
  begin
    tmp := E[i];
	if ( E[tmp] = i ) then
	begin
	  if ( tmp > i ) then
	  begin
	    app ( i );
		app ( tmp );
	  end;
	end
	else
	begin
	  app ( i );
	  app ( tmp );
	end;
  end;
  
  
  
  Ans := Choose ( 3 , N ) - NOT_MONO() - TRIANGLE();
  
  //writeLn ( Choose(3,N) , ' - ' , NOT_MONO() , ' - ' , TRIANGLE() );
  
  writeLn ( Ans );

end.

Test details

Test 1

Group: 1

Verdict: ACCEPTED

input
`100 2 1 4 3 6 5 8 7 10 9 12 11 14 ...` view save

correct output
`156800` view save

user output
`156800` view save

Test 2

Group: 1

Verdict: ACCEPTED

input
`100 2 3 4 5 6 7 8 9 10 11 12 13 14...` view save

correct output
`152000` view save

user output
`152000` view save

Test 3

Group: 1

Verdict: ACCEPTED

input
`100 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`156849` view save

user output
`156849` view save

Test 4

Group: 1

Verdict: ACCEPTED

input
`100 2 3 1 5 6 4 8 9 7 11 12 10 14 ...` view save

correct output
`151968` view save

user output
`151968` view save

Test 5

Group: 1

Verdict: ACCEPTED

input
`100 8 98 100 62 42 36 95 70 22 49 ...` view save

correct output
`152040` view save

user output
`152040` view save

Test 6

Group: 2

Verdict: ACCEPTED

input
`5000 2 1 4 3 6 5 8 7 10 9 12 11 14 ...` view save

correct output
`20808340000` view save

user output
`20808340000` view save

Test 7

Group: 2

Verdict: ACCEPTED

input
`5000 2 3 4 5 6 7 8 9 10 11 12 13 14...` view save

correct output
`20795850000` view save

user output
`20795850000` view save

Test 8

Group: 2

Verdict: ACCEPTED

input
`5000 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`20808342499` view save

user output
`20808342499` view save

Test 9

Group: 2

Verdict: ACCEPTED

input
`5000 2 3 1 5 6 4 8 9 7 11 12 10 14 ...` view save

correct output
`20795848337` view save

user output
`20795848337` view save

Test 10

Group: 2

Verdict: ACCEPTED

input
`5000 283 2880 2565 3289 4160 936 39...` view save

correct output
`20795852465` view save

user output
`20795852465` view save

Test 11

Group: 3

Verdict: ACCEPTED

input
`100000 2 1 4 3 6 5 8 7 10 9 12 11 14 ...` view save

correct output
`166656666800000` view save

user output
`166656666800000` view save

Test 12

Group: 3

Verdict: ACCEPTED

input
`100000 2 3 4 5 6 7 8 9 10 11 12 13 14...` view save

correct output
`166651667000000` view save

user output
`166651667000000` view save

Test 13

Group: 3

Verdict: ACCEPTED

input
`100000 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`166656666849999` view save

user output
`166656666849999` view save

Test 14

Group: 3

Verdict: ACCEPTED

input
`100000 2 3 1 5 6 4 8 9 7 11 12 10 14 ...` view save

correct output
`166651666966668` view save

user output
`166651666966668` view save

Test 15

Group: 3

Verdict: ACCEPTED

input
`100000 186 62491 95379 37431 88427 93...` view save

correct output
`166651667250100` view save

user output
`166651667250100` view save

Datatähti Open 2017

Witch game

Compiler report

Code

Test details

Test 1

Test 2

Test 3

Test 4

Test 5

Test 6

Test 7

Test 8

Test 9

Test 10

Test 11

Test 12

Test 13

Test 14

Test 15

Tasks

Submissions (Sanja)