結果

問題 No.110 しましまピラミッド
ユーザー ciel
提出日時 2020-03-01 22:36:32
言語 Kuin
(KuinC++ v.2021.9.17)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 945 bytes
コンパイル時間 2,691 ms
コンパイル使用メモリ 149,636 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-16 10:16:17
合計ジャッジ時間 3,597 ms
ジャッジサーバーID
(参考情報)
judge6 / judge3
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 4
other AC * 26
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

func main()
var ss: [][]char
var Nw: int :: cui@input().toInt(&)
var W: []int :: #[Nw]int
do ss :: cui@input().split(" ")
for i(0, Nw - 1)
do W[i] :: ss[i].toInt(&)
end for
var Nb: int :: cui@input().toInt(&)
var B: []int :: #[Nb]int
do ss :: cui@input().split(" ")
for i(0, Nb - 1)
do B[i] :: ss[i].toInt(&)
end for
do W.sort()
do W.reverse()
do B.sort()
do B.reverse()
var wb: [][]int :: [W, B]
var ans: int
for i(0, 1)
var id: int :: i
var idxWb: []int :: [0, 0]
do idxWb[id] :: 1
var lastSize: int :: wb[id][0]
do id :: 1 - id
var num: int :: 1
while loop1(true)
while loop2(true)
if(idxWb[id] = ^wb[id])
break loop1
end if
if(wb[id][idxWb[id]] < lastSize)
do lastSize :: wb[id][idxWb[id]]
do num :+ 1
break loop2
end if
do idxWb[id] :+ 1
end while
do id :: 1 - id
end while
do ans :: [ans, num].max()
end for
do cui@print("\{ans}\n")
end func
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0