RosettaCodeData/Task/Hailstone-sequence/Mathematica/hailstone-sequence-6.math

2 lines
75 B
Plaintext

With[{seq = HailstoneFP[27]}, { Length[seq], Take[seq, 4], Take[seq, -4]}]