diff options
| -rw-r--r-- | assignment-1/program2.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/assignment-1/program2.icl b/assignment-1/program2.icl index 304699a..1c70366 100644 --- a/assignment-1/program2.icl +++ b/assignment-1/program2.icl @@ -61,4 +61,4 @@ where Start = (Ccontains 3 c, Cshow c) where c :: Bin Int // Change to [Int] for testing the [] instance - c = seq (map Cinsert [10..20]) Cnew + c = foldr Cinsert Cnew [10..20] |