fork(2) download
copy 
  1. function yoba(n: longword):longword;
  2. var
  3.   i: longword;
  4.   a: array of longword;
  5.  
  6. begin
  7.    SetLength(a,n+1);
  8.  
  9.    a[1]:=1;
  10.    for i:=2 to n do
  11.      a[i]:= i - a[a[i-1]];
  12.    yoba:=a[n];
  13. end;
  14.  
  15. begin
  16.   writeln(yoba(50000000));
  17.   readln;
  18. end.
  19.  
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
Linking prog
18 lines compiled, 0.0 sec
stdout
copy 
30901700
https://ideone.com/uFzYy
language:
Pascal (fpc 3.0.4)
created:
14 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!