1234567891011121314151617181920 |
- (library (words)
- (export filter-vocabulary-words)
- (import
- (except (rnrs base))
- (only (guile)
- lambda* λ
- string=)
- (srfi srfi-1))
- (define filter-vocabulary-words
- (λ (words . filters)
- (let iter ([filters° filters]
- [words° words])
- (cond
- [(null? filters°) words°]
- [else
- (iter (drop filters° 1)
- ((first filters°) words°))])))))
|