リバーシブル16進ダンプユーティリティ（別名「xxd」）

xxdは、にバンドルされたユーティリティで、vimこのサイトでゴルフの問題をコーディングするための回答をエンコードするために使用されています。バイナリファイルを16進ダンプに変換し、再び戻します。

選択したプログラミング言語でxxdおよびxxd -rコマンドを実装します。スコアリングは、a）プログラムおよびb）結合プログラムをモード間で切り替えるのに必要なコマンドライン引数の文字/バイト長に基づいています（それらはである必要はありません-r）。ゴルフのように、スコアが低いほど良いです。

• 2つの別個のプログラムの場合：フォワードコード + リバースコード
• 結合プログラムの場合：結合コード + sum（フォワード引数）+ sum（リバース引数）-2

選択したxxdサブセットの仕様

フォワードコマンドは、（例えば xxd）0≤受け付けるN ≤2 ¹⁶標準入力からバイトとCEILを生成する（N / 16）次のフォーマット（すべての進数字は小文字）で標準出力の行：

• 最初にエンコードされたバイト（フォーマット文字列"%07x:"）のオフセット。で終わる"0"
• 最大16桁の16進数でエンコードされたバイトで、ペアにグループ化され（" %02x"偶数バイト、"%02x"奇数バイトのフォーマット文字列）、42文字までスペースで右詰めされます。
• ASCII文字として解釈されたエンコードされたバイト。0x20から0x7e（'\40'および'\176'）の間の値ではない"."
• 改行（"\n"; "\r\n"標準出力がバイナリモードの場合に許可されます）

最小限の未実装のC実装：

#include <stdio.h>
int main() {
    unsigned char L[16];
    int t = 0, n, i, s;

    for (; (n = fread(L, 1, 16, stdin)); t += n) {
        printf("%07x:", t);
        s = 42;
        for (i = 0; i < n; i++)
            s -= printf(i & 1 ? "%02x" : " %02x", L[i]);
        printf("%*s", s, "");
        for (i = 0; i < n; i++)
            putchar(L[i] > '\37' && L[i] < '\177' ? L[i] : '.');
        printf("\n");
    }

    return 0;
}

リバースコマンド（例 xxd -r）は、フォワードコマンドの変更されていない出力（そのコマンドへの有効な入力が与えられたもの）を受け入れ、その元の入力を生成します。

使用例

$ xxd < /dev/null | wc -c
0
$ php -r 'echo join(range("\0",~"\0"));' | xxd
0000000: 0001 0203 0405 0607 0809 0a0b 0c0d 0e0f  ................
0000010: 1011 1213 1415 1617 1819 1a1b 1c1d 1e1f  ................
0000020: 2021 2223 2425 2627 2829 2a2b 2c2d 2e2f   !"#$%&'()*+,-./
0000030: 3031 3233 3435 3637 3839 3a3b 3c3d 3e3f  0123456789:;<=>?
0000040: 4041 4243 4445 4647 4849 4a4b 4c4d 4e4f  @ABCDEFGHIJKLMNO
0000050: 5051 5253 5455 5657 5859 5a5b 5c5d 5e5f  PQRSTUVWXYZ[\]^_
0000060: 6061 6263 6465 6667 6869 6a6b 6c6d 6e6f  `abcdefghijklmno
0000070: 7071 7273 7475 7677 7879 7a7b 7c7d 7e7f  pqrstuvwxyz{|}~.
0000080: 8081 8283 8485 8687 8889 8a8b 8c8d 8e8f  ................
0000090: 9091 9293 9495 9697 9899 9a9b 9c9d 9e9f  ................
00000a0: a0a1 a2a3 a4a5 a6a7 a8a9 aaab acad aeaf  ................
00000b0: b0b1 b2b3 b4b5 b6b7 b8b9 babb bcbd bebf  ................
00000c0: c0c1 c2c3 c4c5 c6c7 c8c9 cacb cccd cecf  ................
00000d0: d0d1 d2d3 d4d5 d6d7 d8d9 dadb dcdd dedf  ................
00000e0: e0e1 e2e3 e4e5 e6e7 e8e9 eaeb eced eeef  ................
00000f0: f0f1 f2f3 f4f5 f6f7 f8f9 fafb fcfd feff  ................
$ xxd <<< 'The quick brown fox jumps over the lazy dog.'
0000000: 5468 6520 7175 6963 6b20 6272 6f77 6e20  The quick brown 
0000010: 666f 7820 6a75 6d70 7320 6f76 6572 2074  fox jumps over t
0000020: 6865 206c 617a 7920 646f 672e 0a         he lazy dog..
$ xxd <<< 'The quick brown fox jumps over the lazy dog.' | xxd -r
The quick brown fox jumps over the lazy dog.

Perl、122 + 54 = 176 122 + 45 = 167

転送スクリプト：

$/=$,;for(<>=~/.{1,16}/gs){$h="";$h.=sprintf"%*s%02x",++$m%2,"",ord for/./gs;
s/[^ -~]/./g;printf"%06x0:%-42s",$n++,$h;say}

そして逆のスクリプト：

/:(.+?)  /,print map{chr hex}$1=~/\w\w/gfor<>

（これは興味深いです。注意しないと、入力に応じてリバーススクリプトに現れる可能性のあるあらゆる種類の不明瞭なバグがあります。）