Hailstone sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,559: / Line 4,559: @@
 <syntaxhighlight lang="futurebasic">
 local fn Hailstone( n as NSInteger ) as NSInteger
-NSInteger count = 1
+  NSInteger count = 1
-while ( n != 1 )
+  while ( n != 1 )
-  if ( n and 1 ) == 1
+    if ( n and 1 ) == 1
-    n = n * 3 + 1
+      n = n * 3 + 1
+      count++
+    end if
+    n = n / 2
     count++
-  end if
+  wend
-  n = n / 2
-  count++
-wend
 end fn = count