Submission #4581139


Source Code Expand

program ABC001_B

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

  ! require all variables to be explicitly declared
  implicit none

  ! variables for this <program>
  character(len=30, kind=1) :: buf_data
  integer(kind=INT8)        :: len_data

  ! support variables for this <program>
  integer( kind=INT16 ) :: itr

  ! STEP.01
  ! read the target data
  read *, buf_data

  ! STEP.02
  ! get the length of the data string
  len_data = len_trim (buf_data)

  ! output the bigger one
  do itr = 1, len_data, 1

    if      ( iachar ( buf_data(itr:itr) ) .eq. iachar ('a') ) then; continue
    else if ( iachar ( buf_data(itr:itr) ) .eq. iachar ('i') ) then; continue
    else if ( iachar ( buf_data(itr:itr) ) .eq. iachar ('u') ) then; continue
    else if ( iachar ( buf_data(itr:itr) ) .eq. iachar ('e') ) then; continue
    else if ( iachar ( buf_data(itr:itr) ) .eq. iachar ('o') ) then; continue
    else
      write(unit=OUTPUT_UNIT, fmt='(A1)', advance='no') buf_data(itr:itr)
    end if

  end do

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

end program ABC001_B

Submission Info

Submission Time
Task B - 罠
User DSCF_1224
Language Fortran (gfortran v4.8.4)
Score 100
Code Size 1139 Byte
Status AC
Exec Time 1 ms
Memory 256 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 59
Set Name Test Cases
all 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
Case Name Status Exec Time Memory
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 1 ms 256 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 1 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