RosettaCodeData/Task/Hailstone-sequence/J/hailstone-sequence-1.j
2023-07-01 13:44:08 -04:00

1 line
47 B
Text

hailseq=: -:`(1 3&p.)@.(2&|) ^:(1 ~: ]) ^:a:"0