Submission #1610282
Source Code Expand
(define A (read)) (define B (read)) ; 0からNまでで4と9を含まない数の個数 ; ls:Nをリストにしたものの逆 n:下から数えた桁数 (define (wo49 ls n ans) (if (null? ls) ans (wo49 (cdr ls) (+ n 1) (+ (if (or (= (car ls) 4) (= (car ls) 9)) 0 ans) (* (expt 8 n) (wo49base (car ls))))))) ; 1桁の場合の、0からn-1までで4と9を含まない数の個数 (define (wo49base n) (if (< n 5) n (- n 1))) ; 数値を桁ごとのリストに変換 (define (number->numberlist n) (map (lambda (c) (- (char->integer c) (char->integer #\0))) (string->list (number->string n)))) ; 最終的な答えを計算 (define (ans A B) (- (- (+ B 1) (wo49 (reverse (number->numberlist B)) 0 1)) (- A (wo49 (reverse (number->numberlist (- A 1))) 0 1)))) (print (ans A B))
Submission Info
Submission Time | |
---|---|
Task | D - 禁止された数字 |
User | kanji1896 |
Language | Scheme (Gauche 0.9.3.3) |
Score | 100 |
Code Size | 849 Byte |
Status | AC |
Exec Time | 49 ms |
Memory | 7388 KB |
Judge Result
Set Name | Sample | Subtask1 | Subtask2 | ||||||
---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 30 / 30 | 70 / 70 | ||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt |
Subtask1 | subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt |
Subtask2 | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask2_01.txt, subtask2_02.txt, subtask2_03.txt, subtask2_04.txt, subtask2_05.txt, subtask2_06.txt, subtask2_07.txt, subtask2_08.txt, subtask2_09.txt, subtask2_10.txt, subtask2_11.txt, subtask2_12.txt, subtask2_13.txt, subtask2_14.txt, subtask2_15.txt, subtask2_16.txt, subtask2_17.txt, subtask2_18.txt, subtask2_19.txt, subtask2_20.txt, subtask2_21.txt, subtask2_22.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0_sample01.txt | AC | 49 ms | 7388 KB |
subtask0_sample02.txt | AC | 16 ms | 4220 KB |
subtask0_sample03.txt | AC | 16 ms | 4220 KB |
subtask0_sample04.txt | AC | 16 ms | 4220 KB |
subtask1_01.txt | AC | 16 ms | 4220 KB |
subtask1_02.txt | AC | 16 ms | 4220 KB |
subtask1_03.txt | AC | 16 ms | 4220 KB |
subtask1_04.txt | AC | 16 ms | 4220 KB |
subtask1_05.txt | AC | 16 ms | 4220 KB |
subtask1_06.txt | AC | 16 ms | 4220 KB |
subtask1_07.txt | AC | 16 ms | 4220 KB |
subtask1_08.txt | AC | 16 ms | 4220 KB |
subtask1_09.txt | AC | 16 ms | 4220 KB |
subtask1_10.txt | AC | 16 ms | 4220 KB |
subtask1_11.txt | AC | 16 ms | 4220 KB |
subtask1_12.txt | AC | 16 ms | 4220 KB |
subtask1_13.txt | AC | 16 ms | 4220 KB |
subtask2_01.txt | AC | 16 ms | 4220 KB |
subtask2_02.txt | AC | 16 ms | 4220 KB |
subtask2_03.txt | AC | 16 ms | 4220 KB |
subtask2_04.txt | AC | 16 ms | 4220 KB |
subtask2_05.txt | AC | 16 ms | 4220 KB |
subtask2_06.txt | AC | 16 ms | 4220 KB |
subtask2_07.txt | AC | 16 ms | 4220 KB |
subtask2_08.txt | AC | 16 ms | 4220 KB |
subtask2_09.txt | AC | 16 ms | 4220 KB |
subtask2_10.txt | AC | 16 ms | 4220 KB |
subtask2_11.txt | AC | 16 ms | 4220 KB |
subtask2_12.txt | AC | 16 ms | 4220 KB |
subtask2_13.txt | AC | 16 ms | 4220 KB |
subtask2_14.txt | AC | 16 ms | 4220 KB |
subtask2_15.txt | AC | 16 ms | 4220 KB |
subtask2_16.txt | AC | 16 ms | 4220 KB |
subtask2_17.txt | AC | 16 ms | 4220 KB |
subtask2_18.txt | AC | 16 ms | 4220 KB |
subtask2_19.txt | AC | 16 ms | 4220 KB |
subtask2_20.txt | AC | 16 ms | 4220 KB |
subtask2_21.txt | AC | 16 ms | 4220 KB |
subtask2_22.txt | AC | 16 ms | 4220 KB |