結果

問題 No.3363 Two Closest Numbers
コンテスト
ユーザー ID 21712
提出日時 2025-12-23 02:43:21
言語 Go
(1.23.4)
結果
WA  
実行時間 -
コード長 1,631 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 14,052 ms
コンパイル使用メモリ 261,732 KB
実行使用メモリ 7,852 KB
最終ジャッジ日時 2025-12-23 02:43:42
合計ジャッジ時間 20,515 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 53 WA * 6
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

package main

import . "fmt"
import . "os"
import bf "bufio"
import sl "slices"
import . "math/bits"

func main() {
	rd := bf.NewReader(Stdin)
	var n int
	Fscan(rd, &n)
	
	const M = 998244353
	
	// nが奇数ならソートして真ん中あたりで分割？
	//   1 2 3 4 4 5 6 7 8 8 9
	//   -> 1 2 3 4 4 5
	//   ->   9 8 8 7 6
	if n % 2 == 1 {
		
		c := make([]int, n)
		for i := range c {
			Fscan(rd, &c[i])
		}
		sl.Sort(c)
		x, y := c[0], 0
		for i := 0; i < n/2 ; i++ {
			x = (x * 10 + c[i+1]) % M
			y = (y * 10 + c[n-1-i]) % M
		}
		println(x)
		println(y)
		Println((x-y+M)%M)
		return
	}
	
	// nが偶数なら重複する数字は上位桁で相殺すればよく
	// 相殺すると合計8個以下の偶数個数で相異なる数字が1個ずつ残る
	// XとYは同じ桁の数で最大のときでも4桁
	// Xになりうるものを全探索し、Xになりうるもに対応するYを全探索で間に合いそう…？
	d := make([]int, 10)
	for i := 0; i < n; i++ {
		var v int
		Fscan(rd, &v)
		d[v]++
	}
	b := 0
	for i, v := range d {
		b |= ((v % 2) << i)
	}
	if b == 0 {
		Println(0)
		return
	}
	w := []int{}
	wb := []int{}
	for x := 0; x < 1e4; x++ {
		xb := 0
		for t:=x; t > 0; t /= 10 {
			e := 1 << (t % 10)
			if (xb&e) != 0 {
				xb = 0
				break
			}
			xb |= e
		}
		if (xb&b) != xb {
			continue
		}
		if OnesCount(uint(xb))*2 != OnesCount(uint(b)) {
			continue
		}
		w = append(w, x)
		wb = append(wb, xb)
	}
	best := 99999
	for i, x := range w {
		for j, y := range w[i+1:] {
			if (wb[i]|wb[i+1+j]) != b {
				continue
			}
			best = min(best, max(x - y, y - x))
		}
	}
	Println(best)
}
0