Submission #1452887

Source Code Expand

(define (uniqsize ls h)
  (cond ( (eq? ls '()) 1 )
        ( (eq? (car ls) h) (uniqsize (cdr ls) h))
        (else (+ 1 (uniqsize (cdr ls) (car ls))))
))

(let ((x (sort (list (read) (read) (read)) <))) (write (uniqsize (cdr x) (car x))))

(display "\n")

Submission Info

Submission Time
Task A - AtCoDeer and Paint Cans
User m_buyoh
Language Scheme (Gauche 0.9.3.3)
Score 100
Code Size 262 Byte
Status AC
Exec Time 45 ms
Memory 6876 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 6
Set Name Test Cases
Sample 0_000.txt, 0_001.txt
All 0_000.txt, 0_001.txt, 1_002.txt, 1_003.txt, 1_004.txt, 1_005.txt
Case Name Status Exec Time Memory
0_000.txt AC 45 ms 6876 KB
0_001.txt AC 13 ms 3964 KB
1_002.txt AC 13 ms 3964 KB
1_003.txt AC 13 ms 3964 KB
1_004.txt AC 13 ms 3964 KB
1_005.txt AC 13 ms 3964 KB