Submission #796644

Source Code Expand

(define (parse-line s)
  (map x->integer
       (string-split s #\space)))

(define (solve lines)
  (define-values (n t) (apply values
			      (parse-line
			       (car lines))))
  (let* ((lines (cdr lines))
	 (ab-list (map parse-line lines))
	 (a-sum (apply + (map car ab-list))))
    (if (<= a-sum t)
	0
	(let* ((dif-list (map (lambda (z) (- (cadr z) (car z)))
			      ab-list))
	       (dif-sum (apply + dif-list)))
	  (if (> (+ a-sum dif-sum) t)
	      -1
	      (let loop ((a a-sum)
			 (ds (sort dif-list))
			 (i 0))
		(cond ((<= a t) i)
		      ;;((null? ds) -1)
		      (t (loop (+ a (car ds))
			       (cdr ds)
			       (+ i 1))))))))))
(print
 (solve
  (port->string-list
   (standard-input-port))))

Submission Info

Submission Time
Task C - 8月31日
User mnzk
Language Scheme (Gauche 0.9.1)
Score 100
Code Size 746 Byte
Status AC
Exec Time 1559 ms
Memory 35572 KiB

Judge Result

Set Name Sample Dataset1 Dataset2
Score / Max Score 0 / 0 30 / 30 70 / 70
Status
AC × 5
AC × 15
AC × 36
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt, sample-05.txt
Dataset1 sample-01, sample-02, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, 01-13.txt, 01-14.txt, 01-15.txt
Dataset2 sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt, sample-05.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, 01-13.txt, 01-14.txt, 01-15.txt, 02-01.txt, 02-02.txt, 02-03.txt, 02-04.txt, 02-05.txt, 02-06.txt, 02-07.txt, 02-08.txt, 02-09.txt, 02-10.txt, 02-11.txt, 02-12.txt, 02-13.txt, 02-14.txt, 02-15.txt, 02-16.txt
Case Name Status Exec Time Memory
01-01.txt AC 1559 ms 6620 KiB
01-02.txt AC 1328 ms 6628 KiB
01-03.txt AC 84 ms 6504 KiB
01-04.txt AC 73 ms 6756 KiB
01-05.txt AC 93 ms 8808 KiB
01-06.txt AC 816 ms 35464 KiB
01-07.txt AC 769 ms 29504 KiB
01-08.txt AC 674 ms 28432 KiB
01-09.txt AC 159 ms 10728 KiB
01-10.txt AC 312 ms 16364 KiB
01-11.txt AC 712 ms 34556 KiB
01-12.txt AC 706 ms 34656 KiB
01-13.txt AC 818 ms 35424 KiB
01-14.txt AC 789 ms 35428 KiB
01-15.txt AC 1036 ms 35072 KiB
02-01.txt AC 70 ms 6504 KiB
02-02.txt AC 70 ms 6800 KiB
02-03.txt AC 72 ms 6760 KiB
02-04.txt AC 79 ms 7656 KiB
02-05.txt AC 154 ms 10468 KiB
02-06.txt AC 973 ms 35556 KiB
02-07.txt AC 837 ms 35556 KiB
02-08.txt AC 836 ms 35172 KiB
02-09.txt AC 748 ms 28516 KiB
02-10.txt AC 823 ms 35424 KiB
02-11.txt AC 183 ms 10856 KiB
02-12.txt AC 736 ms 34700 KiB
02-13.txt AC 773 ms 34584 KiB
02-14.txt AC 813 ms 35424 KiB
02-15.txt AC 988 ms 35428 KiB
02-16.txt AC 868 ms 35572 KiB
sample-01.txt AC 72 ms 6632 KiB
sample-02.txt AC 68 ms 6244 KiB
sample-03.txt AC 66 ms 6248 KiB
sample-04.txt AC 88 ms 6548 KiB
sample-05.txt AC 71 ms 6940 KiB