どう書く?org : コメントの削除

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

ソースコードからコメント部分を削除するプログラム decomment を書いてください.
すくなくとも,decomment を記述したのと同じ言語で書かれているソースコード
扱えるようにしてください.

#6553

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

doukaku.185.R:
------------------------------------------------------------------------
# Rのコメントは一行なので、大抵の場合はgrep("^[^#]", <文字列>, value=TRUE)で問題なさそうですが。

a <- 10 # 文頭以外のコメント
b <- "文字列中の#"

if(0){
ここに書くコメントはRの文法上のコメントではないので削除されません
}


実行結果:
------------------------------------------------------------------------
> decomment("doukaku.185.R")
expression(a <- 10, b <- "文字列中の#", if(0){
ここに書くコメントはRの文法上のコメントではないので削除されません
})
attr(,"srcfile")
doukaku.185.R

decomment <- parse