AtCoder Beginner Contest 002

Submission #4991316

Source codeソースコード

module ABC002

  ! <module>s to import
  use, intrinsic :: iso_fortran_env

  ! require all variables to be explicitly declared
  implicit none

  ! accessibility of <subroutine>s and <function>s in this <module>
  public :: task_B

  ! constants for this <module>
  integer(kind=INT8), parameter, private :: len_string_max = 30_INT8

  ! variables for this <module>
  character(len=len_string_max, kind=1), private :: given_string
  integer(kind=INT8),                    private :: len_given_string

  ! contained <subroutine>s and <function>s are below
  contains

  subroutine task_B

    ! variables for this <subroutine>
    integer(kind=INT8) :: itr

    ! STEP.01
    ! read out the given string
    do itr = 1_INT8, len_string_max, 1_INT8
      given_string(itr:itr) = ' '
    end do

    read(unit=INPUT_UNIT, fmt='(A)') given_string

    ! STEP.02
    ! output the given string without the vowels
    do itr = 1_INT8, len_trim(given_string), 1_INT8
      if (&!
        given_string(itr:itr) .eq. 'a' .or. &!
        given_string(itr:itr) .eq. 'i' .or. &!
        given_string(itr:itr) .eq. 'u' .or. &!
        given_string(itr:itr) .eq. 'e' .or. &!
        given_string(itr:itr) .eq. 'o'      &!
      ) then
        continue
      else
        write(unit=OUTPUT_UNIT, fmt='(A1)', advance='no') given_string(itr:itr)
      end if
    end do

    write(unit=OUTPUT_UNIT, fmt='(A)', advance='yes')

    ! STEP.END
    return

  end subroutine task_B

end module ABC002

program main

  ! <module>s to import
  use, non_intrinsic :: ABC002

  ! require all variables to be explicitly declared
  implicit none

  call task_B

end program main

Submission

Task問題 B - 罠
User nameユーザ名 DSCF_1224
Created time投稿日時
Language言語 Fortran (gfortran v4.8.4)
Status状態 AC
Score得点 100
Source lengthソースコード長 1719 Byte
File nameファイル名
Exec time実行時間 3 ms
Memory usageメモリ使用量 384 KB

Test case

Set

