結果

問題 No.2910 単体ホモロジー入門
ユーザー osada-yumosada-yum
提出日時 2024-11-04 19:14:20
言語 Fortran
(gFortran 14.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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 25 WA * 22
権限があれば一括ダウンロードができます

ソースコード

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