sicp-ex-4.48



<< Previous exercise (4.47) | Index | Next exercise (4.49) >>


meteorgan

  
  
 (define adjectives '(adjective ugly stupid lazy dirty shitty)) 
 (define (parse-simple-noun-phrase)       
       (amb (list 'simple-noun-phrase 
                  (parse-word articles) 
                  (parse-word nouns)) 
                 (list 'simple-noun-phrase 
                  (parse-word articles) 
                  (parse-word adjectives) 
                  (parse-word nouns))))