どう書く？org : コード圧縮

original page : http://ja.doukaku.org/189/

スペースやインデントなど、本来は必要なく開発効率を上げるために記述が許可されている項目について、
それらを可能な限り減らし、コードを短くするコード書いてください。
また、投稿時に対象とする言語と、実際の処理結果を記載できるとわかり易いかと思います。

以下詳細
・全てを行う必要はありません、どこまで行うかは任意です。
・ローカル宣言など、消しても動作に関係のない構文の削除や置き換えを行っても構いません。
・必ず同じ入力に同じ結果が返るのであれば処理内容を変えることもかまいませんが、推奨・強制はしません。
・コンパイラや実行環境に依存する圧縮は避けてください。

#6732

original page : http://ja.doukaku.org/comment/6732/

すごいマイナス評価・・・！

Rのdeparse()は、適切にインデントを入れなおしてくれるという
（このお題的には）余計な機能がついてますが、とりあえずこんな感じで。

> writeLines(deparse(parse(text=code, srcfile=NULL)))
expression(sapply(1:10, function(n) {
for (i in 1:n) {
print(n)
}
print("------")
}))

code <- ' sapply(1:10, function(n)
                      {
                          for(i in 1:n)
  {
                              print(n)
                               }
                          print("------")
                                      }
# comment
         )
'
writeLines(deparse(parse(text=code, srcfile=NULL)))