fork download
copy 
  1. program ideone;
  2. {$mode delphi}
  3. var
  4.   s : string;
  5.   t : string;
  6.   i : integer;
  7. begin
  8.   SetLength(s, 65536*1024);
  9.   t:='samrrr';
  10.   for i:=1 to length(s) do
  11. 	s[i]:=t[((i-1) mod length(t))+1];
  12.   writeln(length(s));
  13.   writeln('"',Copy(s,1,32),'"');
  14. end.
Success #stdin #stdout 0.99s 65628KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
67108864
"samrrrsamrrrsamrrrsamrrrsamrrrsa"
https://ideone.com/KiLOFu
language:
Pascal (fpc 3.0.4)
created:
3 years ago
visibility:
public

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!