結果

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

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 32 ms
17,024 KB
testcase_01 AC 30 ms
17,152 KB
testcase_02 AC 38 ms
17,280 KB
testcase_03 AC 36 ms
17,408 KB
testcase_04 AC 38 ms
17,280 KB
testcase_05 AC 172 ms
20,992 KB
testcase_06 AC 30 ms
16,896 KB
testcase_07 AC 165 ms
21,120 KB
testcase_08 AC 160 ms
20,992 KB
testcase_09 AC 152 ms
20,992 KB
testcase_10 AC 162 ms
20,864 KB
testcase_11 WA -
testcase_12 WA -
testcase_13 AC 30 ms
17,280 KB
testcase_14 WA -
testcase_15 AC 32 ms
17,024 KB
testcase_16 AC 31 ms
17,152 KB
testcase_17 AC 30 ms
17,024 KB
testcase_18 AC 159 ms
20,864 KB
testcase_19 AC 167 ms
20,992 KB
testcase_20 AC 173 ms
20,864 KB
testcase_21 AC 167 ms
20,992 KB
testcase_22 AC 163 ms
20,992 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