Hailstone sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,916: / Line 5,916: @@
 I use this version to do the validation:
 <lang Mathematica>Hailstone[n_] :=
- NestWhileList[Which[Mod[#, 2] == 0, #/2, True, ( 3*# + 1) ] &, n, # != 1 &];
+ NestWhileList[If[Mod[#, 2] == 0, #/2, ( 3*# + 1) ] &, n, # != 1 &];