zzkt/2013-photo-analysis
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

exfoliation

Browse source
This commit is contained in:
nik gaffney 2014-01-08 00:45:41 +01:00
parent f28e6eb270
commit 14c71ce6f5
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
2013-photo-analysis.rkt
View file

@ -159,7 +159,6 @@
(cadr (assoc 'groups (cdr x)))) photos))) (cadr (assoc 'groups (cdr x)))) photos)))
;; (summarise-sets exfoliated) ;; (summarise-sets exfoliated)
(define (count-groups groups) (define (count-groups groups)
(let ((ph (make-hash))) (let ((ph (make-hash)))
(map (lambda (x) (map (lambda (x)
@ -171,10 +170,14 @@
;; collate various and sundry analysis ;; collate various and sundry analysis
(define (analyse-365) (define (analyse-365)
(let ((photoset (get-photoset set_02013))) (let ((photoset (get-photoset set_02013))
(exfoliated (exfoliate-photoset set_02013)))
(displayln ";; titles and views") (displayln ";; titles and views")
(print (titles-and-views photoset)) (print (titles-and-views photoset))
(displayln ";; tag fequency") (displayln ";; tag fequency")
(print (tag-freq photoset)) (print (tag-freq photoset))
(displayln ";; groups and sets") (displayln ";; groups and sets")
(print (count-groups (exfoliate-photoset set_02013))))) (print exfoliated)
(displayln ";; groups")
(print (count-groups (summarise-sets exfoliated)))))