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