Posted to tcl by kbk at Fri Mar 23 15:35:35 GMT 2018view raw

  1. package require struct::list
  2. set seq1 {a b r a c a d b r a}
  3. set seq2 { b r i c a b r a c}
  4. set len1 [llength $seq1]
  5. set len2 [llength $seq1]
  6. set lcs [struct::list longestCommonSubsequence $seq1 $seq2]
  7. set diffs [struct::list lcsInvert $lcs $len1 $len2]
  8. puts [join $diffs \n]
  9.