Data update

Task/Hailstone-sequence/MiniScript/hailstone-sequence-1.mini

@@ -0,0 +1,31 @@
+getSequence = function(n)
+	results = [n]
+	while n > 1
+		if n % 2 then
+			n = 3 * n + 1
+		else
+			n = n / 2
+		end if
+		results.push n
+	end while
+	return results
+end function
+
+h = getSequence(27)
+print "The hailstone sequence for 27 has 112 elements starting with"
+print h[:4]
+print "and ending with"
+print h[-4:]
+
+maxSeqLen = 0
+maxSeqVal = 0
+for i in range(1,100000)
+	h = getSequence(i)
+	if h.len > maxSeqLen then
+		maxSeqLen = h.len
+		maxSeqVal = i
+	end if
+end for
+print
+print "The number < 100,000 which has the longest hailstone sequence is " + maxSeqVal + "."
+print "This sequence has " + maxSeqLen + " elements."