Submission #2180632


Source Code Expand

open System
open System.Collections
open System.Collections.Generic
open System.IO
open System.Linq

[<AutoOpen>] 
module input =
    let Str()  = Console.ReadLine()
    let StrArr() = Str().Split()
    let IntArr() = StrArr() |> Array.map int
    let Int()  = Str() |> int
    let Char() = Str() |> char
    let CharList()  = [ for c in Str() -> c ]
    let CharArray() = [|for c in Str() -> c|]

[<AutoOpen>] 
module parse =
    let c2s (c:obj) = 
        match c with
        | :? (char[])    as c -> new string(c)
        | :? (char list) as c -> c|>Array.ofList|>String
        | :?  char       as c -> c.ToString()
        | _ -> failwith ""
    let c2i c = c2s(c) |> int

[<EntryPoint>]
let main _ = 
    let n,X = 
        let t = IntArr()
        t.[0],t.[1]
    
    let a = IntArr()
    
    let mutable sum = 0;
    for i in 0..n-1 do 
        if (1 &&& (X>>>i)) = 1 then 
            sum <- sum + a.[i]

    printfn "%i" sum

    0
    

Submission Info

Submission Time
Task B - 価格の合計
User rui0422
Language F# (Mono 4.0)
Score 100
Code Size 995 Byte
Status AC
Exec Time 41 ms
Memory 14040 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 20
Set Name Test Cases
Sample subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt
All subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt
Case Name Status Exec Time Memory
subtask0_sample01.txt AC 41 ms 11992 KB
subtask0_sample02.txt AC 41 ms 11868 KB
subtask0_sample03.txt AC 40 ms 11992 KB
subtask1_01.txt AC 41 ms 11868 KB
subtask1_02.txt AC 40 ms 9820 KB
subtask1_03.txt AC 40 ms 11868 KB
subtask1_04.txt AC 41 ms 14032 KB
subtask1_05.txt AC 41 ms 11868 KB
subtask1_06.txt AC 41 ms 11868 KB
subtask1_07.txt AC 41 ms 14032 KB
subtask1_08.txt AC 40 ms 11984 KB
subtask1_09.txt AC 41 ms 11984 KB
subtask1_10.txt AC 41 ms 11868 KB
subtask1_11.txt AC 41 ms 11992 KB
subtask1_12.txt AC 41 ms 11868 KB
subtask1_13.txt AC 41 ms 14040 KB
subtask1_14.txt AC 40 ms 9944 KB
subtask1_15.txt AC 41 ms 11868 KB
subtask1_16.txt AC 41 ms 11992 KB
subtask1_17.txt AC 40 ms 9820 KB