結果
問題 | No.256 桁の数字を入れ替え (2) |
ユーザー | jj |
提出日時 | 2016-07-30 14:13:48 |
言語 | Fortran (gFortran 13.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 434 bytes |
コンパイル時間 | 277 ms |
コンパイル使用メモリ | 31,224 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-04-24 13:08:13 |
合計ジャッジ時間 | 677 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
5,248 KB |
testcase_01 | AC | 1 ms
5,376 KB |
testcase_02 | AC | 2 ms
5,376 KB |
testcase_03 | AC | 2 ms
5,376 KB |
ソースコード
character(len=100000)::str integer,parameter::zero=ICHAR('0'),nine=ICHAR('9') integer::digits(zero:nine),i,total=1 data digits/10*0/ read *, str do i=1,LEN_TRIM(str) digits(ICHAR(str(i:i))) = digits(ICHAR(str(i:i))) + 1 end do do i=nine, zero, -1 if(digits(i).eq.0) cycle str(total:total+digits(i)-1)=REPEAT(CHAR(i),digits(i)) total = total + digits(i) end do print '(a)', TRIM(str) end program