Skip to content

Instantly share code, notes, and snippets.

@klapaucius

klapaucius/gist:1333286

Created November 2, 2011 09:53
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save klapaucius/1333286 to your computer and use it in GitHub Desktop.
Save klapaucius/1333286 to your computer and use it in GitHub Desktop.
Download ZIP
dotp
Raw
gistfile1.hs
$s$wfoldlM'_loop_s1qP =
\ (sc_s1qv :: GHC.Prim.Int#)
(sc1_s1qw :: GHC.Prim.Int#)
(sc2_s1qx :: GHC.Prim.Double#) ->
case GHC.Prim.>=# sc1_s1qw ipv1_s1a1 of _ {
GHC.Bool.False ->
case GHC.Prim.>=# sc_s1qv ipv4_s1fy of _ {
GHC.Bool.False ->
$s$wfoldlM'_loop_s1qP
(GHC.Prim.+# sc_s1qv 1)
(GHC.Prim.+# sc1_s1qw 1)
(GHC.Prim.+##
sc2_s1qx
(GHC.Prim.*##
(GHC.Prim.indexDoubleArray#
ipv2_s1a2 (GHC.Prim.+# ipv_s18V sc1_s1qw))
(GHC.Prim.indexDoubleArray#
ipv5_s1fz (GHC.Prim.+# ipv3_s1fx sc_s1qv))));
GHC.Bool.True -> sc2_s1qx
};
GHC.Bool.True -> sc2_s1qx
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment