diff options
Diffstat (limited to 'lec07/JoinList.hs')
| -rw-r--r-- | lec07/JoinList.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lec07/JoinList.hs b/lec07/JoinList.hs index 25667c7..5c1165e 100644 --- a/lec07/JoinList.hs +++ b/lec07/JoinList.hs @@ -38,7 +38,7 @@ dropJ n jl@(Single _ _) dropJ n jl@(Append m jl1 jl2) | n <= 0 = jl | n >= m' = Empty - | n < s1 = Append (Size $ m' - n) (dropJ n jl1) jl2 + | n < s1 = dropJ n jl1 +++ jl2 | n >= s1 = dropJ (n - s1) jl2 where s1 = getSize $ size $ tag jl1 |