結果

問題 No.4 おもりと天秤
ユーザー MiyamonYMiyamonY
提出日時 2019-09-05 11:41:16
言語 Scheme
(Gauche-0.9.15)
結果
WA  
実行時間 -
コード長 607 bytes
コンパイル時間 218 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 21,120 KB
最終ジャッジ日時 2025-01-03 05:26:24
合計ジャッジ時間 3,810 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 31 ms
17,152 KB
testcase_01 AC 29 ms
17,152 KB
testcase_02 AC 41 ms
17,152 KB
testcase_03 AC 37 ms
17,280 KB
testcase_04 AC 43 ms
17,152 KB
testcase_05 AC 174 ms
21,120 KB
testcase_06 AC 30 ms
17,024 KB
testcase_07 AC 170 ms
20,992 KB
testcase_08 AC 179 ms
20,992 KB
testcase_09 AC 163 ms
20,992 KB
testcase_10 AC 170 ms
20,992 KB
testcase_11 WA -
testcase_12 WA -
testcase_13 AC 31 ms
17,024 KB
testcase_14 WA -
testcase_15 AC 29 ms
17,152 KB
testcase_16 AC 40 ms
17,152 KB
testcase_17 AC 32 ms
17,280 KB
testcase_18 AC 177 ms
20,992 KB
testcase_19 AC 178 ms
21,120 KB
testcase_20 AC 176 ms
21,120 KB
testcase_21 AC 177 ms
20,992 KB
testcase_22 AC 171 ms
21,120 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

(let* ((n (string->number (read-line)))
       (arr (map string->number (string-split (read-line) #\space))))
  (define vec (make-vector (* 100 n) #f))
  (define total (fold + 0 arr))

  (vector-set! vec 0 #t)

  (let loop ((weights arr))
    (cond ((null? weights)
	   (if (or (= (mod total 2) 1) (eqv? (vector-ref vec (div total 2)) #f))
	       (print "impossible")
	       (print "possible")))
	  (else
	   (for-each
	    (lambda (j)
	      (let1 pred (- j (car weights))
		    (if (and (>= pred 0) (vector-ref vec pred))
			(vector-set! vec j #t))))
	    (iota (* 100 n)))
	   (loop (cdr weights))))))
0