diff options
| author | Dan Gudmundsson <[email protected]> | 2017-09-14 13:16:37 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2017-09-14 13:16:37 +0200 |
| commit | 6e74c9a7e86301eb22c3095c07fc771070d1ceed (patch) | |
| tree | 33e1b340f75fac1631a04ce74a1b25adf900b8c8 /lib/wx/examples/sudoku | |
| parent | fdc58a6b03fd238a6bd26403cac375f314a9383d (diff) | |
| download | otp-6e74c9a7e86301eb22c3095c07fc771070d1ceed.tar.gz otp-6e74c9a7e86301eb22c3095c07fc771070d1ceed.tar.bz2 otp-6e74c9a7e86301eb22c3095c07fc771070d1ceed.zip | |
wx: Remove export_all in example code
Diffstat (limited to 'lib/wx/examples/sudoku')
| -rw-r--r-- | lib/wx/examples/sudoku/sudoku.erl | 3 | ||||
| -rw-r--r-- | lib/wx/examples/sudoku/sudoku_game.erl | 23 | ||||
| -rw-r--r-- | lib/wx/examples/sudoku/sudoku_gui.erl | 2 |
3 files changed, 5 insertions, 23 deletions
diff --git a/lib/wx/examples/sudoku/sudoku.erl b/lib/wx/examples/sudoku/sudoku.erl index 97f35870de..353f90d86f 100644 --- a/lib/wx/examples/sudoku/sudoku.erl +++ b/lib/wx/examples/sudoku/sudoku.erl @@ -26,9 +26,8 @@ -module(sudoku). --export([go/0]). +-export([go/0, start/0]). --compile(export_all). -include("sudoku.hrl"). diff --git a/lib/wx/examples/sudoku/sudoku_game.erl b/lib/wx/examples/sudoku/sudoku_game.erl index 1e579a7c88..aa15c05653 100644 --- a/lib/wx/examples/sudoku/sudoku_game.erl +++ b/lib/wx/examples/sudoku/sudoku_game.erl @@ -18,7 +18,9 @@ %% %CopyrightEnd% -module(sudoku_game). --compile(export_all). + +-export([init/1, + indx/1, rcm/1, level/1]). -include("sudoku.hrl"). init(GFX) -> @@ -128,17 +130,6 @@ rebuild_all(_, S0) -> add(rcm(Indx),Val,Acc) end, S1, Solved). -is_ok({RI,CI,MI}, Vals) -> - [Ri,Ci,Mi] = all(RI,CI,MI), - case element(indx(RI,CI),Vals) of - 0 -> true; - Val -> - Vs = [[element(indx(R,C),Vals)||{R,C} <- Obs, - not ((R == RI) and (C == CI))] - || Obs <- [Ri,Ci,Mi]], - not lists:member(Val,lists:flatten(Vs)) - end. - test() -> %% Known to solvable [{{1,2},6}, {{1,4},1}, {{1,6},4}, {{1,8},5}, {{2,3},8}, {{2,4},3}, {{2,6},5}, {{2,7},6}, @@ -377,14 +368,6 @@ get_poss([H|R],What,Tot) -> %% io:format("~p~n",[H]), get_poss(R,What, gb_sets:union(element(H,What),Tot)). -r2rs(R) -> - R0 = (R-1)*3, - [R0+1,R0+2,R0+3]. - -c2cs(C) -> - C0 = (C-1) rem 9, - [C0+1, C0+10, C0+19]. - mindx(row,Indx) -> {R,_C,M} = rcm(Indx), mindx(R,M); diff --git a/lib/wx/examples/sudoku/sudoku_gui.erl b/lib/wx/examples/sudoku/sudoku_gui.erl index 81d20814e1..4c4ad83cd7 100644 --- a/lib/wx/examples/sudoku/sudoku_gui.erl +++ b/lib/wx/examples/sudoku/sudoku_gui.erl @@ -28,7 +28,7 @@ -export([init/1, handle_info/2, handle_call/3, handle_cast/2, handle_event/2, terminate/2, code_change/3]). --compile(export_all). +-export([new/1]). -behaviour(wx_object). |