removed example trees
This commit is contained in:
		
							parent
							
								
									0097800eba
								
							
						
					
					
						commit
						bfe08e1461
					
				@ -42,57 +42,4 @@
 | 
			
		||||
       (tree-to-dot-helper (cdr tree) 1 0)
 | 
			
		||||
       "}")))
 | 
			
		||||
 | 
			
		||||
(define vowel-tree
 | 
			
		||||
  '("[vowel]"
 | 
			
		||||
    ("[back]"
 | 
			
		||||
     ("[tense]"
 | 
			
		||||
      ("[high]")
 | 
			
		||||
      ("{high}"))
 | 
			
		||||
     ("{tense}"
 | 
			
		||||
      ("[high]")
 | 
			
		||||
      ("{high}")))
 | 
			
		||||
    ("{back}"
 | 
			
		||||
     ("[tense]"
 | 
			
		||||
      ("[high]")
 | 
			
		||||
      ("{high}"))
 | 
			
		||||
     ("{tense}"
 | 
			
		||||
      ("[high]")
 | 
			
		||||
      ("{high}")))))
 | 
			
		||||
 | 
			
		||||
(define cons-tree
 | 
			
		||||
  '("[cons]"
 | 
			
		||||
    ("[son]"
 | 
			
		||||
     ("[dor]"
 | 
			
		||||
      ("[high]")
 | 
			
		||||
      ("{high}"))
 | 
			
		||||
     ("{dor}"
 | 
			
		||||
      ("[cor]")
 | 
			
		||||
      ("{cor}")))
 | 
			
		||||
    ("{son}"
 | 
			
		||||
     ("[dor]"
 | 
			
		||||
      ("[voice]"
 | 
			
		||||
       ("[high]")
 | 
			
		||||
       ("{high}"))
 | 
			
		||||
      ("{voice}"
 | 
			
		||||
       ("[high]")
 | 
			
		||||
       ("{high}")))
 | 
			
		||||
     ("{dor}"
 | 
			
		||||
      ("[voice]"
 | 
			
		||||
       ("[cor]")
 | 
			
		||||
       ("{cor}"))
 | 
			
		||||
      ("{voice}"
 | 
			
		||||
       ("[cor]")
 | 
			
		||||
       ("{cor}"))))))
 | 
			
		||||
 | 
			
		||||
(define verbs
 | 
			
		||||
  '("[verbs]"
 | 
			
		||||
    ("[réel]"
 | 
			
		||||
     ("[passé]")
 | 
			
		||||
     ("{passé}"))
 | 
			
		||||
    ("{réel}"
 | 
			
		||||
     ("[optatif]")
 | 
			
		||||
     ("{optatif}"
 | 
			
		||||
      ("[passé]")
 | 
			
		||||
      ("{passé}")))))
 | 
			
		||||
 | 
			
		||||
(display (tree-to-dot vowel-tree))
 | 
			
		||||
; (display (tree-to-dot vowel-tree))
 | 
			
		||||
 | 
			
		||||
		Reference in New Issue
	
	Block a user