Skip to content

Instantly share code, notes, and snippets.

@bgamari bgamari/T11284.hs
Created Dec 24, 2015

Embed
What would you like to do?
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
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.