getArcRings :: Index    -- ^ the current index position
            -> Indices  -- ^ the list of of indices in the arcs and ring containing that index
getArcRings ind = getRing ind ++ getIndices leftArcs ind ++ getIndices rightArcs ind
    where getRing n = [x..x + 6] where x = 7 * div n 7

-- | Returns the values from the lotus puzzle based on the indices
getArcRings :: Index    -- ^ the current index position
            -> Indices
getArcRings ind = getRing ind ++ getIndices leftArcs ind ++ getIndices rightArcs ind
    where getRing n = [x..x + 6] where x = 7 * div n 7

-- | Returns the values from the lotus puzzle based on the indices
getArcRings ind = getRing ind ++ getIndices leftArcs ind ++ getIndices rightArcs ind
    where getRing n = [x..x + 6] where x = 7 * div n 7

-- | Returns the values from the lotus puzzle based on the indices