1
2
3
4
5
6
7
open System
 
let mutable num = Console.ReadLine()
while not(System.String.Equals(num, "42", System.StringComparison.CurrentCultureIgnoreCase)) do
    Console.Write(num)
    num <- System.Console.ReadLine()
    Console.WriteLine()

1
2
3
4
5
6
7
open System
 
let mutable num = Console.ReadLine()
while not(System.String.Equals(num, "42", System.StringComparison.CurrentCultureIgnoreCase)) do
    System.Console.Write(num)
    num <- System.Console.ReadLine()
    System.Console.WriteLine()

1
2
3
4
5
6
7
open System
 
let mutable num = System.Console.ReadLine()
while not(System.String.Equals(num, "42", System.StringComparison.CurrentCultureIgnoreCase)) do
    System.Console.Write(num)
    num <- System.Console.ReadLine()
    System.Console.WriteLine()

1
2
let f = List.fold (fun (s,c) x -> (s+x, c+1)) (0,0)
printfn "%A" (f [3;4;5])

1
2
let f = List.fold (fun x (s,c) -> (s+x, c+1)) (0,0)
printfn "%A" (f [3;4;5])

1
2
let f = List.fold (fun x y -> x + y) 0
printfn "%A" (f [3;4;5])

1
2
let f xs = xs
printfn "%A" (f [3;4;5])

1
2
3
4
5
6
let x = 0
let y = 1
 
let xy = x + y
 
printf("XY = " + xy);

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 
 match sFormat with 
    | "" -> sArgument.Equals("")
    | s -> match sFormat.Chars(0) with
       // | "?" 
       // | "*"
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 
 match sFormat with 
    | "" -> sArgument.Equals("")
    | s -> match sFormat.Chars(0) with
       // | "?" 
       // | "*"
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 
 match sFormat with 
    | "" -> sArgument.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 
 match sFormat with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 let firstChar = sArgument.Chars(0)
 let firstPatternChar = sFormat.Chars(0)
 match sFormat with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 let firstChar = sArgument.Chars(0)
 let firstPatternChar = sFormat.Chars(0)
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 let firstChar = string.Chars(0)
 let firstPatternChar = string.Chars(0)
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> firstPatternChar.Equals(firstChar) && formatEqual format.[1..] string.[1..]
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 let firstChar = string.Chars(0)
 let firstPatternChar = string.Chars(0)
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> firstPatternChar.Equals(firstChars) && formatEqual format.[1..] string.[1..]
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
let firstChar = string.Chars(0)
let firstPatternChar = string.Chars(0)
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> firstPatternChar.Equals(firstChars) && formatEqual format.[1..] string.[1..]
 ...

1
2
3
4
5
6
7
8
let rec formatEqual format string = 
let firstChar = string.Chars(0)
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> c.Equals(firstChars) && formatEqual format.[1..] string.[1..]
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> c.Equals(string.Chars(0)) && formatEqual format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
        | string.Chars(0) -> formatEqual format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
        | string.Chars(0) formatEqual format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
        | string.Chars(0) format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
        | string.Chars(0) format.[1..] string[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match formst.Chars(0) with
        | string.chars(0) format.[1..] string[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> 
        match formst.Chars(0) with
        | string.chars(0) format.[1..] string[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | "" -> secondList.Equals("")
    | "?" :: s -> 
        true
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | "" -> secondList.Equals("")
    | "?" + s -> 
        true
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | "" -> secondList.Equals("")
    | s -> 
        false
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | "" -> secondList.Equals("")
    | s -> 
        false
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | "" -> secondList.Equals("")
    | h :: t -> 
        false
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...