fork download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4. no warnings qw(recursion);
  5.  
  6. sub _f {
  7. 	my ($m, $n, $c) = @_;
  8.  
  9. 	return ($n <= $m ?
  10. 		$c :
  11. 		_f($m, ((($n >= $m * 2) and ($n % 2 == 0)) ? $n / 2 : $n - 1), $c + 1)
  12. 	);
  13. }
  14.  
  15. sub f { _f($_[0], $_[1], 0) }
  16.  
  17. say f(3, 10);
  18. say f(3, 95);
  19. say f(666, 2014);
  20.  
Success #stdin #stdout 0s 3872KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
10
342
https://ideone.com/B24aJI
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!