Convert byte address to words.

src/CacheSim/View.elm

@@ -78,7 +78,7 @@ viewRawCacheModel level rcm =
         deleteButton = dangerButton "Delete" (DeleteRawModel level)
 
         params = div []
-            [ labeledInput "Block size" rcm.blockSize (wrapUpdate updateBlockSize)
+            [ labeledInput "Block size (words)" rcm.blockSize (wrapUpdate updateBlockSize)
             , labeledInput "Set count" rcm.setCount (wrapUpdate updateSetCount)
             , labeledInput "Set size" rcm.setSize (wrapUpdate updateSetSize)
             ]
@@ -204,14 +204,15 @@ viewAccessInput : Model -> Html Msg
 viewAccessInput m =
     let
         parser =
-            Parser.sequence
-                { start = ""
-                , end = ""
-                , separator = ","
-                , spaces = Parser.spaces
-                , item = Parser.int
-                , trailing = Parser.Optional
-                }
+            Parser.map (List.map (\i -> i // 4)) <|
+                Parser.sequence
+                    { start = ""
+                    , end = ""
+                    , separator = ","
+                    , spaces = Parser.spaces
+                    , item = Parser.int
+                    , trailing = Parser.Optional
+                    }
         parseErrorToString _ = "Unable to parse input. Please enter a sequence of numbers separated by commas."
         parseResult = Parser.run (parser |. Parser.end) m.accessInput
         checkedResult =