| … | |
… | |
| 17 | $state->{version} = $stateversion; |
17 | $state->{version} = $stateversion; |
| 18 | |
18 | |
| 19 | $::config = $state->{config} ||= {}; |
19 | $::config = $state->{config} ||= {}; |
| 20 | |
20 | |
| 21 | $::config->{speed} = 0; #d# optimize for speed or memory? (0,1) |
21 | $::config->{speed} = 0; #d# optimize for speed or memory? (0,1) |
| 22 | $::config->{conserve_memory} = 1; # try to conserve memory at the expense of speed (0,1,2) |
22 | $::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed (0,1,2) |
| 23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
| 24 | |
24 | |
| 25 | sub save_config { |
25 | sub save_config { |
| 26 | >k::save_state; |
26 | >k::save_state; |
| 27 | Storable::nstore($state, $staterc); |
27 | Storable::nstore($state, $staterc); |
