RosettaCodeData/Task/Hailstone-sequence/Mathematica/hailstone-sequence-6.math
2016-12-05 22:15:40 +01:00

1 line
75 B
Text

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