j
k
j a
j l
Malcolm Wallace writes:
x `shift` i | i<0 = x `shiftL` i | i==0 = x | i>0 = x `shiftR` i
Oops, of course that should be
x `shift` i | i<0 = x `shiftL` (-i) | i==0 = x | i>0 = x `shiftR` i
etc.
Back to the thread
Back to the list
