challenge-013/maxim-nechaev/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl -w
use strict;
use feature 'say';
no warnings 'recursion';

sub F { my $n=shift; $n>0? $n - M(F($n-1)) : 1 }
sub M { my $n=shift; $n>0? $n - F(M($n-1)) : 0 }

say F(99);	# 61
say M(101);	# 63