Data commit

Task/Juggler-sequence/Perl/juggler-sequence.pl

@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Juggler_sequence
+use warnings;
+use Math::BigInt lib => 'GMP';
+
+print "       n  l(n) i(n)  h(n) or d(n)\n";
+print " -------  ---- ----  ------------\n";
+for my $i ( 20 .. 39,
+  113, 173, 193, 2183, 11229, 15065, 15845, 30817,
+  48443, 275485, 1267909, 2264915, 5812827,
+  7110201  # tried my luck, luck takes about 94 seconds
+  )
+  {
+  my $max = my $n = Math::BigInt->new($i);
+  my $at = my $count = 0;
+  while( $n > 1 )
+    {
+    $n = sqrt( $n & 1 ? $n ** 3 : $n );
+    $count++;
+    $n > $max and ($max, $at) = ($n, $count);
+    }
+
+  if( length $max < 27 )
+    {
+    printf "%8d  %4d  %3d  %s\n", $i, $count, $at, $max;
+    }
+  else
+    {
+    printf "%8d  %4d  %3d  d(n) = %d digits\n", $i, $count, $at, length $max;
+    }
+  }