[½»Á÷] Euler ¹¤³Ì µÚÎåÌ⣺Äܱ»1µ½20ËùÓеÄÊý¶¼Õû³ýµÄ×îСÕýÊý ÒÑÓÐ11È˲ÎÓë

        PROGRAM MAIN
        IMPLICIT NONE
        INTEGER N,I,J,K,M,FLAG
        INTEGER(8) SUM
        DIMENSION K(10)
        DO I=1,10
        K(I)=1
        END DO
        READ(*,*)N
        J=1
        DO I=2,N
                CALL ZS(I,FLAG)
                IF(FLAG.EQ.1)THEN
                        K(J)=I
                        J=J+1
                END IF
        END DO       
        DO I=1,J-1
                CALL KN(K(I),N)
        END DO
        SUM=1
        DO I=1,J-1
                SUM=SUM*K(I)
        END DO
        WRITE(*,*)SUM
        END

C        ÅжÏÖÊÊý£¬FLAG=1ΪÖÊÊý£¬·ñÔò²»ÎªÖÊÊý¡£
        INTEGER        FUNCTION ZS(II,FLAG)
        INTEGER II,I,J,K,FLAG
        K=INT(II/2)
        FLAG=1
        DO I=2,K
        IF(MOD(II,I).EQ.0)THEN
                FLAG=0
                GOTO 10
        END IF
        END DO
10        RETURN
        END

C        ÅжÏij¸öÖÊÊýµÄn´Î·½Ôڹ涨·¶Î§ÒÔÄÚ
        INTEGER FUNCTION KN(X,N)
        IMPLICIT NONE
        INTEGER X,Y,N,SUM
        Y=1
        SUM=X
        DO WHILE(SUM.LT.N)
                SUM=SUM*X
                Y=Y+1
C        WRITE(*,*)X,N
        END DO
        X=SUM/X
        END

%% evenly divided by 1:20
% Elapsed time is 173.211097 seconds.
% ans =
%    232792560
function result = euler5()
tic;
flag = 0;
result = 2520; % Äܱ»1-20Õû³ý,¿Ï¶¨±ÈÄܱ»1-10Õû³ýµÄ2520´ó
while flag==0
    result = result+10; % Äܱ»10Õû³ý,ËùÒÔÿ´ÎÔö¼Ó10
    flag = ~any(mod(result,2:20)); % ¼ì²â2-20,Èç¹ûÈ«²¿¿ÉÒÔÕû³ý,¸Ä±äflag½áÊøÑ­»·
end
toc;
end

Originally posted by libralibra at 2011-05-12 16:36:07:
[code] %% evenly divided by 1:20
% Elapsed time is 173.211097 seconds.
% ans =
%    232792560
function result = euler5()
tic;
flag = 0;
result = 2520; % Äܱ»1-20Õû³ý,¿Ï¶¨±ÈÄܱ»1-10Õû³ýµÄ2520 ...

#include
#include
int x(int i);
void main(void)
{
        int i;
        float dif;
        time_t start,end;

        time(&start);
        for(i=1;1;i++)
                if(x(i))
                {
                        printf("%d\n",i);
                        break;
                }
        time(&end);
        dif=difftime(end,start);
        printf("ÔËËãʱ¼ä£º%.1fÃë\n",dif);
}
int x(int i)
{
        int j,k=0;
        for(j=2;j<21;j++)
                if(i%j==0)
                        k++;
        if(k==19)
                return 1;
        else return 0;
}