Rosetta Code

Hailstone sequence: Difference between revisions

Page Discussion

Hailstone sequence (view source)

Revision as of 10:52, 13 August 2021

1 byte added ,  2 years ago
→‎Nested function call formulation
Line 5,896:
 
=== Nested function call formulation ===
<lang Mathematica>HailstoneF[n_] := NestWhileList[If[OddQ@[#], 3 # + 1, #/2] &, n, # > 1 &]</lang>
 
This is probably the most readable and shortest implementation.
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/142752"