［Excel VBA］フォルダー内のファイル一覧を得る

ファイルシステムオブジェクトのGetFolderメソッドを使用する。以下はC:\Windowsフォルダー内のファイルをすべて表示させる例。

Dim obj As Object
With CreateObject("Scripting.FileSystemObject")
    For Each obj In .GetFolder("C:\Windows").Files
        Debug.Print obj.name
    Next obj
End With

［R］ベクトルの要素を逆順に並び替える

rev関数を使う。

> s <- c("U", "N", "I", "X")
> s
[1] "U" "N" "I" "X"
> rev(s)
[1] "X" "I" "N" "U"
> n <- c(3, 1, 4, 1)
> n
[1] 3 1 4 1
> rev(n)
[1] 1 4 1 3

［R］階乗を計算する

factorial関数を使う。以下、実行例。なお、4の階乗（4!）は24である。

> factorial(4)
[1] 24

ガンマ関数の値を計算するgamma関数を使っても計算できる。ガンマ関数の以下の性質を利用する。

Γ(n + 1) = n! (nは整数かつn≧1)

> gamma(4 + 1)
[1] 24

factorial関数とgamma関数はその実行速度が異なる。gamma関数のほうが断然早いので、gamma関数の使用を推奨する。

> system.time(for (i in 1:1000000) factorial(4))
   ユーザ   システム       経過  
      0.39       0.00       0.39 
> system.time(for (i in 1:1000000) gamma(4 + 1))
   ユーザ   システム       経過  
      0.11       0.00       0.11