結果
問題 | No.197 手品 |
ユーザー |
![]() |
提出日時 | 2016-09-11 18:00:18 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 3 ms / 1,000 ms |
コード長 | 944 bytes |
コンパイル時間 | 1,489 ms |
コンパイル使用メモリ | 32,128 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-20 03:49:52 |
合計ジャッジ時間 | 2,769 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 43 |
ソースコード
program main implicit none character*3::b,f integer*8::N,bx,fx,i,bp,fp data bx,fx/2*0/ read *,b,N,f do i=1,3 if(b(i:i).eq.'x') bx = bx + 1 if(f(i:i).eq.'x') fx = fx + 1 end do if(bx.ne.fx) then print '(a)', "SUCCESS" return else if(bx.eq.3.or.bx.eq.0) then print '(a)', "FAILURE" return end if if(bx.eq.1) then bp = SCAN(b,'x') fp = SCAN(f,'x') else bp = SCAN(b,'o') fp = SCAN(f,'o') end if if(N.eq.0) then if(bp.ne.fp) then print '(a)', "SUCCESS" return else print '(a)', "FAILURE" return end if else if(N.eq.1) then if((bp.eq.1.and.fp.eq.3).or. & (bp.eq.3.and.fp.eq.1).or. & (bp.eq.2.and.fp.eq.2) ) then print '(a)', "SUCCESS" return else print '(a)', "FAILURE" return end if else print '(a)', "FAILURE" return end if end program main