Post History
Haskell, 116 bytes a#b=a!b:a++[a!"BOTTOM TEXT"] a!b=replicate(div(m a-k b)2)' '++b m=foldr1 max.map k k=length.dropWhile(==' ').reverse Try it online!
#1: Initial revision
by
Hakerh400
·
2021-08-01T11:30:20Z (about 5 years ago)
# [Haskell], 116 bytes
<!-- language-all: lang-hs -->
a#b=a!b:a++[a!"BOTTOM TEXT"]
a!b=replicate(div(m a-k b)2)' '++b
m=foldr1 max.map k
k=length.dropWhile(==' ').reverse
[Try it online!][TIO-krrxm6hr]
[Haskell]: https://www.haskell.org/
[TIO-krrxm6hr]: https://tio.run/##ZY9NT4NAEIbv@yveUhMgCESPjfSgMfFiepBEE1G6lLUlfGbZNjThv@OsZfXgHibvPvMwsxx4X4qqmia@zCK@yFbc8975wrrfxPHmGfHjW2x9MGpEUnRVseNKOHlxcmpwv0Tm3ro2bM/LWB19tVUub1DzIah5h5KVUSWavToEuWy710NRCSeKSHcDKU5C9mJSYlCIYD3RE9prvLayyhcWq3nREM5bBnCpcOdjL9RD2yjRqB7rdYTuKAUCVEUjerK6o3pRElfYcVhJY1HSHy6hNzCCHM6wOq/OvUuDB3geESqXzg/XVoqhp/6ubehHKU@YT8p0DXzfxqhjmKbpJ0bMNGCz515YqEsyQ7oQDLeXmz272rNpnLGNnpiV83SMZk5i3FkJk9GsJRLaPp2t7oUGj@NohAS/suMYquN/V0fz9DB18Be/AQ "Haskell – Try It Online"