Skip to content

Instantly share code, notes, and snippets.

@ourmaninamsterdam

ourmaninamsterdam/fold-fn.rkt

Created January 15, 2021 16:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ourmaninamsterdam/d80e540ebce8dba01cce94e3f199b3a6 to your computer and use it in GitHub Desktop.
Save ourmaninamsterdam/d80e540ebce8dba01cce94e3f199b3a6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fold-fn.rkt
(define (find name dir)
(local [(define (c1 n rdirs rimgs)
(or (string=? name n)
rdirs
rimgs))
(define (c2 rdir rdirs)
(or rdir rdirs))
(define (c3 img rimgs)
false)]
(fold-dir c1 c2 c3 false false dir)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment