結果

問題 No.2910 単体ホモロジー入門
ユーザー osada-yumosada-yum
提出日時 2024-11-04 19:14:20
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 1,136 bytes
コンパイル時間 274 ms
コンパイル使用メモリ 33,536 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2024-11-04 19:14:23
合計ジャッジ時間 1,838 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

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

ソースコード

diff # 

!> This file was processed by `fypp`.
!> Today's fortune: "Happy MLE", really OK?
!> ランダムウォーク猿「'Suffix Array' で はっぴー.」
!> ギャンブラー猿「AtCoder はゲームだ.」
program f902910
  use, intrinsic :: iso_fortran_env
  !> auto use module
  implicit none
  integer(int32) :: n, m
  logical, allocatable :: g(:, :)
  integer(int32) :: i
  read(input_unit, *) n, m
  allocate(g(0:n-1, 0:n-1), source = .false.)
  do i = 1, m
     block
       integer(int32) :: a, b
       read(input_unit, *) a, b
       g(a, b) = .true.
       g(b, a) = .true.
     end block
  end do
  block
    integer(int32), parameter :: nv = 3
    integer(int32) :: vs(nv)
    integer(int32) :: j
    read(input_unit, *) vs(:)
    do i = 1, nv
       if (count(vs(:) == vs(i)) > 1) then
          write(output_unit, '(a)') "Yes"
          stop
       end if
    end do
    do i = 1, nv
       do j = i + 1, nv
          if (.not. g(vs(i), vs(j))) then
             write(output_unit, '(a)') "Yes"
             stop
          end if
       end do
    end do
    write(output_unit, '(a)') "No"
  end block
end program f902910
0