diff options
| author | Arun Isaac | 2023-09-26 10:23:39 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-26 10:23:39 +0100 |
| commit | b466a96db3ceeddc8f28814309ba1bae9136ccbd (patch) | |
| tree | 64188344734d5c31993e08040c55100945b209ed | |
| parent | 7282abca63ee36d3b7c51b68c52deee77048e8e9 (diff) | |
| download | rent-in-london-b466a96db3ceeddc8f28814309ba1bae9136ccbd.tar.gz rent-in-london-b466a96db3ceeddc8f28814309ba1bae9136ccbd.tar.lz rent-in-london-b466a96db3ceeddc8f28814309ba1bae9136ccbd.zip | |
Re-indent main expression.
* rent.scm (main): Re-indent.
| -rw-r--r-- | rent.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/rent.scm b/rent.scm index 2c806de..238d97c 100644 --- a/rent.scm +++ b/rent.scm @@ -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) |