結果
問題 | No.360 増加門松列 |
ユーザー | Leonardone |
提出日時 | 2016-04-17 23:12:27 |
言語 | Fortran (gFortran 13.2.0) |
結果 |
AC
|
実行時間 | 118 ms / 2,000 ms |
コード長 | 1,405 bytes |
コンパイル時間 | 158 ms |
コンパイル使用メモリ | 27,036 KB |
実行使用メモリ | 4,384 KB |
最終ジャッジ日時 | 2023-08-25 18:35:30 |
合計ジャッジ時間 | 3,296 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 117 ms
4,376 KB |
testcase_01 | AC | 118 ms
4,380 KB |
testcase_02 | AC | 36 ms
4,380 KB |
testcase_03 | AC | 60 ms
4,376 KB |
testcase_04 | AC | 117 ms
4,380 KB |
testcase_05 | AC | 116 ms
4,376 KB |
testcase_06 | AC | 116 ms
4,380 KB |
testcase_07 | AC | 117 ms
4,380 KB |
testcase_08 | AC | 116 ms
4,380 KB |
testcase_09 | AC | 117 ms
4,376 KB |
testcase_10 | AC | 3 ms
4,376 KB |
testcase_11 | AC | 5 ms
4,380 KB |
testcase_12 | AC | 115 ms
4,376 KB |
testcase_13 | AC | 8 ms
4,384 KB |
testcase_14 | AC | 9 ms
4,380 KB |
testcase_15 | AC | 116 ms
4,380 KB |
testcase_16 | AC | 64 ms
4,376 KB |
testcase_17 | AC | 112 ms
4,376 KB |
testcase_18 | AC | 115 ms
4,376 KB |
testcase_19 | AC | 116 ms
4,380 KB |
testcase_20 | AC | 116 ms
4,380 KB |
testcase_21 | AC | 117 ms
4,376 KB |
ソースコード
! Try yukicoder ! author: Leonardone @ NEETSDKASU PROGRAM yukicoder INTEGER :: a(7), i, j, k, d(7), f(7), r, b(7), x(7) READ (*,*) a DO j = 0, 6 x(j + 1) = 10 ** j END DO r = 1 DO i = 123456, 6543210 IF (r > 0) THEN DO j = 1, 7 f(j) = 0 END DO r = 0 END IF DO j = 1, 7 k = MOD(i / x(j), 10) + 1 IF (k > 7) exit IF (f(k) > 0) exit f(k) = 1 b(j) = a(k) r = r + 1 END DO IF (r < 7) cycle IF (b(1) >= b(3)) cycle IF (b(2) >= b(4)) cycle IF (b(3) >= b(5)) cycle IF (b(4) >= b(6)) cycle IF (b(5) >= b(7)) cycle IF (b(1) <= b(2) .and. b(2) <= b(3)) cycle IF (b(2) <= b(3) .and. b(3) <= b(4)) cycle IF (b(3) <= b(4) .and. b(4) <= b(5)) cycle IF (b(4) <= b(5) .and. b(5) <= b(6)) cycle IF (b(5) <= b(6) .and. b(6) <= b(7)) cycle PRINT '(A)', 'YES' STOP END DO PRINT '(A)', 'NO' END PROGRAM yukicoder