|
|
@@ -175,7 +175,10 @@ is replaced with replacement."
|
|
|
when (< 65 area 75)
|
|
|
collect data))
|
|
|
(format-apts (url)
|
|
|
- (format nil "~A~%~{~A~^~%~}" url (mapcar #'format-data (get-intresting (get-rows url))))))
|
|
|
+ (let ((apts (get-intresting (get-rows url))))
|
|
|
+ (format nil "~A~%~{~A~^~%~}~%~A/~A" url (mapcar #'format-data apts)
|
|
|
+ (length (remove "забронировано" apts :test #'equal :key #'(lambda (r) (nth 7 r)) ))
|
|
|
+ (length apts)))))
|
|
|
(format nil "~{~A~^~%~%~}"
|
|
|
(mapcar #'format-apts
|
|
|
'("http://www.yitspb.ru/yit_spb/catalog/apartments/novoorlovskiy-korpus-1-1-1"
|
