結果

問題 No.355 数当てゲーム(2)
ユーザー jjjj
提出日時 2016-08-20 16:45:47
言語 Fortran
(gFortran 14.2.0)
結果
RE  
実行時間 -
コード長 695 bytes
コンパイル時間 233 ms
コンパイル使用メモリ 33,024 KB
実行使用メモリ 25,964 KB
平均クエリ数 1.00
最終ジャッジ日時 2024-07-16 10:53:26
合計ジャッジ時間 12,085 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other RE * 52
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer::N,hit,blow,i,j,k,l,blows
  integer::set(1:4)
  data hit/0/,blow/0/,blows/1/
  do i=0,9
     print '(i0,3i2)',i,i,i,i
     read *,hit, blow
     if(hit+blow.ne.0) set(blows:blows+hit+blow-1)=i
     blows = blows + hit + blow
     if(hit.eq.4) return
     if(blows.gt.4) exit
  end do

  do i=1,4
     do j=1,4
        if(j.eq.i) cycle
        do k=1,4
           if(k.eq.j.or.k.eq.i) cycle
           do l=1,4
              if(l.eq.k.or.l.eq.j.or.l.eq.i) cycle
              print '(i0,3i2)',set(i),set(j),set(k),set(l)
              read *,hit, blow
              if(hit.eq.4) return
           end do
        end do
     end do
  end do
end program main
0