fork download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4.  
  5. my @memo;
  6. @memo[6, 9, 20] = (1) x 3;
  7.  
  8. sub f {
  9. 	($_[0] > 0) or return 0;
  10. 	$memo[$_[0]] //= (f($_[0] - 6) || f($_[0] - 9) || f($_[0] - 20));
  11. }
  12.  
  13. foreach(1 .. 10000){
  14. 	f($_) or say;
  15. }
  16.  
Success #stdin #stdout 0.01s 6456KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
4
5
7
8
10
11
13
14
16
17
19
22
23
25
28
31
34
37
43
https://ideone.com/fezfLw
language:
Perl (perl 5.28.1)
created:
9 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!