palo/Scontrini-Daemon
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed small syntax error

Browse Source
This commit is contained in:
palo 2023-10-28 00:41:27 +02:00
parent 4c14838f7e
commit 221c3ddc04
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scontrini.rkt
View File

@ -40,7 +40,7 @@
(define (format-pizza pizzas-list) (define (format-pizza pizzas-list)
(let ((str "") (let ((str "")
(price 0) (price 0)
(all-pizzas-list (hash-ref (get-pizzas-list) 'pizzas))) (all-pizzas-list (hash-ref (get-all-pizzas) 'pizzas)))
(for-each (lambda (pizza-hashmap) (for-each (lambda (pizza-hashmap)
(set! str (string-append str (format "~a : ~s\n" (hash-ref pizza-hashmap 'quantity) (hash-ref pizza-hashmap 'name)))) (set! str (string-append str (format "~a : ~s\n" (hash-ref pizza-hashmap 'quantity) (hash-ref pizza-hashmap 'name))))
(set! price (+ price (get-price-from-pizza pizza-hashmap all-pizzas-list)))) (set! price (+ price (get-price-from-pizza pizza-hashmap all-pizzas-list))))