mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Hailstone-sequence/Mathematica/hailstone-sequence-1.math

2 lines
72 B
Plaintext
Raw Permalink Blame History

HailstoneF[n_] := NestWhileList[If[OddQ@#, 3 # + 1, #/2] &, n, # > 1 &]
Reference in New Issue View Git Blame Copy Permalink