source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
let e = <@ let foo = function
            | [ 1; 2; 3 ] -> true
            | [ 4; x ] when x < 0 -> true
            | _ -> false
           in 1 @>
 
printfn "%A" e

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 1:   hide show   clone   input   520 days 2 hours ago    Success

  result: Success     time: 0.27s    memory: 13464 kB     returned value: 0

  input: no
  output:

  Let (foo,
       Lambda (_arg1,
               IfThenElse (UnionCaseTest (_arg1, FSharpList`1.Cons),
                           IfThenElse (Call (None,
                                             Boolean op_Equality[Int32](Int32, Int32),
                                             [PropertyGet (Some (_arg1),
                                                           System.Int32 Head, []),
                                              Value (1)]),
                                       IfThenElse (UnionCaseTest (PropertyGet (Some (_arg1),
                                                                               Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                               []),
                                                                  FSharpList`1.Cons),
                                                   IfThenElse (Call (None,
                                                                     Boolean op_Equality[Int32](Int32, Int32),
                                                                     [PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                      Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                      [])),
                                                                                   System.Int32 Head,
                                                                                   []),
                                                                      Value (2)]),
                                                               IfThenElse (UnionCaseTest (PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                          Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                          [])),
                                                                                                       Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                       []),
                                                                                          FSharpList`1.Cons),
                                                                           IfThenElse (Call (None,
                                                                                             Boolean op_Equality[Int32](Int32, Int32),
                                                                                             [PropertyGet (Some (PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                                                 Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                                                 [])),
                                                                                                                              Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                              [])),
                                                                                                           System.Int32 Head,
                                                                                                           []),
                                                                                              Value (3)]),
                                                                                       IfThenElse (UnionCaseTest (PropertyGet (Some (PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                                                                     Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                                                                     [])),
                                                                                                                                                  Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                                                  [])),
                                                                                                                               Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                               []),
                                                                                                                  FSharpList`1.Empty),
                                                                                                   Value (true),
                                                                                                   Value (false)),
                                                                                       Value (false)),
                                                                           Value (false)),
                                                               Value (false)),
                                                   Value (false)),
                                       IfThenElse (Call (None,
                                                         Boolean op_Equality[Int32](Int32, Int32),
                                                         [PropertyGet (Some (_arg1),
                                                                       System.Int32 Head,
                                                                       []),
                                                          Value (4)]),
                                                   IfThenElse (UnionCaseTest (PropertyGet (Some (_arg1),
                                                                                           Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                           []),
                                                                              FSharpList`1.Cons),
                                                               IfThenElse (UnionCaseTest (PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                          Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                          [])),
                                                                                                       Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                       []),
                                                                                          FSharpList`1.Empty),
                                                                           IfThenElse (Let (x,
                                                                                            PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                            Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                            [])),
                                                                                                         System.Int32 Head,
                                                                                                         []),
                                                                                            Call (None,
                                                                                                  Boolean op_LessThan[Int32](Int32, Int32),
                                                                                                  [x,
                                                                                                   Value (0)])),
                                                                                       Let (x,
                                                                                            PropertyGet (Some (PropertyGet (Some (_arg1),
                                                                                                                            Microsoft.FSharp.Collections.FSharpList`1[System.Int32] Tail,
                                                                                                                            [])),
                                                                                                         System.Int32 Head,
                                                                                                         []),
                                                                                            Value (true)),
                                                                                       Value (false)),
                                                                           Value (false)),
                                                               Value (false)),
                                                   Value (false))), Value (false))),
       Value (1))