Submission #4017154

---

Source Code Expand

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defparameter OPT
    #+swank '(optimize (speed 3) (safety 2))
    #-swank '(optimize (speed 3) (safety 0) (debug 0)))
  #+swank (progn (ql:quickload '(:cl-debug-print :fiveam))
                 (shadow :run)
                 (use-package :fiveam)))
#+swank (cl-syntax:use-syntax cl-debug-print:debug-print-syntax)

;; BEGIN_INSERTED_CONTENTS
(defmacro split-ints-and-bind (vars string &body body)
  (let ((pos1 (gensym "POS"))
	(pos2 (gensym "POS"))
	(str (gensym "STR")))
    (labels ((expand (vars &optional (init-pos1 t))
	       (if (null vars)
		   body
		   `((let* ((,pos1 ,(if init-pos1 0 `(1+ ,pos2)))
			    (,pos2 (position #\space ,str :start ,pos1 :test #'char=))
			    (,(car vars) (parse-integer ,str :start ,pos1 :end ,pos2)))
		       ,@(expand (cdr vars) nil))))))
      `(let ((,str ,string))
         (declare (string ,str))
	 ,@(expand vars)))))

(defmacro define-int-types (&rest bits)
  `(progn
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "UINT~A" b)) () '(unsigned-byte ,b))) bits)
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "INT~A" b)) () '(signed-byte ,b))) bits)))
(define-int-types 2 4 7 8 15 16 31 32 62 63 64)

(defmacro println (obj &optional (stream '*standard-output*))
  `(let ((*read-default-float-format* 'double-float))
     (prog1 (princ ,obj ,stream) (terpri ,stream))))

;; Hauptteil

(defun main ()
  (declare #.OPT)
  (let* ((n (read))
         (m (read))
         (edges (make-array m :element-type 'list)) ; (from to -cost)
         (dp (make-array n :element-type 'fixnum :initial-element most-positive-fixnum)))
    (setf (aref dp 0) 0)
    (dotimes (i m)
      (split-ints-and-bind (a b c) (read-line)
        (declare (uint32 a b) (fixnum c))
        (setf (aref edges i) (list (- a 1) (- b 1) (- c)))))
    (labels ((forward ()
               (loop for (src dest neg-cost) of-type (uint32 uint32 fixnum) across edges
                     when (and (/= most-positive-fixnum (aref dp src))
                               (< (+ (aref dp src) neg-cost)
                                  (aref dp dest)))
                     do (setf (aref dp dest) (+ (aref dp src) neg-cost)))))
      (if (= (loop repeat (- n 1) do (forward)
                   finally (return (aref dp (- n 1))))
             (loop repeat n do (forward)
                   finally (return (aref dp (- n 1)))))
          (println (- (aref dp (- n 1))))
          (println "inf")))))

#-swank(main)

Submission Info

Judge Result