Longest common subsequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 481: / Line 481: @@
 =={{header|Tcl}}==
 Both solutions translated from the Java.
+===Recursive===
-{{works with|Tcl|8.5}}
+<lang tcl>proc r_lcs {a b} {
-'''recursive'''
-<lang tcl>roc r_lcs {a b} {
     if {$a eq "" || $b eq ""} {return ""}
     set a_ [string range $a 1 end]
@@ Line 494: / Line 493: @@
         return [expr {[string length $x] > [string length $y] ? $x :$y}]
     }
-</lang>
+}</lang>
+===Dynamic===
-'''dynamic'''
+{{works with|Tcl|8.5}}
 <lang tcl>package require Tcl 8.5
 namespace import ::tcl::mathop::+
@@ Line 535: / Line 535: @@
     return [string reverse $result]
 }</lang>
-Performance:
+===Performance Comparison===
-<pre>% time {d_lcs thisisatest testing123testing} 10
+<lang tcl>% time {d_lcs thisisatest testing123testing} 10
 .5 microseconds per iteration
 % time {r_lcs thisisatest testing123testing} 10
-1275566.8 microseconds per iteration</pre>
+1275566.8 microseconds per iteration</lang>