fork(2) download
copy 
  1. var
  2. i,x,y:longint;
  3. c:char;
  4.  
  5. begin
  6. i:=0; x:=0;
  7. while not EOF do 
  8. 	begin 
  9. 		inc(i); read(c); if c='x' then inc(x); 
  10. 	end;
  11.  
  12. y:=i-x;
  13. if x>y  then for i:=1 to i-2*y do write('x')
  14. 		else for i:=1 to i-2*x do write('y');
  15.  
  16. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
x
stdout
copy 
x
https://ideone.com/CWJo6P
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!