Problem:
Score : 600 points

Problem Statement

Given are two integer sequences of N elements each: A_1,...,A_N and B_1,...,B_N.
Determine if it is possible to do the following operation at most N-2 times (possibly zero) so that, for every integer i from 1 to N, A_i \leq B_i holds:

Choose two distinct integers x and y between 1 and N (inclusive), and swap the values of A_x and A_y.

Constraints

2 \leq N \leq 10^5

1 \leq A_i,B_i \leq 10^9

Input

Input is given from Standard Input in the following format:

N
A_1 A_2 ... A_N
B_1 B_2 ... B_N

Output

If the objective is achievable, print Yes; if it is not, print No.

Sample Input 1

3
1 3 2
1 2 3

Sample Output 1

Yes

We should swap the values of A_2 and A_3.

Sample Input 2

3
1 2 3
2 2 2

Sample Output 2

No

Sample Input 3

6
3 1 2 6 3 4
2 2 8 3 4 3

Sample Output 3

Yes

Solution in Rust (1.15.1) (judge verdict: Wrong Answer)

//! ----------------------------------------------
//! Framework <https://github.com/vain0x/procon>
//!
//! See the bottom of file for solution.
//! ----------------------------------------------

#![allow(unused_imports)]
#![allow(non_snake_case)]

use std::cell::RefCell;
use std::cmp::{max, min, Ordering};
use std::collections::*;
use std::fmt::{Debug, Display, Formatter, Write as FmtWrite};
use std::io::{stderr, stdin, BufRead, Write};
use std::mem::{replace, swap};
use std::ops::*;
use std::rc::Rc;

/// Print values to standard error if debug mode.
#[allow(unused_macros)]
macro_rules! debug {
    ($($e:expr),*) => {
        #[cfg(debug_assertions)]
        $({
            let (e, mut err) = (stringify!($e), stderr());
            writeln!(err, "\x1B[33m{}\x1B[0m = {:?}", e, $e).unwrap()
        })*
    };
}

/// Read from standard input and parse each word.
/// - `read!(T, U, ..)` parses a line as a tuple of words.
/// - `read![[T]]` parses a line as an array of words.
/// - `read![..; N]` parses `N` lines, using `read!(..)` repeatedly.
#[allow(unused_macros)]
macro_rules! read {
    ([$t:ty] ; $n:expr) =>
        ((0..$n).map(|_| read!([$t])).collect::<Vec<_>>());
    ($($t:ty),+ ; $n:expr) =>
        ((0..$n).map(|_| read!($($t),+)).collect::<Vec<_>>());
    ([$t:ty]) =>
        (rl().split_whitespace().map(|w| w.parse().unwrap()).collect::<Vec<$t>>());
    ($($t:ty),*) => {{
        let buf = rl();
        let mut w = buf.split_whitespace();
        ($(w.next().unwrap().parse::<$t>().unwrap()),*)
    }};
}

/// Read a line from standard input.
#[allow(dead_code)]
fn rl() -> String {
    let mut buf = String::new();
    stdin().read_line(&mut buf).unwrap();

    #[allow(deprecated)]
    buf.trim_right().to_owned()
}

// -----------------------------------------------
// Solution
// -----------------------------------------------

#[derive(PartialEq, Eq, Clone, Debug)]
pub struct Rev<T>(pub T);

impl<T: PartialOrd> PartialOrd for Rev<T> {
    fn partial_cmp(&self, other: &Rev<T>) -> Option<Ordering> {
        other.0.partial_cmp(&self.0)
    }
}

impl<T: Ord> Ord for Rev<T> {
    fn cmp(&self, other: &Rev<T>) -> Ordering {
        other.0.cmp(&self.0)
    }
}

fn solve(A: &[i64], B: &[i64]) -> bool {
    let N = A.len();

    // 現在位置
    let mut p = (0..N).collect::<Vec<_>>();

    // 未修復の位置が A の値が大きい順に出てくるキュー
    let mut xq = (0..N).map(|i| (A[i], i, i)).collect::<BinaryHeap<_>>();

    // B >= ax である位置が A の値が小さい順に出てくるキュー
    let mut aq = BinaryHeap::new();

    // B < ax である位置が B の値が大きい順に出てくるキュー
    let mut bq = (0..N).map(|i| (B[i], i)).collect::<BinaryHeap<_>>();

    while let Some((api, i, pi)) = xq.pop() {
        if p[i] != pi {
            // 情報が古い
            continue;
        }
        debug_assert_eq!(api, A[p[i]]);

        if A[p[i]] <= B[i] {
            // 修復不要
            continue;
        }

        // ax の変化に合わせてキューの不変条件を復元する
        // 破綻修復のための交換先の候補を求めることに相当
        while let Some(&(b, j)) = bq.peek() {
            debug_assert_eq!(b, B[j]);

            if b >= api {
                bq.pop();
                aq.push((Rev(A[p[j]]), j, p[j]));
            } else {
                break;
            }
        }

        while let Some(&(Rev(ay), j, pj)) = aq.peek() {
            if p[j] != pj {
                // 情報が古い
                aq.pop();
                continue;
            }
            debug_assert_eq!(ay, A[p[j]]);
            break;
        }

        // 最良の交換先
        let (Rev(apj), j, _) = match aq.pop() {
            None => return false,
            Some(x) => x,
        };
        debug_assert_eq!(apj, A[p[j]]);
        debug_assert!(api <= B[j]);

        if apj > B[i] {
            return false;
        }
        debug_assert!(apj <= B[i]);

        // 交換
        p.swap(i, j);

        debug_assert!(A[p[i]] <= B[i]);
        debug_assert!(A[p[j]] <= B[j]);

        // キューに新しい情報を詰める
        xq.push((A[p[i]], i, p[i]));

        for &i in &[i, j] {
            if B[i] >= api {
                aq.push((Rev(A[p[i]]), i, p[i]));
            }
        }
    }

    true
}

fn main() {
    read!(usize);
    let A = read![[i64]];
    let B = read![[i64]];
    println!("{}", if solve(&A, &B) { "Yes" } else { "No" });
}