11-752: week 2 exercises hints

• (set! total_ns (+ 1 total_ns))
  (format t "Total number of nouns %d\n" total_ns)}
• See $ESTDIR/../festival/lib/synthesis.scm for the definition of Tokens UttType for list of extra modules to call. You want to look at the Segment relation
  

  (if (string-equals (item.feat seg "ph_vc") "+")
      (set! total\_vs (+ 1 total\_vs)))
  

• See $ESTDIR/../festival/lib/synthesis.scm for the definition of Text UttType for list of modules to call.
  The following functions are useful:

  (utt.relationnames utt)
  (utt.relation.items utt 'Segment)
  

  The following actually works for trees and lists

  (utt.relation_tree utt 'Segment)
  

  And others

  (set! seg4 (nth 4 (utt.relation.items utt 'Segment)))
  (item.features seg4)