差分圧縮[終了]

この課題のために、差分を圧縮する必要があります。 diffは、2つの文字列の違いを表すデータです。 この課題のために、次のことができる1つ以上のプログラムを提供する必要があります。

1. を入力AしB、差分を出力します。C
2. 入力AおよびC、および出力B
3. 入力BおよびC、および出力A

目標は、diff Cをできるだけ小さくすることです。 diffは、文字列、数値、データのblobなど、何でもかまいません。サイズ（バイト数）だけが重要です。

Githubで見つけることができる 50のテストケースがあります。各テストケースは、スペースで区切られた2つのURLで構成されており、diffする必要がある2つのファイルを指します。（これらのテストケースは、PPCGメンバーのGithubプロファイルから作成されました。ありがとうございます！）

上記の3つのタスクはすべて、（各テストケースごとに）十分に電力が供給されたコンピューターで実行するのに1分未満かかります。

スコアは50個の差分すべての合計サイズ（バイト単位）に等しく、値が小さいほど優れています。プログラムでの差分のハードコーディングは許可されていません（ハードコーディングを防ぐためにテストケースを変更する権利を留保します）。diff（などdiffutils）を生成する組み込み関数は使用できません。

私の答えは有効ですか？

set f [open commits.txt]
while {![eof $f]} {scan [gets $f] %s\ %s a b; puts [string compare $a $b]}
close $f

テスト可能：http ://www.tutorialspoint.com/execute_tcl_online.php ? PID=0Bw_CjBb95KQMNmd4QkxvQUFsTnM