Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Hailstone-sequence/Mathematica/hailstone-sequence-5.math
+++ b/Task/Hailstone-sequence/Mathematica/hailstone-sequence-5.math
@ -0,0 +1,14 @@
+Hailstone[n_] :=
+ NestWhileList[If[Mod[#, 2] == 0, #/2, ( 3*# + 1) ] &, n, # != 1 &];
+
+
+c27 = Hailstone@27;
+Print["Hailstone sequence for n = 27: [", c27[[;; 4]], "...", c27[[-4 ;;]], "]"]
+Print["Length Hailstone[27] = ", Length@c27]
+
+longest = -1; comp = 0;
+Do[temp = Length@Hailstone@i;
+ If[comp < temp, comp = temp; longest = i],
+ {i, 100000}
+ ]
+Print["Longest Hailstone sequence at n = ", longest, "\nwith length = ", comp];