あなたの仕事はnl、GNUコアユーティリティのコマンドラインツールに似たプログラムを実装することです。

標準的な抜け穴は禁止されています。

GNU sedのコマンドnlや=コマンドなど、ファイルまたは文字列の行に番号を付けるために、組み込みまたは外部の関数、プログラム、またはユーティリティを使用することはできません。

仕様

入力

プログラムは引数としてファイル名を受け入れます。コードはクロスプラットフォームである必要はありません。コードを実行しているOSのファイル名形式を使用する必要があります。つまり、Windowsを使用している場合、ディレクトリ区切り文字は\または/です。

-指定されている場合を含め、64個の入力ファイルを取得できる必要があります。64を超える場合は、最初の64のみを処理します。

ファイル名のリストで、-標準入力を表します。

ファイル名が指定されている場合は、指定された順序でファイルから読み取り、内容を連結し、各ファイルの間に新しい行を挿入します。1つまたは複数のファイル名から読み取ることができない場合（ファイルが存在しないか、読み取り権限がないため）、無視します。指定されたすべてのファイル名が無効な場合、何も出力しません。

ファイル名が指定されていない場合は、標準入力から読み取ります。ファイル名が指定されていない場合、または指定されている場合にのみ、標準入力から読み取ります-。

出力

プログラムは、このように番号が付けられた行で入力を標準出力に出力します（入力に\n、\r\nまたは\r行末があると仮定することができます;都合の良い方を選択しますが、どちらかを指定します）。

<5 spaces>1<tab><content of line 1 of input>
<5 spaces>2<tab><content of line 2 of input>
...
<4 spaces>10<tab><content of line 10 of input>
...
<3 spaces>100<tab><content of line 100 of input>
...
...

行番号には6文字のスペースが割り当てられ、これらの文字の最後に挿入されます。残りはスペースになります（たとえば1、先頭に5つのスペースがあり、22先頭に4つのスペースがあります...）。入力が十分に長い場合、最終的にlineの行番号のスペースが不足します999999。999999行目以降は何も出力しないでください。

入力が空の場合、何も出力しません。

終了ステータス

低い番号が優先されます。エラー1および2が発生した場合、ステータス1で終了します。

入力が正常に受信され、行が正常に番号付けされて出力された場合、ステータス0で終了します。

コマンドラインで指定された1つ以上のファイルが見つからないか、読み取ることができなかった場合、ステータス1で終了します。

指定されたファイルが多すぎる（64を超える）場合は、ステータス2で終了します。

入力が長すぎる（999999行を超える）場合は、ステータス3で終了します。\

得点

これはコードゴルフです-最短のプログラムが勝ちます！

ある特定のオプションを実装するために、後でボーナスを追加する場合がnlあります。現時点ではボーナスはありません。

バッシュ、121

