Changes between Initial Version and Version 1 of Ticket #4157


Ignore:
Timestamp:
Jul 4, 2010 12:12:39 PM (4 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}}}