langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Hailstone-sequence/PARI-GP/hailstone-sequence.pari
+++ b/Task/Hailstone-sequence/PARI-GP/hailstone-sequence.pari
@ -0,0 +1,31 @@
+show(n)={
+  my(t=1);
+  while(n>1,
+    print1(n",");
+    n=if(n%2,
+      3*n+1
+    ,
+      n/2
+    );
+    t++
+  );
+  print(1);
+  t
+};
+
+len(n)={
+  my(t=1);
+  while(n>1,
+    if(n%2,
+      t+=2;
+      n+=(n>>1)+1
+    ,
+      t++;
+      n>>=1
+    )
+  );
+  t
+};
+
+show(27)
+r=0;for(n=1,1e5,t=len(n);if(t>r,r=t;ra=n));print(ra"\t"r)