Data update

Task/ABC-problem/Tcl/abc-problem.tcl

@@ -2,16 +2,16 @@ package require Tcl 8.6
 
 proc abc {word {blocks {BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM}}} {
     set abc {{letters blocks abc} {
-	set rest [lassign $letters ch]
-	set i 0
-	foreach blk $blocks {
-	    if {$ch in $blk && (![llength $rest]
-		    || [apply $abc $rest [lreplace $blocks $i $i] $abc])} {
-		return true
-	    }
-	    incr i
-	}
-	return false
+   set rest [lassign $letters ch]
+   set i 0
+   foreach blk $blocks {
+       if {$ch in $blk && (![llength $rest]
+          || [apply $abc $rest [lreplace $blocks $i $i] $abc])} {
+      return true
+       }
+       incr i
+   }
+   return false
     }}
     return [apply $abc [split $word ""] [lmap b $blocks {split $b ""}] $abc]
 }