結果

問題 No.3 ビットすごろく
コンテスト
ユーザー 37zigen
提出日時 2018-04-02 09:20:26
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 1,865 bytes
コンパイル時間 648 ms
コンパイル使用メモリ 34,432 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-01 08:58:38
合計ジャッジ時間 1,640 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 33
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:73:33:

   73 |         integer function bitcount(n)
      |                                 1
Warning: Interface mismatch in global procedure 'bitcount' at (1): INTENT mismatch in argument 'n'

ソースコード

diff # 

module que_module
    implicit none

    type que
        private
        integer::s=1,t=1
        integer,allocatable::contents(:)
    contains
        procedure::is_empty
        procedure::poll
        procedure::peek
        procedure::put
    end type que

    interface que
        module procedure init
    end interface

contains

    type(que) function init(n)
        integer::n
        allocate(init%contents(n))
    end function init

    logical function is_empty(q)
        class(que)::q
        logical::ret
        ret=((q%s).eq.(q%t))
        is_empty=ret
    end function is_empty

    integer function poll(q)
        class(que)::q
        poll=q%contents(q%s)
        q%s=q%s+1
    end function poll

    integer function peek(q)
        class(que)::q
        peek=q%contents(q%s)
    end function peek

    subroutine put(q,v)
        class(que)::q
        integer::v
        q%contents(q%t)=v
        q%t=q%t+1
    end subroutine put

end module que_module

integer function bitcount(n)
    implicit none
    integer,intent(in)::n
    integer::n_
    bitcount=0

    n_=n
    do while(n_>0)
        if(mod(n_,2)==1)bitcount=bitcount+1
        n_=n_/2
    end do

end function bitcount


program main
    use que_module
    implicit none

    interface
        integer function bitcount(n)
            integer::n
        end function bitcount
    end interface

    integer::i,j,k,l,m,n,dx,inf=30000
    integer::a(10000)
    type(que)::q

    q=que(40000)
    read*,n
    do i=1,size(a)
        a(i)=inf
    end do
    a(1)=1

    call q%put(1)

    do while(.not.q%is_empty())
        i=q%poll()
        dx=bitcount(i)
        do j=i-dx,i+dx,2*dx
            if(j<0.or.j>n)cycle
            if(a(j)/=inf)cycle
            a(j)=a(i)+1
            call q%put(j)
        end do
    end do

    if(a(n)==inf)a(n)=-1
    print*,a(n)

end program
0