結果

問題 No.90 品物の並び替え
コンテスト
ユーザー mikan-water
提出日時 2024-01-22 11:55:21
言語 Common Lisp
(sbcl 2.5.0)
結果
WA  
実行時間 -
コード長 2,839 bytes
コンパイル時間 113 ms
コンパイル使用メモリ 41,888 KB
実行使用メモリ 32,404 KB
最終ジャッジ日時 2024-09-28 06:22:32
合計ジャッジ時間 911 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 5 WA * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 28 SEP 2024 06:22:31 AM):

; file: /home/judge/data/code/Main.lisp
; in: DEFUN SEARCH-POS
;     (SET-ITEMS INSERT-INDEX VAL L)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INSERT-INDEX

;     (SETF INSERT-INDEX I)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INSERT-INDEX

;     (SETF INSERT-INDEX '0)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INSERT-INDEX

; in: DEFUN INPUT-TO-LIST
;     (PUSH (STACK-TO-INT NSTACK) INT-LIST)
; ==>
;   (SETQ INT-LIST (CONS #:ITEM INT-LIST))
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INT-LIST
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INT-LIST

;     (SETF INT-LIST 'NIL)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::INT-LIST

; 
; caught WARNING:
;   1 more use of undefined variable INT-LIST


; file: /home/judge/data/code/Main.lisp
; in: DEFUN INPUT-SCORES
;     (LOOP FOR ITEM IN L
;           DO (PUSH (LIST (LIST (FIRST ITEM) (SECOND ITEM)) (THIRD ITEM))
;                    *SCORES*))
; --> LET SB-KERNEL:THE* 
; ==>
;   L
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::L

;     (PUSH (INPUT-TO-LIST (READ-LINE)) L)
; ==>
;   (SETQ L (CONS #:ITEM L))
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::L

;     (SETF L 'NIL)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::L

; in: DEFUN INPUT-TO-LIST
;     (SETF NSTACK NIL)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::NSTACK

;     (STACK-TO-INT NSTACK)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::NSTACK

;     (SETF NSTACK 'NIL)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::NSTACK

; 
; caught WARNING:
;   3 more uses of undefined variable NSTACK


; file: /home/judge/data/code/Main.lisp
; in: DEFUN GET-SCORE
;     (DEFUN GET-SCORE (A B)
;       (SETF RET 0)
;       (LOOP FOR ITEM IN *SCORES*
;             DO (IF (EQUAL (

ソースコード

diff # 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Implement input system
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; variables
(defparameter tmp-score 0)
(defparameter *now-score* 0)
(defparameter *items* '(0))
(defparameter *n-m* '(4 9))
(defparameter *scores* '(((0 1) 1)
			 ((0 2) 2)
			 ((0 3) 3)
			 ((1 2) 4)
			 ((1 3) 5)
			 ((2 3) 6)
			 ((3 2) 100)
			 ((2 1) 100)
			 ((1 0) 100))
			 )

; functions
(defun stack-to-int (nstack)
  (parse-integer (coerce (reverse nstack) 'string))
  )

(defun input-to-list (str)
  (setf nstack '())
  (setf int-list '())
  ; each character
  (loop for c across str
	do
	(cond
	  ; space
	  ((char= c #\ )
	   (push (stack-to-int nstack) int-list)
	   (setf nstack nil))
	  (t
	    (push c nstack)))
	finally (push (stack-to-int nstack) int-list)
	)
  (reverse int-list)
  )

(defun input-scores ()
  (setf l '())
  (loop repeat (cadr *n-m*)
	do
	(push (input-to-list (read-line)) l)
	)
  (setf *scores* '())
  (loop for item in l
	do
	(push (list (list (first item) (second item))
		    (third item)) *scores*))
  )

(defun input ()
  (setf *n-m* (input-to-list (read-line)))
  (input-scores)
  )

; (((item1 item2) score) ((item1 item2) score) ...)
; search (a b) and return score
(defun get-score (a b)
  (setf ret 0)
  (loop for item in *scores*
	do
	(if (equal (list a b) (car item))
	  (setf ret (cadr item))
	 )
	)
  ret
  )

; val=3 index=1 pre-l=(0 2 1)
; calc the score of (0 3 2 1)
(defun check-score (val index pre-l)
  (setf x (make-array (length pre-l)
		      :fill-pointer 0))
  (setf ret 0)
  ; Calc the score at this index
  (loop for item in pre-l
	for i from 0 to (1- (length pre-l))
	do
	(cond
	  ((< i index)
	   (vector-push (get-score item val) x)
	   )
	  (t 
	    (vector-push (get-score val item) x)
	    )
	  )
	)
  (loop for i across x
	summing i into total
	finally (setf ret total))
  ret
  )

; (set-items 0 2 '(0 1))
; $ (2 0 1)
; (set-items 1 2 '(0 1))
; $ (0 2 1)
(defun set-items (index val l)
  (cond
    ((= index 0)
     (setf l (concatenate 'list (list val) l)))
    (t
      (push val (cdr (nthcdr (1- index) l))))
    )
  l
  )

; return the permutated array
; and the highest score on the items
(defun search-pos (val l pre-score)
  (setf tmp-score '0)
  (setf insert-index '0)
  ; compare val to each element in l
  (loop for i from 0 to val
	do
	(cond ((< tmp-score (check-score val i l))
	       (setf tmp-score (check-score val i l))
	       (setf insert-index i)
	       )
	      )
	)

  ; update list
  (setf *items* (set-items insert-index val l))
  (setf *now-score* (+ tmp-score pre-score))
  )

; Calculate the highest score among given items
(defun calc-score (n)
  (loop for i from 1 to (1- n)
	do
	(search-pos i *items* *now-score*)
	)
  )

(defun n90 ()
  (input)
  (calc-score (car *n-m*))
  (princ *now-score*)
  )

(n90)
0