ringDelta :: Int -> Int
ringDelta n = let n' = floor $ sqrt (fromIntegral n) in
                  if even n'
                  then n'
                  else n' + 1
ringDelta :: Int -> Int
ringDelta n = let n' = floor $ sqrt (fromIntegral n) in
                  if even n'
                  then n'
                  else n' + 1
ringDelta n = let n' = floor $ sqrt (fromIntegral n) in
                  if even n'
                  then n'
                  else n' + 1