escript undefined function求解

patagonia2

可运行

1. 
   
2. -define(P, io:format).
   
3. -mode(native).
   
4. 
   
5. add(A, B) -> A + B.
   
6. 
   
7. sum1(L) ->
   
8.     lists:foldl( fun (A, B) -> A + B end, 0, L ).
   
9. 
   
10. sum2(L) ->
    
11.     lists:foldl( fun add/2, 0, L ).
    
12. 
    
13. 
    
14.    
    
15. main(_) ->
    
16.   L = [1, 2, 3, 4, 5],
    
17.   S1 = sum1(L),
    
18.   S2 = sum2(L),
    
19.   ?P("s1 = ~p, s2 = ~p~n", [S1, S2]),
    
20. halt().
    

复制代码

不编译
移除

-mode(native).

不可运行

undefined function erl_eval:add/2

请大家看下哪里需要修改, 谢谢大家...

1. 
   
2. -define(P, io:format).
   
3. 
   
4. add(A, B) -> A + B.
   
5. 
   
6. sum1(L) ->
   
7.     lists:foldl( fun (A, B) -> A + B end, 0, L ).
   
8. 
   
9. sum2(L) ->
   
10.     lists:foldl( fun add/2, 0, L ).
    
11. 
    
12. 
    
13.    
    
14. main(_) ->
    
15.   L = [1, 2, 3, 4, 5],
    
16.   S1 = sum1(L),
    
17.   S2 = sum2(L),
    
18.   ?P("s1 = ~p, s2 = ~p~n", [S1, S2]),
    
19. halt().
    

复制代码

shijiang1130

看到这里，我明白了，你用的是escript的运行方式

shijiang1130

New Text Document.txt:16: undefined macro 'P/2'
escript: There were compilation errors.

shijiang1130

escript: exception error: undefined function erl_eval:add/2
？P 改成io:format出现了。。

shijiang1130

1. -define(P, io:format).
   
2. 
   
3. add(A, B) -> A + B.
   
4. 
   
5. sum1(L) ->
   
6.     lists:foldl( fun (A, B) -> A + B end, 0, L ).
   
7. 
   
8. sum2(L) ->
   
9.         F = fun(A,B) -> add(A,B) end,
   
10.     lists:foldl( F, 0, L ).
    
11. 
    
12. 
    
13.    
    
14. main(_) ->
    
15.   L = [1, 2, 3, 4, 5],
    
16.   S1 = sum1(L),
    
17.   S2 = sum2(L),
    
18.   io:format("s1 = ~p, s2 = ~p~n", [S1, S2]),
    
19. halt().

复制代码

shijiang1130

1. C:\Users\Administrator\Desktop>escript "New Text Document.txt"
   
2. s1 = 15, s2 = 15

复制代码

patagonia2

回复 4# shijiang1130
     谢谢大神指导。

？P 改成io:format出现了。。

    为什么啊 ，这是一个谜。

大神似乎改了sum2啊

1. sum2(L) ->
   
2.         F = fun(A,B) -> add(A,B) end,
   
3.     lists:foldl( F, 0, L ).

复制代码

sum2 = sum1

这怎么玩？sum3
(不用)

-mode (compile).

1. sum3 (L) -> lists:foldl ( fun add/2, 0, L ).
   

复制代码

1. -module (sum).
   
2. -mode (compile).  % 这个移除不用这怎么玩？
   
3. -define (PP(V), io:format("~s = ~p~n", [??V, V])).
   
4. 
   
5. add (A, B) -> A + B.
   
6. 
   
7. sum1 (L) -> lists:foldl ( fun (A, B) -> A + B end, 0, L ).
   
8. 
   
9. sum2 (L) ->
   
10.     F = fun (A, B) -> add (A, B) end,
    
11.     lists:foldl ( F, 0, L ).
    
12. 
    
13. sum3 (L) -> lists:foldl ( fun add/2, 0, L ).
    
14.       
    
15. main (_) ->
    
16.     L = [ 1, 2, 3, 4, 5 ],
    
17.     S1 = sum1 (L),
    
18.     S2 = sum2 (L),
    
19.     S3 = sum3 (L),
    
20.     ?PP ([S1, S2, S3]),
    
21. halt ().
    
22. 
    

复制代码

shijiang1130

patagonia2 发表于 2016-04-20 11:43
回复 4# shijiang1130
     谢谢大神指导。

不会用 fun的这种方式，您喜欢，能教教我怎么玩，你是从哪看到的，具体怎么用，在哪种环境上用

patagonia2

回复 8# shijiang1130


在大神发过的帖子啊
看到了fun