まだ解析しているRコードの最もlineい行は何ですか？

目標は、次のような1行のRコードを生成することです。

1. できるだけ少ない
2. できるだけ多くの文字で（最大100文字）
3. そして、可能な限りいです（「lyい」とは、非効率的な計算戦略、終了セミコロンなどの無関係な文字などを意味します）。

あなたの最悪の、紳士をしてください！

勝利の客観的基準

勝利の答えは、次のポイントスケールに従って判断されます（最も多くのポイントを持つ答えが勝ちます）。

• 0〜10（100ポイント）のシーケンスを生成します
• できるだけ多くの文字（N）で
  • N = 100の場合、0ポイント
  • N <100の場合、N-100ポイント（つまり、100未満のすべての文字でポイントを失う）
  • N> 100の場合、2（100-N）ポイント（つまり、100を超える文字ごとに2ポイントを失う）
• R Infernoのネガティブな例をできるだけ多く使用する
  • 引用例ごとに6ポイント
  • 各例は1回のみカウントされます。これは、「炎の墓に投獄された異端者」が一度だけ投獄できるためです。したがって、コード行の2つのグローバル割り当てでは、6ポイントしか得られません。

72 96文字。

`c`<-function(...){list(...)[[-1]];}->>`c`;`[`=0;`]`=10;c(c,c)(c,c)(c,invisible)(`[`[]:`]`[])[];

gliさ：

• 標準関数名の再利用
• シンボルを変数名として使用する
• グローバルな割り当て
• 正しい割り当て
• 機能の自己再定義
• 不要な末尾のセミコロン
• 不要な添え字番号
• 変数名の不要な引用
• ワークスペースを、その後のコード実行をほぼ確実に中断する状態のままにします

シーケンス0-10を生成します（それを行うアイデアをAndrieに感謝します）。

出力：

 [1]  0  1  2  3  4  5  6  7  8  9 10

0〜10のシーケンスを生成します。

100文字

{.=0;for(`~1` in c(1,2,3,4,5,6,7,8,9,10)){.=c(., `~1`,recursive=F)};print(unname(.[drop=T]));rm(.)}
 [1]  0  1  2  3  4  5  6  7  8  9 10

100文字： 1〜10のシーケンスを生成します。

2-10の数字はコードにないことに注意してください...-ボーナスポイント？:-)

またlapply、最大のパフォーマンスのために使用することに注意してください:)

unlist(lapply(LETTERS[-(11:26)],function(x) as.integer(charToRaw(x))-as.integer(charToRaw('A'))+1L))
#[1]  1  2  3  4  5  6  7  8  9 10 

100文字

assign("a",1:10);b<<-paste(c(a),collapse=";");unlist(lapply(strsplit(b,";")[[1]],function(c)c[[1]]))

lapplyon strsplitが負の例かどうかはわかりませんが、そうすべきです。

文字として返します：

 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

I(cumsum(Reduce("sum", replicate(paste0(as.integer(T),as.integer(T)), T), accumulate=1-F) - T >0))

100文字よりわずかに少なく、何らかの形で0:10を生成する必要があります