結果

問題 No.355 数当てゲーム(2)
ユーザー jjjj
提出日時 2016-08-20 16:44:17
言語 Fortran
(gFortran 13.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
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 RE -
testcase_03 RE -
testcase_04 RE -
testcase_05 RE -
testcase_06 RE -
testcase_07 RE -
testcase_08 RE -
testcase_09 RE -
testcase_10 RE -
testcase_11 RE -
testcase_12 RE -
testcase_13 RE -
testcase_14 RE -
testcase_15 RE -
testcase_16 RE -
testcase_17 RE -
testcase_18 RE -
testcase_19 RE -
testcase_20 RE -
testcase_21 RE -
testcase_22 RE -
testcase_23 RE -
testcase_24 RE -
testcase_25 RE -
testcase_26 RE -
testcase_27 RE -
testcase_28 RE -
testcase_29 RE -
testcase_30 RE -
testcase_31 RE -
testcase_32 RE -
testcase_33 RE -
testcase_34 RE -
testcase_35 RE -
testcase_36 RE -
testcase_37 RE -
testcase_38 RE -
testcase_39 RE -
testcase_40 RE -
testcase_41 RE -
testcase_42 RE -
testcase_43 RE -
testcase_44 RE -
testcase_45 RE -
testcase_46 RE -
testcase_47 RE -
testcase_48 RE -
testcase_49 RE -
testcase_50 RE -
testcase_51 RE -
権限があれば一括ダウンロードができます

ソースコード

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