fork download
copy 
  1. function a = chain(n, a)
  2. 	if nargin == 1
  3. 		a = [];
  4. 	end
  5. 	if n <= 1
  6. 		a = [a n];
  7. 	elseif mod(n, 2)
  8. 		a = chain(n * 3 + 1, [a n]);
  9. 	else
  10. 		a = chain(n / 2, [a n]);
  11. 	end
  12. end
  13. f884 = @(a, b, c) sum(c <= arrayfun(@(n) numel(chain(n)), a:b));
  14. chain(10), chain(30), f884(1, 100, 15)
Success #stdin #stdout 0.44s 412160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ans =

   10    5   16    8    4    2    1

ans =

 Columns 1 through 13:

    30    15    46    23    70    35   106    53   160    80    40    20    10

 Columns 14 through 19:

     5    16     8     4     2     1

ans =  71
https://ideone.com/eNqIim
language:
Octave (octave 4.4.1)
created:
6 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!