Intersecting number wheels: Difference between revisions

Content added Content deleted
Line 911: Line 911:
<*> head
<*> head
)
)
(fromMaybe ['?'] (M.lookup name wheels))
$ fromMaybe ['?'] $ M.lookup name wheels


leftRotate :: [a] -> [a]
leftRotate :: [a] -> [a]