結果

問題 No.2 素因数ゲーム
コンテスト
ユーザー 37zigen
提出日時 2018-04-01 16:46:01
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 454 bytes
コンパイル時間 2,649 ms
コンパイル使用メモリ 30,976 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-12-26 13:28:42
合計ジャッジ時間 3,787 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 31
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
      implicit none
      integer::i,j,k,l,m,n,grundy=0
      
      read*,n
      do i=2,n
            j=0
            do while(n>0.and.mod(n,i)==0)
                  n=n/i
                  j=j+1
            end do
            grundy=xor(grundy,j)
            if(i*i>=n)exit
      end do
      if(n>1)grundy=xor(grundy,1)
      if(grundy==0)then
            print*,"Bob"
      else 
            print*,"Alice"
      end if
end program main
0