Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Pernicious-numbers/Pascal/pernicious-numbers.pascal
+++ b/Task/Pernicious-numbers/Pascal/pernicious-numbers.pascal
@ -0,0 +1,65 @@
+program pernicious;
+{$IFDEF FPC}
+   {$OPTIMIZATION ON,Regvar,ASMCSE,CSE,PEEPHOLE}// 3x speed up
+{$ENDIF}
+uses
+  sysutils;//only used for time
+
+type
+  tbArr    = array[0..64] of byte;
+{
+  PrimeTil64 : array[0..64] of byte =
+  (0,0,2,3,0,5,0, 7,0,0,0,11,0,13,0,0,0,17,0,19,0,0,0,23,0,0,0,0,0,29,0,
+    31,0,0,0,0,0,37,0,0,0,41,0,43,0,0,0,47,0, 0,0,0,0,53,0,0,0,0,0,59,0,
+    61,0,0,0);
+}
+const
+  PrimeTil64 : tbArr =
+  (0,0,1,1,0,1,0, 1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,
+     1,0,0,0,0,0, 1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,
+     1,0,0,0);
+
+function popcnt32(n:Uint32):NativeUint;
+//https://en.wikipedia.org/wiki/Hamming_weight#Efficient_implementation
+const
+  K1  = $0101010101010101;
+  K33 = $3333333333333333;
+  K55 = $5555555555555555;
+  KF1 = $0F0F0F0F0F0F0F0F;
+begin
+  n := n- (n shr 1) AND NativeUint(K55);
+  n := (n AND NativeUint(K33))+ ((n shr 2) AND NativeUint(K33));
+  n := (n + (n shr 4)) AND NativeUint(KF1);
+  n := (n*NativeUint(K1)) SHR 24;
+  popcnt32 := n;
+end;
+
+var
+  t : TDAteTime;
+  i,
+  k : LongWord;
+
+Begin
+  writeln('the 25 first pernicious numbers');
+  I:=1;k:=0;
+  repeat
+    IF PrimeTil64[popCnt32(i)] <> 0 then Begin
+      inc(k); write(i,' ');end;
+    inc(i);
+  until k >= 25;
+  writeln;
+
+  writeln('pernicious numbers in [888888877..888888888]');
+  For i :=  888888877 to 888888888 do
+    IF PrimeTil64[popCnt32(i)] <> 0  then
+      write(i,' ');
+  writeln;
+
+  //speedtest of popcount
+  t:= time;
+  k := 0;
+  For i :=  High(i) downto 0 do
+    k := k+PrimeTil64[popCnt32(i)];
+  t := time-t;
+  writeln(k,' pernicious numbers in [0..2^32-1] takes ',t*86400:0:3,' seconds');
+ end.