DouKaku?

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

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