Select Code to Download

import Data.List (sort,tails)

...
             "16060437323320876543354855484294170848344644764967947362
+3104",
             "78796640372485356789004027625810549218342470476191585852
+4942",
             "23456532982436100867707549226413076264717737053820267894
+9041" ]

$ runhaskell ascruns.hs
(5,"21098")
...
(6,"876543")
(6,"567890")
(5,"23456")

longestSeq p s = maximum tuples
                 where ts = tails s
...
(5,12,"21098")
(5,37,"45678")
(5,35,"67890")