RosettaCodeData/Task/Hailstone-sequence/Mathematica/hailstone-sequence-6.math
2023-07-01 13:44:08 -04:00

1 line
75 B
Text

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