ABC problem: Difference between revisions

m
renaming variables + reformatting for clearer solution
imported>Louisono
(add Elm solution)
imported>Louisono
m (renaming variables + reformatting for clearer solution)
Line 3,912:
 
main =
let resultStr (wword, bcanBeWritten) = "\"" ++ wword ++ "\"" ++ ": " ++ if bcanBeWritten then "True" else "False" in
List.map (\ wword -> (wword, canMakeWord exampleBlocks wword) |> resultStr) exampleWords
|> List.map (\sresult -> p [] [ text sresult ])
|> div []
</syntaxhighlight>
Anonymous user