[英]How to compile and run this code without using erlang shell
我在erlang中有以下代码,它提供了n-皇后问题的解决方案。 它以皇后数为参数。 该程序在erl shell上成功运行。 但是我需要在Linux终端上运行没有外壳的程序,以便可以使用“ time”命令来测量程序的执行时间。
-module(queen).
-export([queen/1]).
queen(N) ->
IJ = [{I, J} || I <- lists:seq(1, N), J <- lists:seq(1, N)],
lists:foreach(fun({I, J}) -> put_data(I, J, true) end, IJ),
solve(N, 1, [], 0).
solve(N, J, Board, Count) when N < J ->
print(N, Board),
Count + 1;
solve(N, J, Board, Count) ->
F = fun(I, Cnt) ->
case get_data(I, J) of
true ->
put_data(I, J, false),
Cnt2 = solve(N, J+1, [I|Board], Cnt),
put_data(I, J, true),
Cnt2;
false -> Cnt
end
end,
lists:foldl(F, Count, lists:seq(1, N)).
put_data(I, J, Bool) ->
put({row, I }, Bool),
put({add, I+J}, Bool),
put({sub, I-J}, Bool).
get_data(I, J) ->
get({row, I}) andalso get({add, I+J}) andalso get({sub, I-J}).
print(N, Board) ->
Frame = "+-" ++ string:copies("--", N) ++ "+",
io:format("~s~n", [Frame]),
lists:foreach(fun(I) -> print_line(N, I) end, Board),
io:format("~s~n", [Frame]).
print_line(N, I) ->
F = fun(X, S) when X == I -> "Q " ++ S;
(_, S) -> ". " ++ S
end,
Line = lists:foldl(F, "", lists:seq(1, N)),
io:format("| ~s|~n", [Line]).
您可以使用计时器模块来检查执行速度:
{Time, Value} = timer:tc(queen, queen, [N])
或者,您可以将代码转换为escript:
#!/usr/bin/env escript
-mode(native). %% to fun faster
main([NStr]) ->
N = list_to_integer(NStr),
IJ = [{I, J} || I <- lists:seq(1, N), J <- lists:seq(1, N)],
lists:foreach(fun({I, J}) -> put_data(I, J, true) end, IJ),
solve(N, 1, [], 0).
solve(N, J, Board, Count) when N < J ->
print(N, Board),
Count + 1;
solve(N, J, Board, Count) ->
F = fun(I, Cnt) ->
case get_data(I, J) of
true ->
put_data(I, J, false),
Cnt2 = solve(N, J+1, [I|Board], Cnt),
put_data(I, J, true),
Cnt2;
false -> Cnt
end
end,
lists:foldl(F, Count, lists:seq(1, N)).
put_data(I, J, Bool) ->
put({row, I }, Bool),
put({add, I+J}, Bool),
put({sub, I-J}, Bool).
get_data(I, J) ->
get({row, I}) andalso get({add, I+J}) andalso get({sub, I-J}).
print(N, Board) ->
Frame = "+-" ++ string:copies("--", N) ++ "+",
io:format("~s~n", [Frame]),
lists:foreach(fun(I) -> print_line(N, I) end, Board),
io:format("~s~n", [Frame]).
print_line(N, I) ->
F = fun(X, S) when X == I -> "Q " ++ S;
(_, S) -> ". " ++ S
end,
Line = lists:foldl(F, "", lists:seq(1, N)),
io:format("| ~s|~n", [Line]).
并使其可从linux shell执行:
chmod +x queue
然后使用命令./queue
或time ./queue
从linux shell运行它
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.