Intersecting number wheels: Difference between revisions
m
→{{header|Haskell}}: Tidied, pruned out one import, preferring a guard to bool.
m (→{{header|Haskell}}: Tidied, applied Ormolu.) |
m (→{{header|Haskell}}: Tidied, pruned out one import, preferring a guard to bool.) |
||
Line 893:
terminating at the first digit found, and printing a map-accumulation of that recursion over a list of given length but arbitrary content.
<lang haskell>import Data.
import Data.List (mapAccumL)
import qualified Data.Map.Strict as M
Line 907 ⟶ 906:
where
click wheels name =
let
in ( go . flip
(fromMaybe ['?'] (M.
leftRotate :: [a] -> [a]
| |||