Select Code to Download

type Data = (Int, Int, String)

...
       , (25, 28, "D")
       , (47, 49, "E")
       ]

sub bottom { shift->[0] };
sub top    { shift->[1] };
...
           , [25, 28, "D"]
           , [47, 49, "E"]
       ];

rangeSort1 :: [Data] -> [(Data, [Data])]
rangeSort1 r = mapMaybe (\x -> let l = filter (contains x) . filter (/
+=x)
...
                                 otherwise -> Just (x, l r)
                        )  r