whiteline/Scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactoring

Browse Source
This commit is contained in:
Victor Fors 2022-04-18 23:34:08 +02:00
parent dbad99dd34
commit 9d133bc70f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
parking.scm
View File

@ -72,8 +72,8 @@
(cons (string->symbol (string-downcase k)) v))) (cons (string->symbol (string-downcase k)) v)))
(array . ,identity)) (json-parsers))) (array . ,identity)) (json-parsers)))
(display-newline "Parking spaces available:") (display-newline "Parking spaces available:")
(let ((lots (sort-via string-ci<? (curry value 'name) (get-parking-lots))))
(map (compose display-newline (curry format-assoc '(name ": " parkingspacesavailable "/" parkingspaces))) (map (compose display-newline (curry format-assoc '(name ": " parkingspacesavailable "/" parkingspaces)))
(filter (conjoin computerized? (complement only-has-handicap-spots?)) lots)))) (filter (conjoin computerized? (complement only-has-handicap-spots?))
(sort-via string-ci<? (curry value 'name) (get-parking-lots)))))
(main) (main)