Mayan numerals: Difference between revisions

→‎{{header|Haskell}}: Pruned out liftA2 import (used <$> ... <*> instead)
(→‎{{header|Haskell}}: Pruned out liftA2 import (used <$> ... <*> instead))
Line 605:
<lang haskell>import Data.List (intercalate, transpose)
import qualified Data.Map.Strict as M
import Control.Applicative (liftA2)
import Control.Monad (join)
import Data.Maybe (maybe)
Line 631 ⟶ 630:
mayanFramed =
("Mayan " ++) .
((++) <$> show <*>
liftA2
((":\n\n" ++) .
showwikiTable
((":\n\n" ++) (M.fromList
wikiTable [ ( "style"
(M.fromList , join
[ ( [ "styletext-align:center;"
, concat"background-color:#F0EDDE;"
[, "text-aligncolor:center#605B4B;"
, "background-colorborder:#F0EDDE2px solid silver;"
, "color:#605B4B;"])
, ("colwidth", "border:2px solid silver3em;")
]) .
mayanGlyph))
, ("colwidth", "3em;")
]) .
mayanGlyph)
 
mayaZero, mayaOne :: Char
9,655

edits