Submission #701486
Source Code Expand
(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence ))))) (define nil '()) (define (toNil . x) nil) (define (toUndef . x) (undefined)) (define (map p sequence) (accumulate (lambda (x y) (cons (p x) y)) nil sequence )) (define (read-lines n) (if (= n 1) (list (read)) (append (list (read)) (read-lines (- n 1))))) (define (reverse l) (if (= (length l) 1) (list (car l)) (append (reverse (cdr l)) (list (car l))))) (define (print-list ls) (map (lambda (x) (display x) (newline)) (reverse ls))) (define (find-list n ls) (define (find-acc lis count) (if (= n (car lis)) count (find-acc (cdr lis) (+ count 1)))) (find-acc ls 0)) (define (get-answer a) (define b (sort (delete-duplicates a))) (accumulate (lambda (x y) (append (list (find-list x b)) y)) nil a)) (define (add-hash-table ht ls) (define (add-hash-table-acc ls count) (if (null? ls) (undefined) (toUndef (toNil (hash-table-put! ht (car ls) count)) (add-hash-table-acc (cdr ls) (+ count 1))))) (add-hash-table-acc ls 0)) (define (print-hash-table ht ls) (if (null? ls) (undefined) (toUndef (toNil (display (hash-table-get ht (car ls)))) (toNil (newline)) (print-hash-table ht (cdr ls))))) (define n (read)) (define a (read-lines n)) (define b (sort (delete-duplicates a))) (define ht (make-hash-table 'eqv?)) (add-hash-table ht b) (print-hash-table ht a)
Submission Info
Submission Time | |
---|---|
Task | C - 座圧 |
User | pineappler918 |
Language | Scheme (Gauche 0.9.3.3) |
Score | 30 |
Code Size | 1552 Byte |
Status | TLE |
Exec Time | 2107 ms |
Memory | 20220 KB |
Judge Result
Set Name | Testset1 | Testset2 | All | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 30 / 30 | 0 / 30 | 0 / 40 | ||||||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
Testset1 | 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt |
Testset2 | 000.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt |
All | 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt, 022.txt, 023.txt, 024.txt, 025.txt, 026.txt, 027.txt, 028.txt, 029.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
000.txt | AC | 31 ms | 4092 KB |
001.txt | AC | 42 ms | 4220 KB |
002.txt | AC | 48 ms | 4220 KB |
003.txt | AC | 46 ms | 4220 KB |
004.txt | AC | 46 ms | 4220 KB |
005.txt | AC | 43 ms | 4220 KB |
006.txt | AC | 36 ms | 4220 KB |
007.txt | AC | 48 ms | 4220 KB |
008.txt | AC | 35 ms | 4220 KB |
009.txt | AC | 46 ms | 4220 KB |
010.txt | TLE | 2107 ms | 17660 KB |
011.txt | AC | 969 ms | 20220 KB |
012.txt | TLE | 2107 ms | 17660 KB |
013.txt | TLE | 2107 ms | 17660 KB |
014.txt | TLE | 2107 ms | 17660 KB |
015.txt | TLE | 2107 ms | 17660 KB |
016.txt | TLE | 2107 ms | 17660 KB |
017.txt | TLE | 2107 ms | 17660 KB |
018.txt | TLE | 2107 ms | 17660 KB |
019.txt | TLE | 2107 ms | 17660 KB |
020.txt | TLE | 2107 ms | 17660 KB |
021.txt | TLE | 2107 ms | 18172 KB |
022.txt | TLE | 2107 ms | 17532 KB |
023.txt | TLE | 2107 ms | 17788 KB |
024.txt | TLE | 2107 ms | 17788 KB |
025.txt | TLE | 2107 ms | 17660 KB |
026.txt | TLE | 2107 ms | 17532 KB |
027.txt | TLE | 2107 ms | 17532 KB |
028.txt | TLE | 2107 ms | 17660 KB |
029.txt | TLE | 2107 ms | 18556 KB |