結果
問題 | No.9006 マルチバイト文字テスト(テスト用) |
ユーザー | jj |
提出日時 | 2017-01-31 23:18:40 |
言語 | Fortran (gFortran 13.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 529 bytes |
コンパイル時間 | 1,497 ms |
コンパイル使用メモリ | 26,872 KB |
実行使用メモリ | 4,380 KB |
最終ジャッジ日時 | 2023-08-25 16:44:01 |
合計ジャッジ時間 | 2,043 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
4,380 KB |
testcase_01 | AC | 2 ms
4,380 KB |
testcase_02 | AC | 1 ms
4,380 KB |
ソースコード
program main implicit none character*300::S character*300::SR integer::i,len character::c S="" SR="" read *, S len = LEN_TRIM(S) i = 1 do if(i.gt.len) exit c = S(len-i+1:len-i+i) if(is_ascii(c)) then SR(i:i) = c i = i + 1 else SR(i:i+2) = S(len-i-1:len-i+1) i = i + 3 end if end do print '(a)', TRIM(SR) return contains logical function is_ascii(c) result(l) character::c l = IACHAR(c).le.127 end function is_ascii end program main