結果

問題 No.355 数当てゲーム(2)
ユーザー jj
提出日時 2016-08-20 16:44:17
言語 Fortran
(gFortran 14.2.0)
結果
RE  
実行時間 -
コード長 689 bytes
コンパイル時間 1,092 ms
コンパイル使用メモリ 32,000 KB
実行使用メモリ 25,964 KB
平均クエリ数 1.00
最終ジャッジ日時 2024-07-16 10:52:40
合計ジャッジ時間 12,626 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
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 '(4i1)',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 '(4i1)',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