##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-08/06:34-0400 ##+ # # ishift.icn, bitwise shift # link printf procedure main() shift := 3 every i := 7 | -7 do { # shift right, low bit zero fill write(printf("ishift(%d, %d) = %d", i, shift, ishift(i, shift))) } # shift left, high bit zero fill shift := -3 every i := 7 | -7 do { # shift right, low bit zero fill write(printf("ishift(%d, %d) = %d", i, shift, ishift(i, shift))) } # using large integer i := 2^66 + 7 write(printf("ishift(%d, %d) = %d", i, shift, ishift(i, shift))) end