Searched defs: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