Lines Matching refs:_
18 return gcd($_[0] - $_[1], $_[1]) if ($_[0] > $_[1]);
19 return gcd($_[0], $_[1] - $_[0]) if ($_[0] < $_[1]);
20 $_[0];
24 $_[0] < 2 ? 1 : $_[0] * factorial($_[0] - 1);
28 $_[0] < 2 ? 1 : fibonacci($_[0] - 2) + fibonacci($_[0] - 1);
38 return $_[1] + 1 if ($_[0] == 0);
39 return ackermann($_[0] - 1, 1) if ($_[1] == 0);
40 ackermann($_[0] - 1, ackermann($_[0], $_[1] - 1));
46 $_[1] < $_[0] ?
47 takeuchi(takeuchi($_[0] - 1, $_[1], $_[2]),
48 takeuchi($_[1] - 1, $_[2], $_[0]),
49 takeuchi($_[2] - 1, $_[0], $_[1]))
50 : $_[2];
80 get_list1(@_)->[0];
84 return [curr_test] unless $_[0];
94 return get_list2(@_)->[0];
98 return [curr_test] unless $_[0];
110 return $_[0] + ($_[0] > 0 ? sillysum($_[0] - 1) : 0);