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
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual firstList secondList = 
 match firstList with 
    | [] -> secondList.Equals([])
    | h :: t -> 
        printf "%d\n" h
 
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 
    | [] -> if secondList.Equals([]) true
    | h :: t -> 
        printf "%d\n" h
 
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 
    | [] -> if secondList.Equals([]) true
    | h :: t -> 
        printf "%d\n" h
 
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 
    | [] -> if secondList.Equals([]) true
    | h :: t -> 
        printf "%d\n" h
 
let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name
 ...

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ; "second string"]
 String.concat "<sep>" stringList
 
let res =  summ5 "argument"
printfn "%s" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString()]
 String.concat "prestring " stringList
 
let res =  summ5 "argument"
printfn "%s" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = x.ToString()
 String.concat "prestring " stringList
 
let res =  summ5 "argument"
printfn "%s" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ]
 String.concat "prestring " stringList
 
let res =  summ5 "argement"
printfn "%s" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ]
 String.concat ";   " stringList
 
let res =  summ5 ""
printfn "%s" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ]
 String.concat ";   " stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
7
let rec summ5 x = 
 let stringList = [x.ToString() ]
 let sx = s.ToString()
 String.concat sx stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ]
 String.concat (s.ToString()) stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ]
 String.concat s.ToString() stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString() ;  ]
 String.concat s.ToString() stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 let stringList = [x.ToString()]
 String.concat s.ToString() stringList
 
let res =  summ5 ""
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 5 + x
 
 
let res =  summ5 3
printfn "%i" res

1
2
3
4
5
6
let rec summ5 x = 
 5 + x
 
 
let res =  summ5 3
printfn "%b" res

1
2
3
4
5
6
let rec 5summ x = 
 5 + x
 
 
let res =  5summ 3
printfn "%b" res

1
2
3
4
5
6
let rec fun x = 
 5 + x
 
 
let res =  fun 3
printfn "%b" res

1
2
3
4
5
6
let rec fun x = 
 5 + x
 
 
let res =  fun 3
printfn res

1
2
3
4
5
6
let rec fun x 
 5 + x
 
 
let res =  fun 3
printfn res

1
2
3
4
5
6
let rec fun x 
 5 + x
 
 
let res fun 3
printfn res

1
2
3
4
let rec fun x 
 5 + x
 
printfn (fun 3)

1
2
3
4
let rec fun x 
 5 + x
 
printfn "HelloWorld %d" fun 3

1
printfn "HelloWorld"

1
2
3
4
5
6
7
8
9
let rec formatEqual x y =
 let sx = x.ToString()
 let sy = y.ToString()
 if sx.Length.Equals(0) then sy.Length.Equals(0)
 elif sy.Length.Equals(0) then
     false
   elif sx.Chars(0).Equals(sy.Chars(0)) then formatEqual sx.[1..] sy.[1..]
 
     elif sx.Chars(0).Equals('?') then formatEqual sx.[1..] sy.[1..]     elif sx.Chars(0).Equals('*') then formatEqual sx.[0..] sy.[1..] || formatEqual sx.[1..] sy
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual x y =
 let sx = x.ToString()
 let sy = y.ToString()
 if sx.Length.Equals(0) then sy.Length.Equals(0)
 elif sy.Length.Equals(0) then
     false
   elif sx.Chars(0).Equals(sy.Chars(0)) then formatEqual sx.[1..] sy.[1..]
 
     elif sx.Chars(0).Equals('?') then formatEqual sx.[1..] sy.[1..]     elif sx.Chars(0).Equals('*') then formatEqual sx.[0..] sy.[1..] || formatEqual sx.[1..] sy
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual x y =
 let sx = x.ToString()
 let sy = y.ToString()
 if sx.Length.Equals(0) then sy.Length.Equals(0)
 elif sy.Length.Equals(0) then
     false
   elif sx.Chars(0).Equals(sy.Chars(0)) then formatEqual sx.[1..] sy.[1..]
 
     elif sx.Chars(0).Equals('?') then formatEqual sx.[1..] sy.[1..]     elif sx.Chars(0).Equals('*') then formatEqual sx.[0..] sy.[1..] || formatEqual sx.[1..] sy
 ...

1
2
3
4
5
6
7
8
9
let rec formatEqual x y =
 let sx = x.ToString()
 let sy = y.ToString()
 if sx.Length.Equals(0) then sy.Length.Equals(0)
 elif sy.Length.Equals(0) then
     false
   elif sx.Chars(0).Equals(sy.Chars(0)) then formatEqual sx.[1..] sy.[1..]
 
     elif sx.Chars(0).Equals('?') then formatEqual sx.[1..] sy.[1..]     elif sx.Chars(0).Equals('*') then formatEqual sx.[0..] sy.[1..] || formatEqual sx.[1..] sy.[0..]
 ...