X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Frehash.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Frehash.mud;h=174248f5d9f72bd4768ce6cb41b0c101774e6d29;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vax/mimlib/rehash.mud b/mim/development/mim/vax/mimlib/rehash.mud
new file mode 100644
index 0000000..174248f
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/rehash.mud
@@ -0,0 +1,31 @@
+<PACKAGE "REHASH">
+
+<ENTRY REHASH NEXT-PRIME>
+
+<DEFINE REHASH (SIZ:FIX "AUX" (NT:VECTOR <IVECTOR .SIZ ()>)
+	     (OT:VECTOR ,ATOM-TABLE))
+   <MAPF <>
+     <FUNCTION (L:LIST)
+	<REPEAT (LL:LIST H:FIX)
+	   <COND (<EMPTY? .L> <RETURN>)>
+	   <SET LL <REST .L>>
+	   <PUTREST .L ()>
+	   <SET H <HASH-NAME <SPNAME <CHTYPE <1 .L> ATOM>> .SIZ>>
+	   <PUT .NT .H <PUTREST .L <NTH .NT .H>>>
+	   <SET L .LL>>>
+     .OT>
+   <SETG M$$OBLSIZ!-INTERNAL .SIZ>
+   <SETG M$$OBLIST!-INTERNAL <SETG ATOM-TABLE .NT>>
+   <CALL SETS OBLIST ,ATOM-TABLE>
+   .SIZ>
+
+<DEFINE NPRIME? (N) #DECL ((N) FIX)
+	<REPEAT ((D 2) (SQ <FIX <+ <SQRT <FLOAT .N>> 1.0>>))
+		<COND (<G? .D .SQ> <RETURN <>>)>
+		<COND (<==? <MOD .N .D> 0> <RETURN .D>)>
+		<SET D <+ .D 1>>>>
+
+<DEFINE NEXT-PRIME (X) #DECL ((X) FIX)
+	<REPEAT () <COND (<NOT <NPRIME? <SET X <+ .X 1>>>> <RETURN .X>)>>>
+
+<ENDPACKAGE>