Less javascript please

magopian · magopian · commit 6abb97e68ae1 · 2019-08-12T11:22:52.000+02:00
diff --git a/index.html b/index.html
@@ -9,10 +9,10 @@
 <body>
   <div id="elm"></div>
   <script>
-  let seed = Math.random() * 100; // A random number between 0 and 100.
+  let seed = Math.random();
   var app = Elm.Main.init({
     node: document.getElementById('elm'),
-    flags: Math.round(seed)
+    flags: seed
   });
   </script>
 </body>
diff --git a/src/Main.elm b/src/Main.elm
@@ -82,7 +82,7 @@ type alias Score =
 
 
 type alias Flags =
-    Int
+    Float
 
 
 init : Flags -> ( Model, Cmd Msg )
@@ -97,7 +97,12 @@ init seed =
             { rightPlayerScore = 0
             , leftPlayerScore = 0
             }
-      , seed = Random.initialSeed seed
+      , seed =
+            -- A number between 0 and 100
+            seed
+                |> (*) 100
+                |> round
+                |> Random.initialSeed
       }
     , Cmd.none
     )

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,7 @@ type alias Score =`
`82`	`82`
`83`	`83`
`84`	`84`	`type alias Flags =`
`85`		`- Int`
	`85`	`+ Float`
`86`	`86`
`87`	`87`
`88`	`88`	`init : Flags -> ( Model, Cmd Msg )`
`@@ -97,7 +97,12 @@ init seed =`
`97`	`97`	`{ rightPlayerScore = 0`
`98`	`98`	`, leftPlayerScore = 0`
`99`	`99`	`}`
`100`		`- , seed = Random.initialSeed seed`
	`100`	`+ , seed =`
	`101`	`+ -- A number between 0 and 100`
	`102`	`+ seed`
	`103`	`+ \|> (*) 100`
	`104`	`+ \|> round`
	`105`	`+ \|> Random.initialSeed`
`101`	`106`	`}`
`102`	`107`	`, Cmd.none`
`103`	`108`	`)`