Submission #1572269

Source Code Expand

(defun br()
        (princ '#\newline))

(defun solve()
        (let ((a (read)) (b (read)))
                (princ (1+ (- b a)))
                (br)))

(solve)

Submission Info

Submission Time
Task A - アルバム
User lsp
Language Common Lisp (SBCL 1.1.14)
Score 100
Code Size 173 Byte
Status AC
Exec Time 92 ms
Memory 9188 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 17
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All sample_01.txt, sample_02.txt, case_01.txt, case_02.txt, case_03.txt, case_04.txt, case_05.txt, case_06.txt, case_07.txt, case_08.txt, case_09.txt, case_10.txt, case_11.txt, case_12.txt, case_13.txt, case_14.txt, case_15.txt
Case Name Status Exec Time Memory
case_01.txt AC 92 ms 9188 KB
case_02.txt AC 9 ms 3304 KB
case_03.txt AC 9 ms 3300 KB
case_04.txt AC 9 ms 3304 KB
case_05.txt AC 8 ms 3300 KB
case_06.txt AC 9 ms 3300 KB
case_07.txt AC 8 ms 3304 KB
case_08.txt AC 9 ms 3296 KB
case_09.txt AC 9 ms 3296 KB
case_10.txt AC 9 ms 3300 KB
case_11.txt AC 9 ms 3296 KB
case_12.txt AC 8 ms 3300 KB
case_13.txt AC 9 ms 3300 KB
case_14.txt AC 9 ms 3296 KB
case_15.txt AC 9 ms 3300 KB
sample_01.txt AC 8 ms 3300 KB
sample_02.txt AC 9 ms 3296 KB