Erlang is_function Sample サンプル

手こずった。
サンプルは以下。

ソース：

-module(is_functionTest).
-export([start/0]).

start() ->
    Double = fun(X) -> double(X) end,
    if is_function(Double) =:= true ->
   funA;
true -> true
    end.

double(X) ->
    2 * X.

うまくいくと、端末に「funA」と表示される。