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-3.math

5 lines
248 B
Plaintext
Raw Blame History

hailstone[n_Integer] := Block[{sequence = {}, c = n},
While[c > 1, c = If[EvenQ[c], c/2, 3 c + 1];
AppendTo[sequence, c]];
sequence]
Reference in New Issue View Git Blame Copy Permalink