Searched refs:takeuchi (Results 1 - 1 of 1) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | recurse.t | 44 sub takeuchi { subroutine
46 takeuchi(takeuchi($_[0] - 1, $_[1], $_[2]),
47 takeuchi($_[1] - 1, $_[2], $_[0]),
48 takeuchi($_[2] - 1, $_[0], $_[1]))
75 is(takeuchi($x, $y, $z), $z + 1, "takeuchi($x, $y, $z) == $z + 1");
|
Completed in 14 milliseconds