diff options
| -rw-r--r-- | rent.scm | 23 |
1 files changed, 11 insertions, 12 deletions
@@ -421,18 +421,17 @@ Cycling distance: ~,1f km ;; Sort the listed houses newest advertisments last. (list-houses (filter (lambda (house) - (and - (not (house-bills-included? house)) - (< (house-hours-live house) 100) - (not (house-shared? house)) - (<= (house-bedrooms house) 1) - (>= (house-rent house) 1200) - (<= (house-rent house) 1400) - (house-unfurnished? house) - (house-live? house) - (>= (house-maximum-tenants house) 2) - (not (null? (house-tube-stations house))) - (not (string-contains-ci (house-title house) "bedsit")))) + (and (not (house-bills-included? house)) + (< (house-hours-live house) 100) + (not (house-shared? house)) + (<= (house-bedrooms house) 1) + (>= (house-rent house) 1200) + (<= (house-rent house) 1400) + (house-unfurnished? house) + (house-live? house) + (>= (house-maximum-tenants house) 2) + (not (null? (house-tube-stations house))) + (not (string-contains-ci (house-title house) "bedsit")))) (sort (all-houses) (lambda (house1 house2) (> (house-hours-live house1) |