| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-30 12:27:36 +0100 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-30 12:27:36 +0100 |
| commit | d222161a5bcce5c0f2848d9714ab509b4ba957ff (patch) | |
| tree | d1d0c4c8b19a87cf7a3b5cdd6ba17c39bb482940 /src/Tonkadur/Execute.elm | |
| parent | b1d6d8af0e31123d46e102bc68fcfd02d3b51256 (diff) | |
Seems to be working.
Diffstat (limited to 'src/Tonkadur/Execute.elm')
| -rw-r--r-- | src/Tonkadur/Execute.elm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Tonkadur/Execute.elm b/src/Tonkadur/Execute.elm index a65df88..865687b 100644 --- a/src/Tonkadur/Execute.elm +++ b/src/Tonkadur/Execute.elm @@ -273,7 +273,7 @@ set_random : ( Tonkadur.Types.State -> Tonkadur.Types.State ) -set_random address min max state = +set_random min max address state = let (value, next_random_seed) = (Random.step @@ -378,8 +378,8 @@ execute instruction state = (increment_program_counter (resolve_choice new_state)) (Tonkadur.Types.SetPC value) -> (set_pc value new_state) - (Tonkadur.Types.SetRandom address min max) -> - (increment_program_counter (set_random address min max new_state)) + (Tonkadur.Types.SetRandom min max address) -> + (increment_program_counter (set_random min max address new_state)) (Tonkadur.Types.SetValue address value) -> (increment_program_counter (set_value address value new_state)) |