s=$[2*($#>64)]
for f in "$@";{ [ -f $f ]||s=1;}
((s))&&exit $s
awk '{if(NR>=10**6){exit 3}printf("%6d\t%s\n",NR,$0)}' $@

ルビー、195

o,l=$*[64]?[2]:[],999999
($*==[]?[?-]:$*).each{|n|f=n==?-?STDIN: open(n)rescue o<<1&&next
s=f.read.lines
s[l]?o<<3:1
puts s[0..l].map.with_index(1){|l,i|i.to_s.rjust(6)+?\t+l}}
exit !o[0]?0:o.min

Perl、84 + 2（-pl）= 86バイト

perl -ple'BEGIN{map{-r||exit 1}@ARGV;@ARGV>63&&exit 2}$.>=1e6&&exit 3;$_=printf"%5d\t%s",$.,$_'

分解済み：

perl -MO=Deparse -ple'BEGIN{map{-r||exit 1}@ARGV;@ARGV>63&&exit 2}$.>=1e6&&exit 3;$_=printf"%5d\t%s",$.,$_' output.txt; echo $?

BEGIN { $/ = "\n"; $\ = "\n"; }
sub BEGIN {
    map {exit 1 unless -r $_;} @ARGV;
    exit 2 if @ARGV > 63;
}
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    exit 3 if $. >= 1000000;
    $_ = printf("%5d\t%s", $., $_);
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

知っておくべき重要事項：

• -p/ ループ-eで指定されたプログラムをラップしますwhilecontinue
• BEGIN コードは（暗黙の）メイン部分の前に実行されます
• ファイル-rが存在せず!-e、デフォルトでtesting $_に設定されている場合、ファイルテストも失敗しますmap { ... } @ARGV
• $. 現在の行番号を保持します
• 残りは自明であるべきです;）

python 173

import os,sys
c=0
l=1
for f in sys.argv[1:]:
    if c>64:exit(2)
    if not os.path.isfile(f):exit(1)
    c+=1
    for x in open(f):
        if l>=10**6:exit(3)
        print '%6d\t%s'%(l,x),;l+=1

J（162）

exit(((2*64<#)[exit@3:`(stdout@(,&LF)@;@(,&TAB@(6&":)&.>@>:@i.@#,&.>]))@.(1e6>#)@(<;.2)@(1!:1)@(<`3:@.('-'-:]))&.>@;@{.@(_64&(<\))) ::1:)]`(]&<&'-')@.(0=#)2}.ARGV

説明：

• ]`(]&<&'-')@.(0=#)2}.ARGV：コマンドライン引数を取得し、最初の2つを削除します（これらはインタープリターとスクリプトファイル名であるため）。結果のリストが空の場合は戻ります['-']（つまり、ユーザーがのみを通過したかのように-）。それ以外の場合はリストを変更せずに返します。
• (... ::1:)：内部関数が失敗した場合はreturn 1、そうでない場合は内部関数が返したものをすべて返します。
• ((2*64<#)[... )：内部関数を評価し、結果を破棄します。次に、渡されたリストの長さがを超えない場合64、return 0、そうでない場合はreturn 2。
• &.>@;@{.@(_64&(<\))：64リストから多くても要素を取得し、それぞれに対して次の関数を実行します。
  • (1!:1)@(<`3:@.('-'-:]))：要素がの場合、-ファイル記述子3（stdin）の内容を読み取ります。そうでない場合は、その要素で指定されたファイルの内容を読み取ります。これが失敗する（つまり、ファイルが存在しない）場合、上記のコードはそれをキャッチしてを返し1ます。
  • exit@3:`(... )@.(1e6>#)@(<;.2)：文字列を行末で分割します。1.000.000行以上ある場合、statusで終了します3。さもないと：
    • ,&TAB@(6&":)&.>@>:@i.@#：各行の数値を生成し、6桁の列にフォーマットし、TAB各文字列の末尾にa を追加します。
    • ,&.>]：各行の先頭に各番号を追加します。
    • stdout@(,&LF)@;：次に、すべてを出力し、その後に余分なLF。
• exit：その関数の戻り値で終了します

ルビー、76バイト

pフラグ用の1バイト。で実行しruby -p nl.rbます。

BEGIN{x=$*.size-65}
exit 2if$*.size==x
exit 3if$.>999999
$_="%6d"%$.+?\t+$_

標準入力またはファイル引数は、Rubyによって自動的に処理されます。ファイル引数が存在しない場合、コード1で既に終了します。$.読み取られた行の数です。$*はコマンドライン引数であり、ファイルが読み取られるとファイルがポップオフされます。pフラグは、実行BEGINブロックと使用中-取得-printループ、内部プログラムの残りの部分をラップする$_入力/出力として。

Perl、125 122バイト

@a=@ARGV;for(@a){$i++>63&&exit 2;($_ eq '-'or-e$_)or next;@ARGV=$_;while(<>){$c>1E6-2&&exit 3;printf"%5d\t%s",++$c,$_}say}

C、362 359

それの楽しみのためだけに。;-) LFまたはCR / LFラインフィードで動作します。

#include<stdio.h>
#define R return
#define P printf(
e,t,l;void*f;r(){P"% 6d\t",++l);for(;(t=fgetc(f))^-1&&l<1000000;){if(ferror(f))R 1;P"%c",t);if(t==10)P"% 6d\t",++l);}P"\n");R l<1000000?0:3;}main(int c,char**v){e=c>65?2:0;for(++v;*v||c<2;++v){t=c<2||!strcmp(*v,"-")?f=stdin,0:!(f=fopen(*v,"rb"));if(t||(t=r()))e=!e|(e>t)?t:e;if(f&&f!=stdin)fclose(f);}R e;}