fork download 
  1. use strict;
  2. #------------------------------------------------------
  3. sub a {
  4.     my ($n)=@_;
  5.  
  6.     my @cash;
  7.     $cash[1]=1;
  8.  
  9.     for(my $i = 2 ; $i <= $n; $i++)
  10.     {
  11.        $cash[$i]=$i - $cash[$cash[$i-1]];
  12.     }
  13.  
  14.     return($cash[$n]);
  15. }
  16. #------------------------------------------------------
  17. sub main {
  18.     print a(201200),"\n";
  19. }
  20. #------------------------------------------------------
  21. main(@ARGV);
  22.  
Success #stdin #stdout 0.07s 7784KB
comments (?)
stdin 
Standard input is empty
stdout 
124349
https://ideone.com/Io1TOZ
language:
Perl (perl 5.28.1)
created:
10 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!