ガードを使用したカスタム `filter`機能

Question

私自身がfilter関数を書こうとしていて、エラーが発生しました。コード：

filter_acc(_, [], Result) -> Result; 
filter_acc(F, [H|T], Result) when F(H) =:= true -> filter_acc(F, T, [H | Result]). 
filter(F, L) -> filter_acc(F, L, []). 

エラー：

my_functions.erl:11: illegal guard expression 
error 

機能は、ガード式の一部として評価することができませんか？もしそうでなければ、これはどうやって行なわれますか？

Answer 1

あなたはこれを実現できます（関数節のみで、ガードは必要ありません）が、それはほとんど関心がありません。

1> FA = fun FA(_,[H],true,R) -> [H|R]; 
1> FA(_,[_],_,R) -> R; 
1> FA(F,[H1,H2|T],true,R) -> FA(F,[H2|T],F(H2),[H1|R]); 
1> FA(F,[_,H2|T],_,R) -> FA(F,[H2|T],F(H2),R) end. 
#Fun<erl_eval.28.50752066> 
2> Filter = fun(_,[]) -> []; (F,L= [H|_]) -> FA(F,L,F(H),[]) end. 
#Fun<erl_eval.12.50752066> 
3> Filter(fun(X) -> X > 4 end,[1,2,5,hello,"Joe"]). 
["Joe",hello,5] 
4>