Changes between Initial Version and Version 1 of Ticket #4157


Ignore:
Timestamp:
Jul 4, 2010 12:12:39 PM (5 years ago)
Author:
igloo
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #4157 – Description

    initial v1  
    22
    33However,
    4 
     4{{{
    55reverse $ dropWhileL (==4) $ reverse $ fromList [1,2,3,4]
    66==> fromList [1,2,3]
     
    88dropWhileR (==4) $ fromList [1,2,3,4]
    99==> fromList [1,2]
    10 
     10}}}
    1111I guess the cause of bug is in breakl.
    1212
    1313Original:
     14{{{
    1415breakl p xs = foldr (\ i _ -> S.splitAt i xs) (xs, empty) (findIndicesL p xs)
    15 
     16}}}
    1617Fixed:
     18{{{
    1719breakl p xs = foldr (\ i _ -> S.splitAt (i+1) xs) (xs, empty) (findIndicesL p xs)
    18 
    19 
    20 
     20}}}