fork download

copy

let rec formatEqual format argument = 
 let sFormat = format.ToString()
 let sArgument = argument.ToString()
 
 match sFormat with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> sFormat.Chars(0).Equals(sArgument.Chars(0)) && formatEqual format.[1..] string.[1..]
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 
printfn "%b" res

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

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

/home/VHo03F/prog.fs(7,18): error FS0072: Lookup on object of indeterminate type based on information prior to this program point. A type annotation may be needed prior to this program point to constrain the type of the object. This may allow the lookup to be resolved.

/home/VHo03F/prog.fs(10,75): error FS0072: Lookup on object of indeterminate type based on information prior to this program point. A type annotation may be needed prior to this program point to constrain the type of the object. This may allow the lookup to be resolved.

/home/VHo03F/prog.fs(10,88): error FS0039: The field, constructor or member 'GetSlice' is not defined

Standard output is empty