blob: 74e028e58f2b2f9bd9216c6e5a8fe698281f49a0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
(define (pigl wd)
(if (pl-done? wd)
(word wd 'ay)
(pigl (word (bf wd) (first wd))) ) )
(define (pl-done? wd)
(vowel? (first wd)) )
(define (vowel? letter)
(member? letter '(a e i o u)) )
|