AtCoder Beginner Contest 036

Submission #701486

Source codeソースコード

 
(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

Task問題 C - 座圧
User nameユーザ名 pineappler
Created time投稿日時
Language言語 Scheme (Gauche 0.9.3.3)
Status状態 TLE
Score得点 30
Source lengthソースコード長 1552 Byte
File nameファイル名
Exec time実行時間 ms
Memory usageメモリ使用量 -

Test case

Set

Set name Score得点 / Max score Cases
Testset1 30 / 30 000.txt,001.txt,002.txt,003.txt,004.txt,005.txt,006.txt,007.txt,008.txt,009.txt
Testset2 0 / 30 000.txt,010.txt,011.txt,012.txt,013.txt,014.txt,015.txt,016.txt,017.txt,018.txt,019.txt
All 0 / 40 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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
011.txt AC 969 ms 20220 KB
012.txt TLE
013.txt TLE
014.txt TLE
015.txt TLE
016.txt TLE
017.txt TLE
018.txt TLE
019.txt TLE
020.txt TLE
021.txt TLE
022.txt TLE
023.txt TLE
024.txt TLE
025.txt TLE
026.txt TLE
027.txt TLE
028.txt TLE
029.txt TLE