結果

問題 No.723 2つの数の和
コンテスト
ユーザー nobigomu
提出日時 2018-08-05 14:02:17
言語 Lua
(LuaJit 2.1.1774638290)
コンパイル:
luajit -b _filename_ a.out
実行:
luajit _filename_
結果
WA  
実行時間 -
コード長 545 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 346 ms
コンパイル使用メモリ 8,484 KB
実行使用メモリ 7,976 KB
最終ジャッジ日時 2026-04-08 05:43:41
合計ジャッジ時間 15,460 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 17 WA * 3 TLE * 2
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

local ffi = require 'ffi'
local C = ffi.C
ffi.cdef 'int scanf(const char *, ...);'

print((function (n, x, cd)
	local a,h,r={},{},0
	for _=1,n do C.scanf("%d",cd) if h[cd[0]]==nil then h[cd[0]]=0 end h[cd[0]]=h[cd[0]]+1 end
	for k,_ in pairs(h) do table.insert(a,k) end table.sort(a)
	for i=1,#a do
		if a[i]*2==x then r=r+h[a[i]] goto bot end
		for j=i+1,#a do
			local t=a[i]+a[j]
			if t>x then break end
			if t==x then r=r+h[a[i]]*h[a[j]]*2 end
		end ::bot::
	end
	return r
end)(io.stdin:read("*n"), io.stdin:read("*n"), ffi.new("int[1]")))
0