CDE

Task/Executable-library/BBC-BASIC/executable-library-1.bbc

@@ -0,0 +1,21 @@
+      seqlen% = FNhailstone(27)
+      PRINT "Sequence length for 27 is "; seqlen%
+      maxlen% = 0
+      FOR number% = 2 TO 100000
+        seqlen% = FNhailstone(number%)
+        IF seqlen% > maxlen% THEN
+          maxlen% = seqlen%
+          maxnum% = number%
+        ENDIF
+      NEXT
+      PRINT "The number with the longest hailstone sequence is " ; maxnum%
+      PRINT "Its sequence length is " ; maxlen%
+      END
+
+      DEF FNhailstone(N%)
+      LOCAL L%
+      WHILE N% <> 1
+        IF N% AND 1 THEN N% = 3 * N% + 1 ELSE N% DIV= 2
+        L% += 1
+      ENDWHILE
+      = L% + 1

Task/Executable-library/BBC-BASIC/executable-library-2.bbc

@@ -0,0 +1,18 @@
+      INSTALL "HAILSTONE"
+
+      DIM freq%(351)
+      FOR number% = 2 TO 100000
+        seqlen% = FNhailstone(number%)
+        freq%(seqlen%) += 1
+      NEXT
+      max% = 0
+      FOR i% = 0 TO 351
+        IF freq%(i%) > max% THEN
+          max% = freq%(i%)
+          mostcommon% = i%
+        ENDIF
+      NEXT
+
+      PRINT "The most common sequence length is " ; mostcommon%
+      PRINT "It occurs " ; max% " times"
+      END