Set name Score得点 / Max score Cases
all 100 / 100 00_sample_01.txt,00_sample_02.txt,00_sample_03.txt,00_sample_04.txt,test_aaaaaaaaaaaaaaaaaaaaaaaaaapaaa.txt,test_abcdefghijklmnopqrstuvwxyz.txt,test_aeuuoeuuooaoikuaouoo.txt,test_aieeuoaoaeioeierrtwmmdkjylcbbj.txt,test_aioeunu.txt,test_aqahahuqugironiyog.txt,test_ay.txt,test_c.txt,test_cizuci.txt,test_clrhrnbnxmhvvrykgpvsjpylvns.txt,test_clwxebedrzlfbey.txt,test_dfiousakzbw.txt,test_di.txt,test_eeeeeleeeeeeeeeeeeeeeeeeeeeeee.txt,test_eugfblf.txt,test_faumfxzsfpgz.txt,test_glpfsryzkcgbkmytzz.txt,test_hzkx.txt,test_iiiiiiiiiiiiiiiiiiiitiiiiiiiii.txt,test_iyenewigoronadomeni.txt,test_joda.txt,test_k.txt,test_kjjxmvpdpcbthjhqqqnsvmvxbtz.txt,test_klaimqrlgrxzgsqkenng.txt,test_mgjpfrkthffctppiueeeouiioeieoa.txt,test_mhfrnzpxkmxjzvmqhwxg.txt,test_mm.txt,test_mvgvrpyghdszgfvznv.txt,test_nu.txt,test_oaiiioieoeiieiuooiueaouuuiw.txt,test_oaqii.txt,test_oit.txt,test_omimujomevadimadom.txt,test_oooooooooolooooooooooooooooooo.txt,test_ooqo.txt,test_ouioiaeiuaoaeiieuuiooeeqo.txt,test_ow.txt,test_pifofawezojisasotuj.txt,test_pn.txt,test_qgqsghgjczftdmvdtrztjdwhcds.txt,test_rxifvbybdsqasoyjdskqwhlstx.txt,test_s.txt,test_taroakpyzmgkbhtklwfbk.txt,test_tkttwgnpjlrkcmwkkcfkjtyb.txt,test_uauoyouaaeoaoeooa.txt,test_uphtuhurtdkmcidxfjtgqtdujblvht.txt,test_uqzghmkf.txt,test_usetumukiwukugekidefupalumimec.txt,test_uueeuoeuviuiieuioeeauuuieeuiee.txt,test_uuueueouaouuiuniaoaaeuaoaa.txt,test_uuuuuuuujuuuuuuuuuuuuuuuuuuuuu.txt,test_vokicozoyatekebagajiceb.txt,test_xlsphqfmqrtrtvmpvbgnkr.txt,test_yepelilemapakonarugupabepisoha.txt,test_zkkyzwjgzmddvqtvvrcqhsrqlmqmkr.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_sample_01.txt AC 1 ms 256 KB
00_sample_02.txt AC 1 ms 256 KB
00_sample_03.txt AC 1 ms 256 KB
00_sample_04.txt AC 1 ms 256 KB
test_aaaaaaaaaaaaaaaaaaaaaaaaaapaaa.txt AC 1 ms 256 KB
test_abcdefghijklmnopqrstuvwxyz.txt AC 1 ms 256 KB
test_aeuuoeuuooaoikuaouoo.txt AC 1 ms 256 KB
test_aieeuoaoaeioeierrtwmmdkjylcbbj.txt AC 1 ms 256 KB
test_aioeunu.txt AC 1 ms 256 KB
test_aqahahuqugironiyog.txt AC 1 ms 256 KB
test_ay.txt AC 1 ms 256 KB
test_c.txt AC 1 ms 256 KB
test_cizuci.txt AC 1 ms 256 KB
test_clrhrnbnxmhvvrykgpvsjpylvns.txt AC 1 ms 256 KB
test_clwxebedrzlfbey.txt AC 1 ms 256 KB
test_dfiousakzbw.txt AC 1 ms 256 KB
test_di.txt AC 1 ms 256 KB
test_eeeeeleeeeeeeeeeeeeeeeeeeeeeee.txt AC 1 ms 256 KB
test_eugfblf.txt AC 1 ms 256 KB
test_faumfxzsfpgz.txt AC 1 ms 256 KB
test_glpfsryzkcgbkmytzz.txt AC 1 ms 256 KB
test_hzkx.txt AC 1 ms 256 KB
test_iiiiiiiiiiiiiiiiiiiitiiiiiiiii.txt AC 1 ms 256 KB
test_iyenewigoronadomeni.txt AC 1 ms 256 KB
test_joda.txt AC 1 ms 256 KB
test_k.txt AC 1 ms 256 KB
test_kjjxmvpdpcbthjhqqqnsvmvxbtz.txt AC 1 ms 256 KB
test_klaimqrlgrxzgsqkenng.txt AC 1 ms 256 KB
test_mgjpfrkthffctppiueeeouiioeieoa.txt AC 1 ms 256 KB
test_mhfrnzpxkmxjzvmqhwxg.txt AC 1 ms 256 KB
test_mm.txt AC 1 ms 256 KB
test_mvgvrpyghdszgfvznv.txt AC 2 ms 384 KB
test_nu.txt AC 1 ms 256 KB
test_oaiiioieoeiieiuooiueaouuuiw.txt AC 1 ms 256 KB
test_oaqii.txt AC 1 ms 256 KB
test_oit.txt AC 1 ms 256 KB
test_omimujomevadimadom.txt AC 1 ms 256 KB
test_oooooooooolooooooooooooooooooo.txt AC 1 ms 256 KB
test_ooqo.txt AC 1 ms 256 KB
test_ouioiaeiuaoaeiieuuiooeeqo.txt AC 1 ms 256 KB
test_ow.txt AC 1 ms 256 KB
test_pifofawezojisasotuj.txt AC 1 ms 256 KB
test_pn.txt AC 1 ms 256 KB
test_qgqsghgjczftdmvdtrztjdwhcds.txt AC 1 ms 256 KB
test_rxifvbybdsqasoyjdskqwhlstx.txt AC 1 ms 256 KB
test_s.txt AC 1 ms 256 KB
test_taroakpyzmgkbhtklwfbk.txt AC 1 ms 256 KB
test_tkttwgnpjlrkcmwkkcfkjtyb.txt AC 1 ms 256 KB
test_uauoyouaaeoaoeooa.txt AC 1 ms 256 KB
test_uphtuhurtdkmcidxfjtgqtdujblvht.txt AC 1 ms 256 KB
test_uqzghmkf.txt AC 1 ms 256 KB
test_usetumukiwukugekidefupalumimec.txt AC 1 ms 256 KB
test_uueeuoeuviuiieuioeeauuuieeuiee.txt AC 1 ms 256 KB
test_uuueueouaouuiuniaoaaeuaoaa.txt AC 3 ms 256 KB
test_uuuuuuuujuuuuuuuuuuuuuuuuuuuuu.txt AC 1 ms 256 KB
test_vokicozoyatekebagajiceb.txt AC 1 ms 256 KB
test_xlsphqfmqrtrtvmpvbgnkr.txt AC 1 ms 256 KB
test_yepelilemapakonarugupabepisoha.txt AC 1 ms 256 KB
test_zkkyzwjgzmddvqtvvrcqhsrqlmqmkr.txt AC 1 ms 256 KB