Model view msg model = div [] [ div [ style "float" "left" ] [ text "第1項" , div [] [] , input [ style "width" "55px" , onInput (¥strf -> SetLeftTerm <| String.toFloat strf) ] [] ] , div [ style "float" "left" ] [ br [] [] , div [ style "margin-left" "10px" , style "margin-right" "10px" ] [ text "?" ] ] , div [] [ text "第2項" , div [] [] , input [ style "width" "55px" , onInput (SetRightTerm << String.toFloat) ] [] ] , br [] [] , div [] [ text "? : " , button [ onClick Addition , style "margin-right" "10px” ] [ text " + " ] , button [ onClick Subtraction ] [ text " - " ] ] , br [] [] , div [] (case model.answer of Just ans -> [ text <| "計算結果 : " ++ String.fromFloat ans ] Nothing -> [] ) ] 先程の画面図に当てはめると... ① ② ③ ④ ③ ① ② ⑤ ⑥ ⑦ ① ② ③ ① ② ③ ④ ⑤ ⑥ ⑦