Allow interactively revising both update and view as we play

scratch/GuessNumber.fsx

@@ -19,9 +19,15 @@ let update msg model =
         { model with guesses = model.guesses @ [feedback] }
 let view model =
     $"You've won {model.wins} times. What you know about this next number: {model.guesses}"
-let send = connect init update view
+let send, state = connect init update view
 
 send 10
 send 5
 send 3
-send 4
+send 4
+
+let view2 model =
+    let fullGuesses = model.guesses |> List.map (sprintf "%A") |> String.concat ", "
+    $"Score: {model.wins}. Hints: {fullGuesses}"
+let send, state = reconnect state update view2
+send 5

scratch/SketchUI.fsx

@@ -3,8 +3,15 @@
 #endif
 
 let connect init update view =
-    let mutable current = init()
+    let state = ref (init())
     let dispatch msg =
-        current <- update msg current
-        printfn "\n%s" (view current)
-    dispatch
+        state.Value <- update msg state.Value
+        printfn "\n%s" (view state.Value)
+    dispatch, state
+
+let reconnect (state: _ ref) update view =
+    printfn "\n[Reconnecting...]\n%s" (view state.Value)
+    let dispatch msg =
+        state.Value <- update msg state.Value
+        printfn "\n%s" (view state.Value)
+    dispatch, state