Submission #409105
Source Code Expand
(defpackage king-collection (:use COMMON-LISP) (:export king-collection4)) (in-package :king-collection) (declaim (inline from-string-to-number)) (defun from-string-to-number () (declare (optimize (speed 3) (safety 0) (debug 0)) (let ((ss (concatenate 'vector (read-line))) (oo '()) (ee '())) (loop for i from 0 to (- (array-dimension ss 0) 1) collect (if (not (eq #\ (aref ss i))) (setf oo (cons (aref ss i) oo)) (progn (setf ee (cons (concatenate 'string (reverse oo)) ee)) (setf oo nil)))) (setf ee (cons (concatenate 'string (reverse oo)) ee)) (setf oo nil) (setf ee (reverse ee)) (mapcar (lambda (x) (parse-integer x :junk-allowed t)) ee))) (declaim (inline king-collection4)) (defun king-collection4 () (declare (optimize (speed 3) (debug 0) (safety 0))) (let* ((r-c-k (from-string-to-number)) (r (nth 0 r-c-k)) (c (nth 1 r-c-k)) (k (nth 2 r-c-k)) (n (read)) (r-r (make-array '(100001))) (c-c (make-array '(100001))) (r-r-r (make-array '(100001))) (c-c-c (make-array '(100001))) (result 0) (vr (make-array 0 :fill-pointer 0 :adjustable t)) (vc (make-array 0 :fill-pointer 0 :adjustable t))) (loop for i from 0 to (- n 1) by 1 collect (let ((a (read)) (b (read))) (decf a) (decf b) (incf (svref r-r a)) (incf (svref c-c b)) (vector-push-extend a vr) (vector-push-extend b vc))) (loop for i from 0 to (- c 1) by 1 collect (incf (svref c-c-c (svref c-c i)))) (loop for i from 0 to (- r 1 ) by 1 collect (incf (svref r-r-r (svref r-r i)))) (loop for i from 0 to k by 1 collect (setf result (+ result (* (svref r-r-r i) (svref c-c-c (- k i)))))) (loop for i from 0 to (- (length vr) 1) by 1 collect (let* ((rr (svref r-r (aref vr i))) (cc (svref c-c (aref vc i))) (sum (+ rr cc))) (if (= sum k) (decf result) (if (= sum (+ k 1)) (incf result))))) (format t "~a~%" result))) (king-collection4)
Submission Info
Submission Time | |
---|---|
Task | C - 収集王 |
User | haruto0kitune |
Language | Common Lisp (SBCL 1.0.55.0) |
Score | 0 |
Code Size | 2084 Byte |
Status | RE |
Exec Time | 1277 ms |
Memory | 36820 KB |
Judge Result
Set Name | Sample | Subtask1 | Subtask2 | ||||||
---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 30 | 0 / 70 | ||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt |
Subtask1 | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.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, subtask1-14.txt, subtask1-15.txt |
Subtask2 | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.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, subtask1-14.txt, subtask1-15.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 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0-sample01.txt | RE | 1277 ms | 36792 KB |
subtask0-sample02.txt | RE | 360 ms | 36792 KB |
subtask0-sample03.txt | RE | 353 ms | 36692 KB |
subtask1-01.txt | RE | 360 ms | 36696 KB |
subtask1-02.txt | RE | 353 ms | 36820 KB |
subtask1-03.txt | RE | 358 ms | 36816 KB |
subtask1-04.txt | RE | 355 ms | 36816 KB |
subtask1-05.txt | RE | 358 ms | 36696 KB |
subtask1-06.txt | RE | 361 ms | 36720 KB |
subtask1-07.txt | RE | 530 ms | 36656 KB |
subtask1-08.txt | RE | 829 ms | 36696 KB |
subtask1-09.txt | RE | 817 ms | 36696 KB |
subtask1-10.txt | RE | 799 ms | 36696 KB |
subtask1-11.txt | RE | 836 ms | 36792 KB |
subtask1-12.txt | RE | 814 ms | 36820 KB |
subtask1-13.txt | RE | 804 ms | 36688 KB |
subtask1-14.txt | RE | 783 ms | 36696 KB |
subtask1-15.txt | RE | 835 ms | 36792 KB |
subtask2-01.txt | RE | 778 ms | 36792 KB |
subtask2-02.txt | RE | 840 ms | 36748 KB |
subtask2-03.txt | RE | 764 ms | 36696 KB |
subtask2-04.txt | RE | 820 ms | 36792 KB |
subtask2-05.txt | RE | 815 ms | 36800 KB |
subtask2-06.txt | RE | 813 ms | 36692 KB |
subtask2-07.txt | RE | 824 ms | 36820 KB |
subtask2-08.txt | RE | 741 ms | 36788 KB |
subtask2-09.txt | RE | 831 ms | 36672 KB |
subtask2-10.txt | RE | 828 ms | 36696 KB |
subtask2-11.txt | RE | 813 ms | 36696 KB |
subtask2-12.txt | RE | 804 ms | 36716 KB |
subtask2-13.txt | RE | 823 ms | 36692 KB |
subtask2-14.txt | RE | 834 ms | 36692 KB |
subtask2-15.txt | RE | 767 ms | 36748 KB |