From d222161a5bcce5c0f2848d9714ab509b4ba957ff Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sun, 30 Jan 2022 12:27:36 +0100 Subject: Seems to be working. --- src/Tonkadur/Execute.elm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Tonkadur/Execute.elm') 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)) -- cgit v1.2.3-70-g09d2