結果
| 問題 | 
                            No.200 カードファイト!
                             | 
                    
| コンテスト | |
| ユーザー | 
                             tails
                         | 
                    
| 提出日時 | 2019-09-17 17:55:12 | 
| 言語 | Bash  (Bash 5.2.21)  | 
                    
| 結果 | 
                             
                                AC
                                 
                             
                            
                         | 
                    
| 実行時間 | 12 ms / 2,000 ms | 
| コード長 | 478 bytes | 
| コンパイル時間 | 69 ms | 
| コンパイル使用メモリ | 6,816 KB | 
| 実行使用メモリ | 6,820 KB | 
| 最終ジャッジ日時 | 2024-10-15 09:01:18 | 
| 合計ジャッジ時間 | 1,035 ms | 
| 
                            ジャッジサーバーID (参考情報)  | 
                        judge5 / judge4 | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| sample | AC * 3 | 
| other | AC * 26 | 
ソースコード
read n
read a
read B
read c
read D
for i in $B;{ y[i]+=\ $i;};B=(${y[@]})
for i in $D;{ z[i]+=\ $i;};D=(${z[@]})
for((;n--;r+=k,k=0)){
	((${#b[@]}))||b=(${B[@]})
	((${#d[@]}))||d=(${D[@]})
	(((nb=${#b[@]})<(nd=${#d[@]})))&&{
		x=${b[-1]}
		b=(${b[@]::nb-1})
		for((j=nd-1,i=0;i<nd;++i)){
			((x>d[i]&&(k=1,j=i)))
		}
		d=(${d[@]::j} ${d[@]:j+1})
	}||{
		x=${d[0]}
		d=(${d[@]:1})
		for((j=0,i=nb;i--;)){
			((x<b[i]&&(k=1,j=i)))
		}
		b=(${b[@]::j} ${b[@]:j+1})
	}
}
echo $r
            
            
            
        
            
tails