T11284.hs

Rec {
Ticket.$wgo1 :: [T.Text] -> GHC.Prim.Int# -> GHC.Prim.Int#
Ticket.$wgo1 =
  \ (w_s4GJ :: [T.Text]) (ww_s4GN :: GHC.Prim.Int#) ->
    case w_s4GJ of _ {
      [] -> ww_s4GN;
      : y_a4vC ys_a4vD ->
        case y_a4vC
        of _ { Data.Text.Internal.Text dt_a4jP dt1_a4jQ dt2_a4jR ->
        let {
          a_a4jO :: GHC.Prim.Int#
          a_a4jO = GHC.Prim.+# dt1_a4jQ dt2_a4jR } in
        letrec {
          $wloop_length_s4GI
            :: GHC.Prim.Int# -> GHC.Prim.Int# -> GHC.Prim.Int#
          $wloop_length_s4GI =
            \ (ww1_s4Gz :: GHC.Prim.Int#) (ww2_s4GD :: GHC.Prim.Int#) ->
              case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.>=# ww2_s4GD a_a4jO)
              of _ {
                False ->
                  case GHC.Prim.indexWord16Array# dt_a4jP ww2_s4GD
                  of r#_a4k8 { __DEFAULT ->
                  case GHC.Prim.tagToEnum#
                         @ Bool (GHC.Prim.geWord# r#_a4k8 (__word 55296))
                  of _ {
                    False ->
                      $wloop_length_s4GI
                        (GHC.Prim.+# ww1_s4Gz 1) (GHC.Prim.+# ww2_s4GD 1);
                    True ->
                      case GHC.Prim.tagToEnum#
                             @ Bool (GHC.Prim.leWord# r#_a4k8 (__word 56319))
                      of _ {
                        False ->
                          $wloop_length_s4GI
                            (GHC.Prim.+# ww1_s4Gz 1) (GHC.Prim.+# ww2_s4GD 1);
                        True ->
                          $wloop_length_s4GI
                            (GHC.Prim.+# ww1_s4Gz 1) (GHC.Prim.+# ww2_s4GD 2)
                      }
                  }
                  };
                True -> ww1_s4Gz
              }; } in
        case $wloop_length_s4GI 0 dt1_a4jQ of ww1_s4GH { __DEFAULT ->
        case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# ww_s4GN ww1_s4GH)
        of _ {
          False -> Ticket.$wgo1 ys_a4vD ww_s4GN;
          True -> Ticket.$wgo1 ys_a4vD ww1_s4GH
        }
        }
        }
    }
end Rec }

longestWord :: T.Text -> Int
longestWord =
  \ (w_s4GT :: T.Text) ->
    case w_s4GT
    of _ { Data.Text.Internal.Text ww1_s4GW ww2_s4GX ww3_s4GY ->
    case Ticket.$wgo1 (Ticket.$wgo ww1_s4GW ww2_s4GX ww3_s4GY) 0
    of ww4_s4H2 { __DEFAULT ->
    GHC.Types.I# ww4_s4H2
    }
    }