Euler Project 挨个做 - 之一(Q1-50)

〇〇

变化还是很有规律的，但不好总结

SQL> with t as(select level l from dual connect by level <=100),
  2  t1 as(select l,(select sum(power(substr(l,level,1),5)) from dual connect by level<=length(l))s from t)
  3  select l,s,s-lag(s)over(order by l)dif from t1;

         L          S        DIF
---------- ---------- ----------
         1          1
         2         32         31
         3        243        211
         4       1024        781
         5       3125       2101
         6       7776       4651
         7      16807       9031
         8      32768      15961
         9      59049      26281
        10          1     -59048
        11          2          1
        12         33         31
        13        244        211
        14       1025        781
        15       3126       2101
        16       7777       4651
        17      16808       9031
        18      32769      15961
        19      59050      26281
        20         32     -59018

〇〇

总结不出来，先用缓存法
declare
s int:=0;
function f(x int)
return int
is
s1 int:=0;
n int;
begin
for i in 1..length(x) loop
n:=substr(x,i,1);
s1:=s1+(n*n*n*n*n);
end loop;
return s1;
end;
begin
for i in 1..4e5 loop
if f(i)=i then
s:=s+i;
end if;
end loop;
dbms_output.put_line(s);
end;
/
443840

PL/SQL 过程已成功完成。

已用时间:  00: 00: 02.15

declare
--a varray(10);
type tabint is table of number index by pls_integer;
a tabint;
s int:=0;
temp int:=0;
function f(x int)
return int
is
s1 int:=0;
n int;
m int;
begin
m:=mod(x,10);
if m=0 then
for i in 1..length(x) loop
n:=substr(x,i,1);
s1:=s1+(n*n*n*n*n);
end loop;
temp:=s1;
else
s1:=temp+a(m);
end if;
return s1;
end;
begin
--a.extend(10);
for i in 1..9 loop
a(i):=power(i,5);
end loop;
for i in 1..4e5 loop
if f(i)=i then
s:=s+i;
end if;
end loop;
dbms_output.put_line(s);
end;
/
443840

PL/SQL 过程已成功完成。

已用时间:  00: 00: 00.84