You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.4 KiB
48 lines
1.4 KiB
module Automaton exposing (..)
|
|
|
|
import Random
|
|
|
|
-- MODEL
|
|
|
|
type alias Automaton s i = List ((s, i), s)
|
|
|
|
zip : List a -> List b -> List (a, b)
|
|
zip = List.map2 (,)
|
|
|
|
cart : List a -> List b -> List (a, b)
|
|
cart l1 l2 = List.concat <| List.map (\x -> List.map (\y -> (x, y)) l2) l1
|
|
|
|
genAut : Int -> Int -> Random.Generator (Automaton Int Int)
|
|
genAut n k = let
|
|
allSI = cart [1..n] [1..k]
|
|
in Random.map (zip allSI) (Random.list (n*k) <| Random.int 1 n)
|
|
|
|
step : Automaton s i -> Maybe s -> i -> Maybe s
|
|
step ls s0 i = case s0 of
|
|
Nothing -> Nothing
|
|
Just s -> List.filter (\((t, j), b) -> t == s && i == j) ls |> List.head |> Maybe.map snd
|
|
|
|
--(=>) = (,)
|
|
|
|
--state2Color : State -> Color
|
|
--state2Color s = case s of
|
|
-- Nothing -> Color.black
|
|
-- Just n -> hsl (degrees (toFloat n)*77) 1.0 (0.8 - 0.6 * (toFloat n)/size)
|
|
|
|
--color2String : Color -> String
|
|
--color2String c = let rgb = toRgb c in "rgb(" ++ toString rgb.red ++ ", " ++ toString rgb.green ++ ", " ++ toString rgb.blue ++ ")"
|
|
|
|
--block : Color -> Html msg
|
|
--block c = div [style ["background-color" => color2String c, "width" => "100px", "height" => "100px", "display" => "inline-block"]] []
|
|
|
|
--view : Model -> Html Msg
|
|
--view model =
|
|
-- div []
|
|
-- ( button [ onClick Regen ] [ text "Regenerate" ]
|
|
-- :: button [ onClick Sort ] [ text "Sort" ]
|
|
-- :: br [] []
|
|
-- :: List.map (block << state2Color) model.states
|
|
-- )
|
|
|
|
|
|
|
|
|