Submission #4581139


Source Code Expand

Copy
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
Exec Time 1 ms
Memory 256 KB

Judge Result

Set Name Score / Max Score Test 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
Case Name Status Exec Time Memory
00_sample_01.txt 1 ms 256 KB
00_sample_02.txt 1 ms 256 KB
00_sample_03.txt 1 ms 256 KB
00_sample_04.txt 1 ms 256 KB
test_aaaaaaaaaaaaaaaaaaaaaaaaaapaaa.txt 1 ms 256 KB
test_abcdefghijklmnopqrstuvwxyz.txt 1 ms 256 KB
test_aeuuoeuuooaoikuaouoo.txt 1 ms 256 KB
test_aieeuoaoaeioeierrtwmmdkjylcbbj.txt 1 ms 256 KB
test_aioeunu.txt 1 ms 256 KB
test_aqahahuqugironiyog.txt 1 ms 256 KB
test_ay.txt 1 ms 256 KB
test_c.txt 1 ms 256 KB
test_cizuci.txt 1 ms 256 KB
test_clrhrnbnxmhvvrykgpvsjpylvns.txt 1 ms 256 KB
test_clwxebedrzlfbey.txt 1 ms 256 KB
test_dfiousakzbw.txt 1 ms 256 KB
test_di.txt 1 ms 256 KB
test_eeeeeleeeeeeeeeeeeeeeeeeeeeeee.txt 1 ms 256 KB
test_eugfblf.txt 1 ms 256 KB
test_faumfxzsfpgz.txt 1 ms 256 KB
test_glpfsryzkcgbkmytzz.txt 1 ms 256 KB
test_hzkx.txt 1 ms 256 KB
test_iiiiiiiiiiiiiiiiiiiitiiiiiiiii.txt 1 ms 256 KB
test_iyenewigoronadomeni.txt 1 ms 256 KB
test_joda.txt 1 ms 256 KB
test_k.txt 1 ms 256 KB
test_kjjxmvpdpcbthjhqqqnsvmvxbtz.txt 1 ms 256 KB
test_klaimqrlgrxzgsqkenng.txt 1 ms 256 KB
test_mgjpfrkthffctppiueeeouiioeieoa.txt 1 ms 256 KB
test_mhfrnzpxkmxjzvmqhwxg.txt 1 ms 256 KB
test_mm.txt 1 ms 256 KB
test_mvgvrpyghdszgfvznv.txt 1 ms 256 KB
test_nu.txt 1 ms 256 KB
test_oaiiioieoeiieiuooiueaouuuiw.txt 1 ms 256 KB
test_oaqii.txt 1 ms 256 KB
test_oit.txt 1 ms 256 KB
test_omimujomevadimadom.txt 1 ms 256 KB
test_oooooooooolooooooooooooooooooo.txt 1 ms 256 KB
test_ooqo.txt 1 ms 256 KB
test_ouioiaeiuaoaeiieuuiooeeqo.txt 1 ms 256 KB
test_ow.txt 1 ms 256 KB
test_pifofawezojisasotuj.txt 1 ms 256 KB
test_pn.txt 1 ms 256 KB
test_qgqsghgjczftdmvdtrztjdwhcds.txt 1 ms 256 KB
test_rxifvbybdsqasoyjdskqwhlstx.txt 1 ms 256 KB
test_s.txt 1 ms 256 KB
test_taroakpyzmgkbhtklwfbk.txt 1 ms 256 KB
test_tkttwgnpjlrkcmwkkcfkjtyb.txt 1 ms 256 KB
test_uauoyouaaeoaoeooa.txt 1 ms 256 KB
test_uphtuhurtdkmcidxfjtgqtdujblvht.txt 1 ms 256 KB
test_uqzghmkf.txt 1 ms 256 KB
test_usetumukiwukugekidefupalumimec.txt 1 ms 256 KB
test_uueeuoeuviuiieuioeeauuuieeuiee.txt 1 ms 256 KB
test_uuueueouaouuiuniaoaaeuaoaa.txt 1 ms 256 KB
test_uuuuuuuujuuuuuuuuuuuuuuuuuuuuu.txt 1 ms 256 KB
test_vokicozoyatekebagajiceb.txt 1 ms 256 KB
test_xlsphqfmqrtrtvmpvbgnkr.txt 1 ms 256 KB
test_yepelilemapakonarugupabepisoha.txt 1 ms 256 KB
test_zkkyzwjgzmddvqtvvrcqhsrqlmqmkr.txt 1 ms 256 KB