fork download

copy

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
       // | "?" 
       // | "*"
        | c -> firstPatternChar.Equals(firstChar) && formatEqual format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 
printfn "%b" res

/home/iXbkWn/prog.fs(11,9): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (8:12). Try indenting this token further or using standard formatting conventions.

/home/iXbkWn/prog.fs(7,13): error FS0043: The type '( ^a -> string)' does not support the 'equality' constraint because it is a function type

/home/iXbkWn/prog.fs(11,79): error FS0039: The field, constructor or member 'GetSlice' is not defined

Standard output is empty