Хроники айтишника

let product seqs =

    List.rev seqs

    |> List.fold

       (fun acc cur ->

           [for seq in acc do

               for item in cur do

                   yield item::seq])

       [List.empty]

open System

open System.IO

do

    use reader = new StreamReader("A.in")

    use writer = new StreamWriter("A.out")

    let readLine _ = reader.ReadLine()

    let testCount = reader.ReadLine() |> int

    let split (s: String) = s.Split(' ') |> fun arr -> int arr.[0], int arr.[1]

    List.init testCount (readLine >> split)

    |> List.map (fun (N, K) -> (K+1) % (1 <<< N) = 0)

    |> List.map (fun b -> if b then "ON" else "OFF")

    |> List.iteri (fun i s -> writer.WriteLine("Case #{0}: {1}", i+1, s))

using System.Linq;

using System.IO;

namespace CodeJamCs

{

    class Program

    {

        static void Main(string[] args)

        {

            using (var reader = new StreamReader("C.in"))

            using (var writer = new StreamWriter("C.out"))

            {

                int testCount = int.Parse(reader.ReadLine());

                for (int test = 0; test < testCount; ++test)

                {

                    var line = reader.ReadLine().Split(' ').Select(int.Parse).ToArray();

                    int r = line[0], k = line[1], n = line[2];

                    var size = reader.ReadLine().Split(' ').Select(long.Parse).ToArray();

                    var shift = new int[n];

                    var cost = new long[n];

                    for (int sh = 0; sh < n; ++sh)

                    {

                        long sum = 0;

                        int i, cnt;

                        for (i = (n - sh) % n, cnt = 0; cnt < n && sum <= k; i = (i + 1) % n, ++cnt)

                            sum += size[i];

                        i = (i + n - 1) % n;

                        if (sum > k)

                            sum -= size[i];

                        shift[sh] = (n - i) % n;

                        cost[sh] = sum;

                    }

                    long totalCost = 0;

                    for (int i = 0, curShift = 0; i < r; ++i, curShift = shift[curShift])

                        totalCost += cost[curShift];

                    writer.WriteLine("Case #{0}: {1}", test + 1, totalCost);

                }

            }

        }

    }

}

open System

open System.IO

open System.Text.RegularExpressions

let codeJam =

    use reader = new StreamReader("A.in")

    use writer = new StreamWriter("A.out")

    let readLine _ = reader.ReadLine()

    let matches regex s = Regex.IsMatch(s, regex)

    let countWhere p = List.filter p >> List.length

    let line = reader.ReadLine().Split(' ')

    let D, N = int line.[1], int line.[2]

    let words = List.init D readLine

    List.init N readLine

    |> List.map (fun s -> s.Replace('(', '[').Replace(')', ']'))

    |> List.map (fun re -> countWhere (matches re) words)

    |> List.iteri (fun i ans -> writer.WriteLine("Case #{0}: {1}", i+1, ans))