Private Proxies – Buy Cheap Private Elite USA Proxy + 50% Discount!Private Proxies – Buy Cheap Private Elite USA Proxy + 50% Discount!Private Proxies – Buy Cheap Private Elite USA Proxy + 50% Discount!Private Proxies – Buy Cheap Private Elite USA Proxy + 50% Discount!
    0
  •   was successfully added to your cart.
  • Home
  • Buy proxies
  • Extra features
  • Help
  • Contact
  • Login
  • 50% OFF
    BUY NOW!
    50
    PROXIES
    $19
    --------------------
    BUY NOW!
    BUY NOW!
    BUY NOW!
    BUY NOW!
    BUY NOW!
    $29
    $49
    $109
    $179
    $299
    --------------------
    --------------------
    --------------------
    --------------------
    --------------------
    PROXIES
    PROXIES
    PROXIES
    PROXIES
    PROXIES
    100
    200
    500
    1,000
    2,000
    TOP SELLER
    BEST VALUE
    For All Private Proxies!

Problem

Time limit : 2sec / Memory limit : 256MB

Problem Statement
The season for Snuke Festival has come again this year. First of all, Ringo will perform a ritual to summon Snuke. For the ritual, he needs an altar, which consists of three parts, one in each of the three categories: upper, middle and lower.
He has N parts for each of the three categories. The size of the i-th upper part is Ai, the size of the i-th middle part is Bi, and the size of the i-th lower part is Ci.
To build an altar, the size of the middle part must be strictly greater than that of the upper part, and the size of the lower part must be strictly greater than that of the middle part. On the other hand, any three parts that satisfy these conditions can be combined to form an altar.
How many different altars can Ringo build? Here, two altars are considered different when at least one of the three parts used is different.

Constraints
1≤N≤10^5
1≤Ai≤10^9(1≤i≤N)
1≤Bi≤10^9(1≤i≤N)
1≤Ci≤10^9(1≤i≤N)
All input values are integers.

Input
Input is given from Standard Input in the following format:
N
A1 … AN
B1 … BN
C1 … CN

Output
Print the number of different altars that Ringo can build.

Sample Input1

2 1 5 2 4 3 6 

Sample Output1

3 

Sample Input2

3 1 1 1 2 2 2 3 3 3 

Sample Output2

27 

Sample Input3

6 3 14 159 2 6 53 58 9 79 323 84 6 2643 383 2 79 50 288 

Sample Output3

87 

My solution as Time Limit Exceeded:

import qualified Data.Char as Char import qualified Data.List as List import qualified Data.Maybe as Maybe import qualified Text.Printf as Printf import qualified Control.Monad as Monad import qualified Data.Array as Array  bisectLeft :: (Ord a) => a -> (Array.Array Int a) -> Int bisectLeft n xs = bisectLeft' 0 (length xs) n xs  bisectLeft' :: (Ord a) => Int -> Int -> a -> (Array.Array Int a) -> Int bisectLeft' lo hi n xs = if lo >= hi then lo else                     if n <= (xs Array.! mid) then bisectLeft' lo mid n xs                       else bisectLeft' (mid + 1) hi n xs                     where mid = (lo + hi) `div` 2  bisectRight :: (Ord a) => a -> (Array.Array Int a) -> Int bisectRight n xs = bisectRight' 0 (length xs) n xs  bisectRight' :: (Ord a) => Int -> Int -> a -> (Array.Array Int a) -> Int bisectRight' lo hi n xs = if lo >= hi then hi else                     if n < (xs Array.! mid) then bisectRight' lo mid n xs                       else bisectRight' (mid + 1) hi n xs                     where mid = (lo + hi) `div` 2  main :: IO () main = do   n <- (read :: String -> Int) <$  > getLine   as <- (Array.listArray (0,n-1)) . List.sort . map (read :: String -> Int) . words <$  > getLine   bs <- map (read :: String -> Int) . words <$  > getLine   cs <- (Array.listArray (0,n-1)) . List.sort . map (read :: String -> Int) . words <$  > getLine   print $   foldl (+) 0 $   map (\ b -> (bisectLeft b as) * (n - bisectRight b cs)) bs 

I think it takes too much time to make array, but I cannot think of any way to make it more efficient…
How can I this code more efficient?

Question Link

✓ Extra quality

ExtraProxies brings the best proxy quality for you with our private and reliable proxies

✓ Extra anonymity

Top level of anonymity and 100% safe proxies – this is what you get with every proxy package

✓ Extra speed

1,ooo mb/s proxy servers speed – we are way better than others – just enjoy our proxies!

50 proxies

$19/month

50% DISCOUNT!
$0.38 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

100 proxies

$29/month

50% DISCOUNT!
$0.29 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

200 proxies

$49/month

50% DISCOUNT!
$0.25 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

500 proxies

$109/month

50% DISCOUNT!
$0.22 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

1,000 proxies

$179/month

50% DISCOUNT!
$0.18 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

2,000 proxies

$299/month

50% DISCOUNT!
$0.15 per proxy
✓ Private
✓ Elite
✓ Anonymous
Buy now

USA proxy location

We offer premium quality USA private proxies – the most essential proxies you can ever want from USA

100% anonymous

Our proxies have TOP level of anonymity + Elite quality, so you are always safe and secure with your proxies

Unlimited bandwidth

Use your proxies as much as you want – we have no limits for data transfer and bandwidth, unlimited usage!

Superfast speed

Superb fast proxy servers with 1,000 mb/s speed – sit back and enjoy your lightning fast private proxies!

99,9% servers uptime

Alive and working proxies all the time – we are taking care of our servers so you can use them without any problems

No usage restrictions

You have freedom to use your proxies with every software, browser or website you want without restrictions

Perfect for SEO

We are 100% friendly with all SEO tasks as well as internet marketing – feel the power with our proxies

Big discounts

Buy more proxies and get better price – we offer various proxy packages with great deals and discounts

Premium support

We are working 24/7 to bring the best proxy experience for you – we are glad to help and assist you!

Satisfaction guarantee

24/7 premium support, free proxy activation and 100% safe payments! Best reliability private proxies for your needs!

Best Proxy Packs

  • 2,000 Private Proxies $600.00 $299.00 / month
  • 1,000 Private Proxies $360.00 $179.00 / month

Quick Links

  • More information
  • Contact us
  • Privacy Policy
  • Terms and Conditions

Like And Follow Us


Copyright ExtraProxies.com | All Rights Reserved.
  • Checkout
  • Contact
  • Help
  • Home
  • My Account
  • My Cart
  • News
  • Privacy Policy
  • Proxy features
  • Proxy packs
  • Terms and Conditions
Private Proxies – Buy Cheap Private Elite USA Proxy + 50% Discount!
    0 items