Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
module Main exposing (..)
import Browser
import Html exposing (Html, div, text)
import Random
positions = List.scanl (+) 0 (List.map (\_ -> if Random.step (Random.float 0 1) Random.initialSeed |> Tuple.first < 0.5 then 1 else -1) (List.range 1 10))
view = div [] (List.map (\p -> div [] [ text (String.fromInt p) ]) positions)
main = Browser.sandbox { init = (), update = \_ model -> model, view = \_ -> view }Coding works best on desktop or with an external keyboard.