Searched refs:findgteprime (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DSubstrHash.t85 print "not " unless Tie::SubstrHash::findgteprime(1) == 2;
88 print "not " unless Tie::SubstrHash::findgteprime(2) == 2;
91 print "not " unless Tie::SubstrHash::findgteprime(5.5) == 7;
94 print "not " unless Tie::SubstrHash::findgteprime(13) == 13;
97 print "not " unless Tie::SubstrHash::findgteprime(13.000001) == 17;
100 print "not " unless Tie::SubstrHash::findgteprime(114) == 127;
103 print "not " unless Tie::SubstrHash::findgteprime(1000) == 1009;
106 print "not " unless Tie::SubstrHash::findgteprime(1024) == 1031;
109 print "not " unless Tie::SubstrHash::findgteprime(10000) == 10007;
H A DSubstrHash.pm49 findgteprime($tsize * 1.1)]; # Allow 10% empty.
191 sub findgteprime { # find the smallest prime integer greater than or equal to subroutine

Completed in 28 milliseconds