RosettaCodeData/Task/Hailstone-sequence/J/hailstone-sequence-1.j

2 lines
47 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
hailseq=: -:`(1 3&p.)@.(2&|) ^:(1 ~: ]) ^:a:"0