プリプロセッサの利用
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
//なかま
COLOR(red){SIZE(20){cpp+Rによるマクロの使用法}}
#がコメントの言語ではみんな同じなんですが。
#contents
* ヘッダーの用意 [#u36964de]
** common.R [#y71b97d0]
平方根 <- function(x)
{
#ifdef DOUBLE
sqrt(x)
#else
floor(sqrt(x))
#endif
}
* メインの用意 [#b2b407bf]
** main.R [#k88a5b99]
#include "common.R"
#define TARGET 2
平方根(TARGET)
* 実行1 [#a056fcfb]
cpp main.R | R --vanilla -q
* 結果1 [#sc5faffb]
> # 1 "main.R"
> # 1 "common.R" 1
> 平方根 <- function(x)
+ {
+
+
+
+ floor(sqrt(x))
+
+ }
>
> # 1 "main.R" 2
>
>
> 平方根(2)
[1] 1
>
* 実行2 [#u78e80ea]
cpp -DDOUBLE main.R | R --vanilla -q
* 結果2 [#n9aabfc6]
> # 1 "main.R"
> # 1 "common.R" 1
> 平方根<- function(x)
+ {
+
+ sqrt(x)
+
+
+
+ }
>
> # 1 "main.R" 2
>
>
> 平方根(2)
[1] 1.414214
>
終了行:
//なかま
COLOR(red){SIZE(20){cpp+Rによるマクロの使用法}}
#がコメントの言語ではみんな同じなんですが。
#contents
* ヘッダーの用意 [#u36964de]
** common.R [#y71b97d0]
平方根 <- function(x)
{
#ifdef DOUBLE
sqrt(x)
#else
floor(sqrt(x))
#endif
}
* メインの用意 [#b2b407bf]
** main.R [#k88a5b99]
#include "common.R"
#define TARGET 2
平方根(TARGET)
* 実行1 [#a056fcfb]
cpp main.R | R --vanilla -q
* 結果1 [#sc5faffb]
> # 1 "main.R"
> # 1 "common.R" 1
> 平方根 <- function(x)
+ {
+
+
+
+ floor(sqrt(x))
+
+ }
>
> # 1 "main.R" 2
>
>
> 平方根(2)
[1] 1
>
* 実行2 [#u78e80ea]
cpp -DDOUBLE main.R | R --vanilla -q
* 結果2 [#n9aabfc6]
> # 1 "main.R"
> # 1 "common.R" 1
> 平方根<- function(x)
+ {
+
+ sqrt(x)
+
+
+
+ }
>
> # 1 "main.R" 2
>
>
> 平方根(2)
[1] 1.414214
>
ページ名: