RosettaCodeData/Task/Gray-code/Aime/gray-code-1.aime

integer
gray_encode(integer n)
{
    return n ^ (n >> 1);
}

integer
gray_decode(integer n)
{
    integer p;

    p = n;
    while (n >>= 1) {
        p ^= n;
    }

    return p;
}